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.
Private Sub cmdqraAttendance_Click() On Error GoTo Err_cmdqraAttendance_Click Dim stDocName As String Dim AttDate As Date Me.Refresh 'Turn Hourglass On DoCmd.Hourglass True 'Turn Warnings Off DoCmd.SetWarnings False 'Append records to tblAttendance stDocName = "qraAttendance" DoCmd.OpenQuery stDocName, acNormal, acEdit 'Clear tblEmployees stDocName = "qrupdEmployees" DoCmd.OpenQuery stDocName, acNormal, acEdit AttDate = Me.txtAttDate + 1 Me.txtAttDate = AttDate MsgBox "Attendance Updated" 'Turn Hourglass Off DoCmd.Hourglass False 'Turn Warnings On DoCmd.SetWarnings True Me.SetFocus Exit_cmdqraAttendance_Click: Exit Sub Err_cmdqraAttendance_Click: MsgBox Err.Description Resume Exit_cmdqraAttendance_Click End Sub
|Looking for VBScript (use in MS Access 2007-2010) on a workstation Win 7, to create a shared folder on Win Server 2016.||16||44|
|MS Access Why isn't the relationship ID being copied when an input is made?||7||24|
|Search Form not Querying||2||12|
|MS Access 2016 - Export Reports to PDF with dynamic criteria (seperate by office)||14||27|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
20 Experts available now in Live!