Problem hiding button on Form_Current event 2

[Gfunk13]

The code below hides btnNxt whether ProdDate is today or not:

Private Sub Form_Current()
If Me!ProdDate = Date Then
Me!btnNxt.Visible = False
Else
Me!btnNxt.Visible = True
End If

On another form, I am using the following code which works fine:

Private Sub Form_Current()
If Me!Text1 = Date Then
Me!btnNextRec.Visible = False
Else
Me!btnNextRec.Visible = True
End If

I haven't mistyped the control names and the properties match almost exactly for both controls on both forms. Even the the properties in the tables behind the control source match.

 

[PHV]

You may try this:
If Me!ProdDate = VBA.Date Then

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[RuralGuy]

It sounds like some sort of corruption. Delete all of the Current event code you posted and then Compact and Repair. Then key it in again and see what happens.

HTH RuralGuy (RG for short) acXP winXP Pro
Please respond to this forum so all may benefit

 

[Gfunk13]

Thanks guys.

This worked: If Me!ProdDate = VBA.Date Then

 

[RuralGuy]

You should not have to disambiguate Date, though it seems to have worked for you. I suspect you have used the reserved word Date somewhere as a function or sub or variable and have confused Access.

HTH RuralGuy (RG for short) acXP winXP Pro
Please respond to this forum so all may benefit