Update Current Record when Checkbox is Checked

[carmenv323]

I am having trouble trying to update just the current record (refer to the Where statement) and I can't find anything to make it work.

I have a Continuous form with a list of records from a table. I'm using the OnClick Event of the checkbox.

Private Sub bDeleted_Click()If Me.Dirty Then Me.Dirty = False


   If Me.bDeleted = True Then
'   MsgBox Me.bDeleted.Value


        Set db = CurrentDb
                db.Execute "Update tblEOS Set tblEOS.[bDeleted]  =" & True & _
                     " where tblEOS.[RequestID] = " & Me.RequestID, dbFailOnError


    End If
       If Me.bDeleted = False Then
'       MsgBox Me.bDeleted.Value
        Set db = CurrentDb
                db.Execute "Update tblEOS Set tblEOS.[bDeleted]  = " & False & _
                     " where tblEOS.[RequestID] = " & Me.RequestID, dbFailOnError




        End If


End Sub

[Welshgasman]

Why are you concatenating True or False?, just include it in the string.
Put the sql into a string variable, the you can debug.print it until you get it right. The use that variable in the Execute.

[Bob Fitz]

If your form is bound to a table/query you don't need any code to update records. New data and edits are saved automatically.

[Welshgasman]

Any time you are duplicating code, there is generally a better way?

Private Sub bDeleted_Click()
Dim db As DAO.Database
Dim strSQL As String


'If Me.Dirty Then Me.Dirty = False
strSQL = "Update tblEOS Set tblEOS.[bDeleted]  = " & Me.bDeleted
strSQL = strSQL & " where tblEOS.[RequestID] = " & Me.RequestID
   
Debug.Print strSQL


Set db = CurrentDb
db.Execute strSQL, dbFailOnError


Set db = Nothing


End Sub

[carmenv323]

I understand. I removed all the coding after "If me.dirty..." and it's working.

Now on to Export this sucker, crossing fingers