Hello all,

I have 13 check boxes on a form.

I am trying to check all the check boxes to determine if they are true or false when I close the form.

At present only the first IF...Then...Else works and then Exits the Sub.

Example:

If Me.First = True Then
Me.FieldName = "Yes"
Else: Me.FieldName = "No"
End If

If Me.Second = True Then
Me.FieldName = "Yes"
Else: Me.FieldName = "No"
End If

If Me.Third = True Then
Me.FieldName = "Yes"
Else: Me.FieldName = "No"
End If
....
Total of 13 check Boxes to be checked on Form Close.

I have tried with only one End If statement at the end to no luck.

Thank you for your help.

Glen

I would try these alternatives to your original
If Me.First = True Then
Me.FieldName = "Yes"
Else: Me.FieldName = "No"
End If

I think you're tempting trouble to find you
by using the ":" to get a single line.

1)
If Me.First = True Then
Me.FieldName = "Yes"
Else
Me.FieldName = "No"
End If

2)
If Me.First = True Then
Me.FieldName = -1
Else
Me.FieldName = 0
End If

3) If Me.First = True Then
Me.FieldName = True
Else
Me.FieldName = False
End If

++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++
To send email, remove all < > and [ ] and the junk ~ between:
[brucepick1]
< a~t >
[comcast.net]


GMKS wrote:

Oh, I didn't catch this -

If your text boxes are named "First", Second", etc, you should code as
If Me!First = True Then

Using ! instead of . for all references to form controls.

Someone wrote that Access is pretty forgiving when using the wrong
separator, but maybe not always.

If your controls are named the same as the field names, you should
change them, say to txtFieldName, so there is never any confusion as to
whether you're referencing the control or the field in the data source.

I usually rename any such control before referencing it in VBA code. If
never referencing it, I'm content to leave the name alone. Access puts
in those copied names when you drag a field in from the field list. If
you build it manually from the Toolbox, it gives it a name like "Text28".

Bruce Pick
++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++
To send email, remove all < > and [ ] and the junk ~ between:
[brucepick1]
< a~t >
[comcast.net]


GMKS wrote: