Hi,
I am working with Microsoft Access 2010. I have an application which was developed in Access 2003 and is using the Application.FileSearch command.
This command is not present in Access2010 please could anyone check and update the code to cater for the FileSearch..
Thank yoo ever so much
I am working with Microsoft Access 2010. I have an application which was developed in Access 2003 and is using the Application.FileSearch command.
This command is not present in Access2010 please could anyone check and update the code to cater for the FileSearch..
Code:
Sub Search2()
On Error GoTo Search_Err
Dim strPrompt As String, strTitle As String
ChDir AttachmentPath ' Changes directory to new file path
Dim i As Integer
With Application.FileSearch
.LookIn = AttachmentPath
.FileName = Fname
If .Execute > 0 Then
AttachST = 1
Else
AttachST = 0
Exit Sub
End If
End With
Search_Exit:
Exit Sub
Search_Err:
MsgBox "File Path Not Found (" & Error$ & ")", vbInformation, vbNullString
Resume Search_Exit
End Sub