VBA code is not working with a change of record

[ihateaami]

I have the following VBA code

Private Sub Form_Open(Cancel As Integer)
If Me.Text25 = "Theme" Then
Me.Text53.Visible = True
Me.Label54.Visible = True
Else
'MsgBox (test)
Me.Text53.Visible = True
Me.Label54.Visible = True
End If


End Sub

This code works fine when the form initially opens. However when I select another record I want the code to look at the value in textbox 25 and make textbox 53 visible if the value in textbox 25 has the text value Theme.

I have tried a number of ways to get this to work including putting the code in other areas and using me.requery.

[RuralGuy]

Two points. The Open event is too early in the process to reference a control on a form so you would need to use the OnLoad event. The other point is your code belongs in the Current event of the form so it executes every time you go to a new record, including the 1st time.

[ihateaami]

thanks, that works now. The code I initially attached also has some errors it should be

Private Sub Form_Open(Cancel As Integer)
   If Me.Text25 = "Theme" Then
      Me.Text53.Visible = True
      Me.Label54.Visible = True
   Else
      Me.Text53.Visible = False
      Me.Label54.Visible = False
   End If
End Sub

[RuralGuy]

Glad we could help and I added [ code ] tags to your post to show how it helps the post. Try the link in my sig.

[Egemen]

try to write tis code in Form Current event.

Me.Text53.Visible = (me.text25="Theme")
Me.Label54.Visible = (me.text25="Theme")