Checkbox

[Wallie]

This doenst work the way i want:
Private Sub Form_Load()
If IsNull(Form_form.text1) Then
Form_form.chkb.Value = 1 'True doesnt work
Else
Form_form.chkb.Value = 0 ' False doenst work
End If
End Sub

When the form is opened i want to check if a textfield is empty(null) or not. If its empty do no check the checkbox; if not empty do check the checkbox.

Ideas ?

Thanx

 

[ColinEssex]

You might need to put the code on current especially if you scroll through records and want to check each one.

The code should be something like

If Me.TextBox = Null then
me.TickBox = 1
else
me.Tickbox = 0
end if

not sure if you need to put "" in place of the word Null - I get confused about that

Col

 

[Rich]

Set the check box control source to=Iif([text1],False,True)

 

[Pat Hartman]

The numeric value of True is -1 NOT 1.