Hide Label and Text Box based off Combobox criteria

[Robby19]

I am trying to hide a label and text box if a combo box, within the same form, is blank or "No."

Private Sub Form_Current() If Not Me.NewRecord Then
  If IsNull(Me!comCFTWaiver) Then
   Me!txtCFTWaiverAppr.Visible = False
   Me!Label81.Visible = False
  Else
   Me!txtCFTWaiverAppr.Visible = True
   Me!Label81.Visible = True
  End If
 Else
  Me!txtCFTWaiverAppr.Visible = True
  Me!Label81.Visible = True
 End If
 End Sub

Can you provide assistance. Using Access 2013.

 

[Yongle]

Try this syntax

If Me.comCFTWaiver.Value = "" Then
    Me.txtCFTWaiverAppr.Visible = False
    Me.Label81.Visible = False
Else
    Me.txtCFTWaiverAppr.Visible = True
    Me.Label81.Visible = True
End If

 

[Robby19]

No such luck

 

[Yongle]

I tested my code (in Access)
Perhaps if you follow the exact same steps to get it to work and then modify to suit your own requirements

1. create a new user form
(mine was auto-named UserForm1)

2. add combobox and rename it comCFTWaiver

3. add textbox and rename it txtCFTWaiverAppr

4. add label and rename it Label81

5. add command button

6. add the code below in UserForm code window

7. test it - clicking the command button toggles textbox & label visibility

Private Sub [COLOR=#000080]comCFTWaiver[/COLOR]_Change()
If Me.[COLOR=#000080]comCFTWaiver[/COLOR].Value = "" Then
    Me.[COLOR=#4b0082]txtCFTWaiverAppr[/COLOR].Visible = False
    Me.[COLOR=#008000]Label81[/COLOR].Visible = False
Else
    Me.[COLOR=#4b0082]txtCFTWaiverAppr[/COLOR].Visible = True
    Me.[COLOR=#008000]Label81[/COLOR].Visible = True
End If
End Sub

Private Sub CommandButton1_Click()
If Me.[COLOR=#000080]comCFTWaiver[/COLOR] = "" Then Me.[COLOR=#000080]comCFTWaiver [/COLOR]= "XXX" Else Me.[COLOR=#000080]comCFTWaiver[/COLOR] = ""
End Sub

Private Sub UserForm_Initialize()
    Me.txtCFTWaiverAppr.Visible = False
    Me.Label81.Visible = False
End Sub

 

[welshgasman]

Try

If Not Me.NewRecord Then
    Me.txtCFTWaiverAppr.Visible = NOT Nz(Me.comCFTWaiver,"No")="No"
    Me.Label81.Visible = NOT Nz(Me.comCFTWaiver,"No")="No"
End If

HTH