Add attachment with VBA code, getting bug (1 Viewer)

[SachAccess]

Hi,
I am trying to add attachment through a button on a Form. I have copied below code (forgot to copy the URL) for my use.
Am getting bug at below line.
'With Application.FileDialog(msoFileDialogFilePicker)'

I am getting bug as Method 'FileDialog' of object '_Application failed.
Can anyone please help me with this. Thanks.

Private Sub Btn_AttachFile_Click()
  Dim varFile As Variant
 
    With Application.FileDialog(msoFileDialogFilePicker)
        With .Filters
            .Clear
        End With
        
        .AllowMultiSelect = False
        .InitialFileName = vbNullString
        .InitialView = msoFileDialogViewDetails
        
        If .Show = True Then
                For Each varFile In .SelectedItems
                Me![File] = varFile
                Next
            Else
                MsgBox "No file attached ! "
        End If
    End With
End Sub

 

[Gasman]

Did the link say you had to set a particular reference?

Application.FileDialog property (Access)

Office VBA reference topic

docs.microsoft.com

 

[Kayleigh]

I don't think you should have a space before the .FileDialog

 

[SachAccess]

Did the link say you had to set a particular reference?

Application.FileDialog property (Access)

Office VBA reference topic

docs.microsoft.com

Hi @Gasman sir, thanks a lot for the help. Reference for MS Office 16.0 Object Lib should have been added.
It is working great now.

 

[SachAccess]

I don't think you should have a space before the .FileDialog

Hi @Krayna , thanks for the help, it was my mistake, reference should have been added.