Hi

I am creating a form that has a button. When the user clicks the button an open dialog box should appear letting the user choose a file. I know I have to create an event here using VB but I am not familiar with the command and the syntax.

Any ideas??

Thank you

You can use the common dialog or see the code below:

http://www.mvps.org/access/api/api0001.htm

HTH,

Beth M

Hi J,

What version of Access are you using? What file type are you trying to open?

Invoking a file picker dialog has been greatly simplified in Access 2002 which includes a FileDialog property of the Application object. If you're using a version of Access prior to 2002, you'll need to use the Common Dialog ActiveX control that ships with the MOD edition of Office, an API call, or a custom class, none of which are trivial to implement.

Here's a sample of how you can use the FileDialog property in Access XP to select all files, or filter for just .mdb/.mde or .xls files from your current db:

Private Sub cmdFilePicker_Click()
    Dim varItem As Variant
    Dim strOut As String
    Const conFileDialogFilePicker As Long = 3

    With _
        Application.FileDialog(conFileDialogFilePicker)
        .ButtonName = "Select"
        .Title = "Choose your files"
        .AllowMultiSelect = True
        .Filters.Clear
        .Filters.Add "All Files", "*.*", 1
        .Filters.Add "Access databases", "*.mdb; *.mde", 2
        .Filters.Add "Excel Files", "*.xls", 3
        .FilterIndex = 2
        .Show

        If .SelectedItems.Count > 0 Then
            For Each varItem In .SelectedItems
                strOut = strOut & varItem & vbCrLf
        Next varItem

        End If

    End With

    Me.txtSelectedFiles = strOut

End Sub

HTH,

Bob

Hi J,

While we're on the topic, here are some additional references I've found helpful in the past. Also, Ken Getz tackles this soluion using a custom file dialog class he wrote for the Access Developer's Handbook if you have a copy. The articles below hit the Common Dialog Control (which is the same .OCX (COMDLG32.OCX) used by Visual Basic, by the way) and the API call approach.

http://msdn.microsoft.com/library/de...ml/ima0201.asp
http://www.helenfeddema.com/access.htm (Coulmn #91)
http://support.microsoft.com/default...b;en-us;161286
http://support.microsoft.com/default...b;en-us;303066
http://msdn.microsoft.com/library/de...ml/ima1101.asp

Enjoy :)

Bob