I am not a coder but have a 2003 MSAccess database that uses Visual Basic. I am trying to run a subroutine in Access 2007 and later Access versions and it hangs up. Can someone give me replacement code for With Application.FileSearch?
Specifically the section of code reads:
Private Sub btnFind_Click()
Dim i As Integer
Dim rstCollections As New Recordset, rstPictures As New Recordset
DoCmd.Hourglass True
CurrentProject.Connection.Execute "Delete from Pictures"
With Application.FileSearch
.NewSearch
.LookIn = CurrentProject.Path & "\Pictures"
.SearchSubFolders = False
.FileName = "*.*"
.FileType = msoFileTypeAllFiles
AND then goes on to the rest of the code routine.
DO you need the entire string of code? It's not that long.
THANKS
Specifically the section of code reads:
Private Sub btnFind_Click()
Dim i As Integer
Dim rstCollections As New Recordset, rstPictures As New Recordset
DoCmd.Hourglass True
CurrentProject.Connection.Execute "Delete from Pictures"
With Application.FileSearch
.NewSearch
.LookIn = CurrentProject.Path & "\Pictures"
.SearchSubFolders = False
.FileName = "*.*"
.FileType = msoFileTypeAllFiles
AND then goes on to the rest of the code routine.
DO you need the entire string of code? It's not that long.
THANKS