I have a form from where I would like to delete all records before a specified date, the form has a text field and command button that should delete records in the database older than 3 months but it does not delete the records.
the code on my form is as follows
Private Sub Form_Load() Dim test As String test = DateAdd("m", -3, Now) 'this uses the current date and subtract 3 months Text1.Text = test Text1.Text = Format$(test, "mm/dd/yyyy") End Sub Private Sub Command1_Click() Dim cs As New ADODB.Connection Dim rec As New ADODB.Recordset Dim flds As New ADODB.Recordset cs.ConnectionString = "Provider =Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & "C:\Program Files\Hazmat Control\HazMat.mdb" cs.Open Dim date1 As String cs.BeginTrans cs.Execute "DELETE * From ControlDetailsA where Date <= " & Text1.Text 'date is the field in the access table cs.CommitTrans End Sub
If I however change the code to delete by control number then it is successful. Looks like I am missing something when trying to use the date field to select the records.