MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
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
|Access 2016 - Labels prompt to print||4||30|
|How can I Flash a mandatory field in Access Form?||13||45|
|ACCESS 2010 - VBA - generic Table Open Button - Code||7||19|
|ms access filter query with empty combobox||5||28|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!