How can I delete fields which are older than 30 days and save these to backup?? I can delete all fields now..
Private Sub Command2_Click()
Dim msg As String
msg = MsgBox("Are you sure?", vbYesNo)
If msg = vbYes Then
Dim db As Database, rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Table")
db.Execute "DELETE * FROM
;"
rs.Close
db.Close
Else
msg = vbNo
End If
End Sub
Private Sub Command2_Click()
Dim msg As String
msg = MsgBox("Are you sure?", vbYesNo)
If msg = vbYes Then
Dim db As Database, rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Table")
db.Execute "DELETE * FROM
rs.Close
db.Close
Else
msg = vbNo
End If
End Sub