browse efter billed

You can use the common dialog to find your picture file. In this example I only save the filename in the dB (me.filename) pictured fill TOO MUCH.


Private Sub dlgFileSearch()
Dim strFileName As String
Dim strPath As String
   
    ' Set CancelError is True
    dlgFileOpen.CancelError = True
   
    On Error GoTo Err_dlgFileSearch

    strPath = "C:\"
    dlgFileOpen.InitDir = strPath
   
    ' Set flags
    dlgFileOpen.Flags = cdlOFNHideReadOnly + cdlOFNFileMustExist
    ' Set filters
 
    dlgFileOpen.Filter = "Bit Maps (*.bmp)|*.bmp"
   
    ' Specify default filter
    dlgFileOpen.FilterIndex = 2
    ' Display the Open dialog box
    dlgFileOpen.ShowOpen
    ' Display name of selected file
 
    If Not IsNull(dlgFileOpen.filename) Then
        Me.filename = dlgFileOpen.filename
    End If
       
Exit_dlgFileSearch:
    Exit Sub
   
Err_dlgFileSearch:
    'User pressed the Cancel button
    Resume Exit_dlgFileSearch

End Sub

franke68>any comments?

hello!!!

franke68>whats happening with this question? You cant expect help if you dont make any comments!

thanks frank69, I hope it was what you wanted!

69 = 68 :o)