[access] - Ricerca funzione per creazione pulsante sfoglia

[Misterxxx]

Originariamente inviato da nicola75ss
infatti non credo sia il caso di affidarmi all'asinello.

Prova a mettere questo su click evento di un pulsante (crea una casella di testo chiamata "caselladiteso"):

Dim findialogo As Object
Set findialogo = CreateObject("MSComDlg.CommonDialog")
findialogo.FileName = ""
findialogo.ShowOpen
 
If findialogo.FileName <> "" Then
        caselladitesto.Value = findialogo.FileName
    End If

Set findialogo = Nothing