Delete Record based on date

[Basenji3]

I would like to stop users from deleting the first day of the month in a form. I'm running into an error of Object Required "Set X =1". Not sure what I'm missing.

Dim Day As Integer
Dim db As Database
Dim tdf As TableDef
Dim X As Integer
 
Set db = CurrentDb()
Set tdf = db.TableDefs("tblPTO")
Set X = 1
 
If tdf.Fields("Day") = X Then
    Exit Sub
 
Else
 
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord
 
   MsgBox ("Message goes here")
End If
 

[jforbes]

I'm not sure what you are attempting to do here. TableDefs isn't usually used in this manner.

If you want to look up values in the table, you could use DLookup(). Or if you want to see what the Value is for the current record, you can use me!Day

[PhilOfWalton]

I agree wit jforbes.
What date fields (if any) are in your table?

In any case use X = 1, not Set X = 1

Phil

[Basenji3]

Sorry if I didn't explain it well enough. I have a form that opens with the 1st of each month as default. If a user adds other dates, that's fine, but if they delete the 1st, this causes issues with all the reports, I need at least one date per month for it to work correctly. So, I'm trying to stop them from deleting the default date. In the form the date is named "day".

[PhilOfWalton]

Try this on the OnDelete of the record

Private Sub Form_Delete(Cancel As Integer)
    If Day(MyDate) = 1 then
        Cancel = True
    End If
End Sub
 

"MyDate" is whatever the relevant date field on your form is called.

Phil