[VBA/access] tasto sfoglia

[TittyMail]

ciao volevo sapere come creo il tasto sfoglia in visual basic.
Grazie

[MMarzia]

per VB esiste l'apposito subforum
nel titolo della discussione bisogna specificare anche la versione



è tutto scritto nel regolamento

[TittyMail]

non avevio visto. cmq uso access che ha quella sottospecie di vb

[TittyMail]

uso vb di access...come faccio a creare il tasto sfoglia?

[twister_has_you]

precisamente cosa vuoi fare ?
cioè hai una maschera e con un tasto "sfoglia" vuoi visualizzare il contenuto del disco ?
oppure vuoi selezionare ad esempio un file da allegare a qualcosa ?

dovresti essere un po' più chiara !!!

ciao
Twister

[TittyMail]

voglio vidualizzare il disco e prelevare un documento per inserirlo nella text

[twister_has_you]

copia questo in un modulo

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Function LaunchCD(strform As Form) As String
Dim OpenFile As OPENFILENAME
Dim lReturn As Long
Dim sFilter As String
OpenFile.lStructSize = Len(OpenFile)
OpenFile.hwndOwner = strform.hwnd
sFilter = "All Files (*.*)" & Chr(0) & "*.*" & Chr(0) & _
"JPEG Files (*.JPG)" & Chr(0) & "*.JPG" & Chr(0)
OpenFile.lpstrFilter = sFilter
OpenFile.nFilterIndex = 1
OpenFile.lpstrFile = String(257, 0)
OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
OpenFile.lpstrFileTitle = OpenFile.lpstrFile
OpenFile.nMaxFileTitle = OpenFile.nMaxFile
OpenFile.lpstrInitialDir = "C:\"
OpenFile.lpstrTitle = "Select a file using the Common Dialog DLL"
OpenFile.flags = 0
lReturn = GetOpenFileName(OpenFile)
If lReturn = 0 Then
MsgBox "A file was not selected!", vbInformation, _
"Select a file using the Common Dialog DLL"
Else
LaunchCD = Trim(Left(OpenFile.lpstrFile, InStr(1, OpenFile.lpstrFile, vbNullChar) - 1))
End If
End Function



e questo sotto il bottone


Me!Text1 = LaunchCD(Me)


al posto di text1 metti il nome della text




spesso l'msdn risolve tutto !!!!

ciao

[TittyMail]

grazie mitoooooooooooooo

[twister_has_you]

figurati ...
sciocchezze ...