Run-Time error '48' Error In loading DLL

[yamism]

Good Morning,

We are facing problem to run the below code for adding attachment;





Private Sub Command7_Click()



Dim i As Integer

Dim vrtSelectedItem As Variant



Dim dlgOpen As FileDialog



Set dlgOpen = Access.Application.FileDialog(msoFileDialogOpen)



With dlgOpen

dlgOpen.AllowMultiSelect = True

dlgOpen.Show

End With

msg = "Selected Files are:" & vbNewLine

For Each vrtSelectedItem In dlgOpen.SelectedItems

msg = msg & ";" & vrtSelectedItem '& vbCrLf

Next

ReDim strAttach(1 To dlgOpen.SelectedItems.Count) As String



For i = 1 To dlgOpen.SelectedItems.Count

strAttach(i) = dlgOpen.SelectedItems(i)

Next i





Set dlgOpen = Nothing





Text4.SetFocus

Text4.Text = Mid(msg, 2, Len(msg))

End Sub

[Mahesh_Bote]

please check the proper reference. may be some ref are missing.