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.
If rs1.RecordCount > 0 Then 'Check for .ldb file - the APDMS_MDB in use or left open by user strSQL3 = "Select ObjectName, ObjectType from tblExportList" Set rs3 = curdb.OpenRecordset(strSQL3) rs3.MoveFirst Do Until rs3.EOF nObjName = rs3.Fields("ObjectName") nObjType = GetObjectTypeConstant(rs3.Fields("ObjectType")) 'Replaces existing Database objects with revised versions. DoCmd.TransferDatabase acExport, "Microsoft Access", gAPFilePath, nObjType, nObjName, nObjName rs3.MoveNext Loop
Join the community of 500,000 technology professionals and ask your questions.