Blockchain expert Alex Tapscott talks to Acronis VP Frank Jablonski about this revolutionary technology and how it's making inroads into other industries and facets of everyday life.
Private Sub clockout1_Click() If emp_id >= 1 And process_id >= 1 Then lngAnswr2 = MsgBox("Is your Entry Correct ?", vbOKCancel + vbQuestion) If lngAnswr2 = vbOK Then ' User chose Yes. CurrentDb.Execute "UPDATE dbo_timeclock SET clockout = Now() WHERE Emp_ID = " & Me.emp_id & " AND IsNull(clockout)" Me.Refresh Me.SetFocus DoCmd.Close ' update timeclock table with clockout time and close form Else ' User chose No. Me.Undo MsgBox "You have canceled your ClockIn!", _ vbExclamation, "ClockIn Canceled!" Set Me.Recordset = Nothing DoCmd.CancelEvent ' DoCmd.Close End If Else MsgBox "Please Make sure you have entered your Clock Number!", _ vbExclamation, "Did you forget your ClockIn #?" End If 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.