Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
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
|Exporting from Access 2016 to a CSV file||4||47|
|Access 2010 get Name of local computer from Terminal server||19||48|
|Insert query not working with a linked sharepoint table with a multi-value field||10||13|
|Access 2016 - combo box||3||15|