Lavenderchan
Technical User
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
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