Update field using a checkbox action

[MontgomeryPete]

Hello:

I am trying to update a field based on the action taken on a checkbox as follows:

Private Sub Dispatched_AfterUpdate()
Dim strSQL As String
Set strSQL = "UPDATE Ride SET TimeDispatched = Now()"
DoCmd.RunSQL strSQL

End Sub

The error message returned is Object required (Error 424)and the Set strSQL is highlighted.

I can't seem to get around the debug statement.

Any thoughts?

Pete

 

[ZmrAbdulla]

I'd go with something like this. I assume the "TimeDispatched" is a bound control

Private Sub Dispatched_AfterUpdate()
    If Me.Dispatched.Value = -1 Then
        Me.TimeDispatched = Now
    Else
        Me.TimeDispatched = ""
    End If
End Sub

________________________________________________________
Zameer Abdulla
Help to find Missing people

 

[TheAceMan1]

How are ya MontgomeryPete . . .

[blue]strSQL[/blue] is a string, not an object! You Set objects! So you simply need:

[blue]   strSQL = "UPDATE Ride SET TimeDispatched = Now()"[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997

 

[MontgomeryPete]

Thnaks to both ZmrAbdulla and TheAceMan1 for different but good answers to the questions. Thanks much for the fast response.
Pete