Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Sub btnUpdate_Click() Dim strSQL As String Dim dtmNextDate As Date dtmNextDate = Me.txtStart Do Until dtmNextDate = Me.txtEnd + 1 strSQL = "INSERT INTO tblEmpTimeOff (etoDate,eto_EmpID,etoReasonCode) VALUES(" & "#" & dtmNextDate & "#" & ", " & Me.cboEmp & ", " & Me.cboReason & ")" CurrentDb.Execute strSQL, dbFailOnError dtmNextDate = dtmNextDate + 1 Loop Me.cboEmp = "" Me.cboReason = "" Me.txtEnd = "" Me.txtStart = "" MsgBox "Input Recieved, Thank You" 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.