Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.