Getting a label to Requery!

[Bob Vance]

This code works on my form when I select "Yes" but if I open my Form and
"Yes" is Slected my Label lblCashSale is not Visible , lblCashSale has a No
Visible set
Thanks Bob

If cmbCashSale.value = "Yes" Then
lblCashOn.Visible = True

Else
lblCashOn.Visible = False
End If

 

[Steve Schapel]

Bob,

I assume you mean you have this code on the After Update event of the
combobox?

You might need to put similar code on the form's Current event as well.

By the way, you can shortcut to just one line of code:

Me.lblCashOn.Visible = Me.cmbCashSale = "Yes"

 

[Bob Vance]

Thanks Steve , I had to use mine in current yours was giving me an
error.........Thanks Bob

Private Sub Form_Current()
Me.cmbCashSale.Requery
If cmbCashSale.value = "Yes" Then
lblCashOn.Visible = True

Else
lblCashOn.Visible = False
End If
End Sub

 

[Steve Schapel]

What was the error, Bob?

 

[Bob Vance]

Steve, Run time error 94, Invalid use of Null
Thanks Bob

 

[Steve Schapel]

I see, Bob. To take care of the situation where there is nothing
entered in the combobox, maybe you need:
Me.lblCashOn.Visible = Nz(Me.cmbCashSale, "") = "Yes"

 

[Bob Vance]

Thanks Steve, that got it done .............Regards Bob

 

[miss]

you don't speak french?

Thanks Steve , I had to use mine in current yours was giving me an
error.........Thanks Bob

Private Sub Form_Current()
Me.cmbCashSale.Requery
If cmbCashSale.value = "Yes" Then
lblCashOn.Visible = True

Else
lblCashOn.Visible = False
End If
End Sub