Do you work with and analyze data? Enroll in October's Course of the Month for 7+ hours of SQL training, allowing you to quickly and efficiently store or retrieve data. It's free for Premium Members, Team Accounts, and Qualified Experts!
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.