MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Public Sub buildTablesAndTimeStamps() ' Dim pathAndMDBName As String Dim MDBName As String Dim currPath As String Dim linkedDrive As String Dim linkedPath As String ' linkedPath = getLinkedPath linkedDrive = Mid(linkedPath, 1, 1) ' currPath = GetProcMDBPath currPath = linkedDrive & Mid(currPath, 2) ' ClearTable ("tblCheckTableTimeStamps") ' Dim MySearch As Office.FileSearch Dim intI As Integer, strList As String, strPath As String strPath = currPath '"C:\" Set MySearch = Application.FileSearch With MySearch .NewSearch 'initialize search (clear old settings) .LookIn = strPath 'start point for search .FileName = "CI*.MDB" 'file name (takes wildcards) .SearchSubFolders = False 'scan folders inside first folder .Execute '.FoundFiles contains the list of filenames found as a collection For intI = 1 To .FoundFiles.Count pathAndMDBName = .FoundFiles(intI) MDBName = Trim(Replace(pathAndMDBName, strPath, "")) ' ' Do not add 'Over' tables since they aren't updated every day anyway ' If InStr(1, MDBName, "over") > 1 Then Else addAuditTable pathAndMDBName, MDBName End If 'Debug.Print .FoundFiles(intI); " "; MDBName Next intI End With ' End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|How to show the Record Number on a Sub-Form just like Running Sum In a Report?||17||63|
|MS Access - Undefined function 'Format' in expression.||14||46|
|MIgrating Access 2003 to Access 2013, What changes are required?||7||40|
|How to develop custom ribbon bars for each form in an app in Access 2016?||8||18|