Compile Error that I can't seem to get around in Button Click function

[kmarks247]

I have the following code that I've built thru some help and searching here on this forum (Thanks a million to all the great help here). I'm getting a Compile error: Invalid outside procedure message box on the "Set objFileDialog =" line.

Dim strPath As String
Dim strFile As String
Dim strTable As String
Dim strSpecification As String
Dim intImportType As AcTextTransferType
Dim blnHasFieldNames As Boolean
Dim objFileDialog As Office.FileDialog

Set objFileDialog = Application.FileDialog(MsoFileDialogType.msoFileDialogFolderPicker)
 
'**** Modify these values as needed ****
strTable = "Daily Aeppays Consolidated"
strSpecification = "DailyAeppayImport"
blnHasFieldNames = True
intImportType = acImportDelim
'***************************************
 
'Let user select a folder
With objFileDialog
  .AllowMultiSelect = False     'Meaningless, but set anyway
  .ButtonName = "Folder Picker"
  .Title = "Folder Picker"
     If .Show Then
       strPath = .SelectedItems(1) & "\"
 
       'Loop through the text files
       strFile = Dir(strPath & "*.txt")
         Do While strFile <> ""
           'For Testing purposes only
           DoCmd.TransferText intImportType, , strTable, strPath & strFile, False
         strFile = Dir
         Loop
     End If
End With

Any idea where to move it or how to get around this? I need this code to work on the click of the button which it begins to, but then hits the error on this particular line.

Thanks!

[baderms]

Have you referenced the object library. If not, from the code window select tools and select Microsoft Office xx Object Library, then it will compile.

[baderms]

you also need to make sure it's in a procedure such as

public function whatever
your code
exit function

[kmarks247]

Just checked the Object Library and everything seems fine there. I put the code into a Private Function On Click() with exit function at the end and still getting same error. Going to keep plugging away at it. Thanks for your suggestions!

[baderms]

Put this in the click event of the button

    Call GetFile

put this into a module

Public Function GetFile() As Boolean
    On Error GoTo Proc_Err
    
    Dim strPath             As String
    Dim strFile             As String
    Dim strTable            As String
    Dim strSpecification    As String
    Dim intImportType       As AcTextTransferType
    Dim blnHasFieldNames    As Boolean
    Dim objFileDialog       As Office.FileDialog
    
    Set objFileDialog = Application.FileDialog(MsoFileDialogType.msoFileDialogFolderPicker)
    
    '**** Modify these values as needed ****
    strTable = "Daily Aeppays Consolidated"
    strSpecification = "DailyAeppayImport"
    blnHasFieldNames = True
    intImportType = acImportDelim
    '***************************************

    'Let user select a folder
    With objFileDialog
        .AllowMultiSelect = False 'Meaningless, but set anyway
        .ButtonName = "Folder Picker"
        .Title = "Folder Picker"
        If .Show Then
            strPath = .SelectedItems(1) & "\"
            'Loop through the text files
            strFile = Dir(strPath & "*.txt")
            Do While strFile <> ""
            'For Testing purposes only
            DoCmd.TransferText intImportType, , strTable, strPath & strFile, False
            strFile = Dir
            Loop
        End If
    End With
    
Proc_Exit:
    Exit Function
    
Proc_Err:
    MsgBox "Error Nbr. " & Err.Number & vbCrLf & _
           "Line Nbr. " & Erl & vbCrLf & vbCrLf & _
           Err.Description, vbExclamation, "Mod: Common.GetFile"
    Resume Proc_Exit
    
End Function

[NeoPa]

Can I assume you've already looked at Select a File or Folder using the FileDialog Object?

PS. Welcome to the club Baderms. Alweays good to see new members answering questions :-)