VBA Code for Autofill Checkbox not working

[Lavenderchan]

Hello,

I have this code to autofill the check box if a property that is in its table is selected. I put this code in the after update event on the field and its not working. I am not sure what I am missing.
Thanks,
Keri
Private Sub Is_RD_Property_AfterUpdate()
Dim FillCheckBoxSQL As String
Dim CheckBoxHMO As Boolean
Const QtString As String = ""

CheckBoxHMO = True

FillCheckBoxSQL = "INSERT [RD Properties]([Property Name]) VALUE(" & CheckBoxHMO & ")"

DoCmd.RunSQL = FillCheckBoxSQL
End Sub

 

[randy700]

How about...

DoCmd.RunSQL FillCheckBoxSQL

Randy

 

[Lavenderchan]

Hello Randy so I need to take the = sign out of the last line of the code?
Thanks,
Keri

 

[PHV]

Anyway your SQL code has syntax error ...
BTW, you want an INSERT or an UPDATE ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886