Contextual Guidance at the moment of need helps your employees adopt to new software or processes instantly. Boost knowledge retention and employee engagement step-by-step with one easy solution.
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
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.