Problem Displaying Comment Box Using Check Box as Trigger

[Debased]

I have a check box on a form that is set to open a comment box if the check box value = true. This part works fine. When I check the box, the comment box opens. The problem is, once the form is closed and then reopened, the comment box for those records where the value = true does not display. You have to uncheck then check the box to view the comments.

I am using this code: (Other =check box; txtOther=Comment box)

Private Sub Other_BeforeUpdate(Cancel As Integer)
'Causes comment text boxes to appear if corresponding chk box is checked.

If Other.Value = True Then
txtOther.Visible = True
Else
txtOther.Visible = False
End If

End Sub

I have tried putting the code also in the Form’s Open event however, that does not work.

Any suggestions?
Thanks

 

[Kodo]

you need to check OnCurrent as well for the form.

 

[Debased]

Thanks Kodo! It works great!