With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
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.
Connect with top rated Experts
15 Experts available now in Live!