Access Button On_Click VBA Error

[Mac1206]

I have this button and what I'm trying to do is make it auto-populate the Move, Paid, and Complete check boxes when the form is filtered...The button works but I get a VBA error -21473552567 (800020009) on Me.Completed = Me.Moved And Me.Paid...Any suggestions?


Private Sub BtnMMMComplete_Click()

DoCmd.OpenQuery "Update_TSMMMComplete"
Me.Completed = Me.Moved And Me.Paid


End Sub

 

[Joe4]

So, are “Completed”, “Moved”, and “Paid” just check boxes that you when checked then the button is clicked? If so, then try:

Private Sub BtnMMMComplete_Click()

    DoCmd.OpenQuery "Update_TSMMMComplete"
    Me.Completed = True
    Me.Moved = True
    Me.Paid = True

End Sub

 

[Mac1206]

Thanks, that work perfectly

 

[Joe4]

You are welcome.