A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.
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 Command103_Click() Dim strSQL As String Dim dtmNextDate As Date If Me.cboEmp.ListIndex = -1 Then MsgBox " Please select employee" Me.cboEmp.SetFocus Exit Sub End If If Me.txtEnd & "" = "" Then MsgBox " Please select start date" Me.txtStart.SetFocus Exit Sub End If If Me.txtStart & "" = "" Then MsgBox " Please select end date" Me.txtEnd.SetFocus Exit Sub End If dtmNextDate = Me.txtStart Do Until dtmNextDate = Me.txtEnd + 1 strSQL = "DELETE * FROM tblEmpTimeOff WHERE etoDate BETWEEN #" & Me.txtStart & "# AND #" & Me.txtEnd & "#" CurrentDb.Execute strSQL, dbFailOnError dtmNextDate = dtmNextDate + 1 Loop Me.cboEmp = "" Me.cboReason = "" Me.txtEnd = "" Me.txtStart = "" MsgBox "Records Deleted, Thank You" End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Count of values in access||2||29|
|Update target table column value when source table column value is different||3||17|
|VBA code to use a table to create a new temp table with a column added||4||31|
|Access 2010 - Open New Form-Add Record-Close NewForm-Update Orginal Form Field Fron New Form||15||36|