show text box if tick box is selected

[zac123]

thanks again.



i think you might be seeing me more often on here

[peasoup42]

zac123-

It's been almost 4 years since you figured this out and I'm hoping that you're still on here. :-)

The references you put, chk_, lbl_, txt_, did you make the fields in the database that name? Is this something that the code assigns? I'm new to Access, and I'm trying to figure out basically the same action (click a check box and the appropriate data entry boxes and labels appear on the form). Here's my names:

Database name: Table1
Form Name: Add Event
Check box name: CinderTM
Data box labels to appear: Cinder1C-Freq, Cinder1C-Bits, Cinder1C-Mod, Cinder1C_Ext_Data_Dest1, Cinder1C_Ext_Data_Dest2,....Dest5
Data box field to appear: Cinder1C-Freq, Cinder1C-Bits, Cinder1C-Mod, Cinder1C_Ext_Data_Dest1 (Checkbox),....Dest5

Much appreciated as I've been beating my head on my desk for days now. Labels & Data boxes constantly appear and can't hide them.

Steve

Option Compare Database
Option Explicit

Private Sub chk_AlarmResponse_AfterUpdate()
If Me![chk_AlarmResponse] = -1 Then
Me![txt_CallReceived].Visible = True
Me![lbl_CallReceived].Visible = True
Else
Me![txt_CallReceived].Visible = False
Me![lbl_CallReceived].Visible = False
End If
End Sub

Private Sub Form_Current()
If Me![chk_AlarmResponse] = -1 Then
Me![txt_CallReceived].Visible = True
Me![lbl_CallReceived].Visible = True
Else
Me![txt_CallReceived].Visible = False
Me![lbl_CallReceived].Visible = False
End If
End Sub