**browse button**

[MS_Access_Amature]

I have a browse button to open up files with the following function on the click event. When I click it it gives me an error message saying - Object doesn't support this property or method. I did a debug and it gives me the error after the red line. Does anybody have any idea what I'm doing wrong?? Please let me know...Thank You!

Function BrowseCustDATA(sMyControl$)
On Error GoTo MyErrorControl

    Dim Result%
    
    With Application.FileDialog(msoFileDialogFolderPicker)
    
        Select Case UCase(Nz(sMyControl, ""))
        Case "MYPATH2"
            .Title = "Select Network Database"
            Dim NtwrkInitialPath As String
            NtwrkInitialPath = Nz(Me![MyPath2], "")
            
            If NtwrkInitialPath <> "" Then
                If DoesFolderExist(NtwrkInitialPath) = True Then
                    .InitialFileName = NtwrkInitialPath
                ElseIf DoesFileExist(NtwrkInitialPath) = True Then
                    .InitialFileName = NtwrkInitialPath
                Else
                    .InitialFileName = CurrentProject.Path
                End If
            Else
                .InitialFileName = CurrentProject.Path
            End If
            
        Case Else
            .Title = "Select Database file"
            
        End Select
        
        ' Only ACCDB
  [COLOR="Red"]      .Filters.Add "All Files", "*.*", 1[/COLOR]
        .Filters.Add "Microsoft Office Access", "*.accdb; *.accda; *.accde", 2
        .Filters.Add "Microsoft Office Access Databases", "*.accdb", 3
        .FilterIndex = 3
        
        .AllowMultiSelect = False
        
        Result = .Show
        
        If (Result <> 0) Then
            
           If Nz(sMyControl, "") <> "" Then
                Me(sMyControl) = Trim(.SelectedItems.Item(1))
            End If
            
            Select Case UCase(Nz(sMyControl, ""))
            Case "MYPATH2"
                AfterNetworkCustDATA_Update Nz(Me(sMyControl), "")
            End Select
            
        End If
        
    End With

    Exit Function

MyErrorControl:
    Select Case Err.Number
    Case Else
        MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical + vbOKOnly, "BrowseCustDATA ERROR"
        Exit Function
        Resume Next
    End Select
End Function

 

[the_net_2.0]

well first of all, this makes no sense:

        ' Only ACCDB
        .Filters.Add "All Files", "*.*", 1
        .Filters.Add "Microsoft Office Access", "*.accdb; *.accda; *.accde", 2
        .Filters.Add "Microsoft Office Access Databases", "*.accdb", 3
        .FilterIndex = 3

you're adding all files, THEN reducing the list to access files??

if you only want access files, you should be using:

        ' Only ACCDB
        .Filters.Add "Microsoft Office Access", "*.accdb;*.accda;*.accde"

also, if there's a problem with your filter index, you should clear it before adding new ones (do this anyway, as it provides less clutter):

        ' Only ACCDB
        .Filters.Clear
        .Filters.Add "Microsoft Office Access", "*.accdb;*.accda;*.accde"