Error #438 Runtime Error

[Peachstone]

I'm using Windows XP and MS Access 2002. I am trying to write code in VB which is attached to a text control on a form called "Scripture1". I have another text control on the same form called "Scripture1Means" on which the control visible property is set to "No".

On the "On Got Focus" event of the control, "Scripture1", I have wrtten the following VB:

Private Sub Scriptures_GotFocus()
     If Me!Scripture1Means.Visible = False Then
       Me!Scripture1Means.Visible = True
     End If
End Sub

In Form View, when I click on the "Scripture1" control, I expect "Scripture1Means" to become visible, but instead I receive the error:
"Runtime Error #438: Object doesn't support this property or method."

In the error window there is a " Help" button which, when pressed, brings this confusing message:

Not all objects support all properties and methods. This error has the following cause and solution:
You specified a method or property that doesn't exist for this Automation object.
See the object's documentation for more information on the object and check the spellings of properties and methods.
You specified a Friend procedure to be called late bound.
The name of a Friend procedure must be known at compile time. It can't appear in a late-bound call.
For additional information, select the item in question and press F1 (in Windows) or HELP (on the Macintosh)."

In the past I have successfully used the same visible method. However on Google, one of the responses indicated that, using an older version of Access (2002), sometimes Windows makes an update that causes certain controls to have to be resomethingorother. That made sense to me. My version of Access is Microsoft Access 2002 (10.6771.6830) SP3

I will be very thankful to anyone who can shed some light on this behavior.

[Scott Price]

As there is nothing actually wrong with your written code, there must then be something preventing Access from executing the code in the place you have it!

As an interesting exercise place something like this just before the code in question:

If Me.Dirty = True Then
Dim MeDirt As Integer
MeDirt = 1
Debug.Print MeDirt
Me.Dirty = False
End If 

Then run the code, and check your Immediate window in the VBA editor. If 1 shows up, and the .Visible code executes fine, then you've solved the problem :-)

You can then erase lines 2 through 4 as they are really nec only for debugging.

Regards,
Scott

[NeoPa]

Have you renamed the first control from "Scriptures" to "Scripture1" by any chance?
The event procedure name doesn't match the name you've given us.
Also, what type are the controls? Not all controls have the same attributes so it's hard to check unless we know which it is.

[NeoPa]

Also, as you (probably) want the Scripture1Means control to disappear when the focus is lost I would change the code to something similar to :

Private Sub Scripture1_GotFocus()
  Me!Scripture1Means.Visible = (Not Me!Scripture1Means.Visible)
End Sub