Pass the current form name to a function within a module

Hi

I am trying to send the current form name to a function when the OnCurrent event occurs. I am currently using the following code which is producing an error:

On Current
=LoadArray([Me])

and in my vba module...

Function LoadArray(FormName As Form)
    Set CurrentForm = FormName
etc
End Function

The error I am getting is "The object doesn't contain the automation object 'Me.'"

Where am I going wrong? Thanks in advance

Matt
mattryanjerseyAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Rey Obrero (Capricorn1)Commented:
remove the [ ]

On Current
=LoadArray(Me)


On Current
=LoadArray(Me.name)



0
ozinmCommented:
All you want is the form NAME passed?
If so, just use:

X(Me.Form.Name)


Function X(fn As String)
.....
0
mattryanjerseyAuthor Commented:
Thanks for your ideas, unfortunately all of the above create the same error message. I cannot seem to remove the square brackets. When I type, for example =LoadArray(Me) and then leave the input box they are added back in automatically. I'm using access 97 by the way.
0
Rey Obrero (Capricorn1)Commented:
in the On Current event of the form remove  =LoadArray(Me)
select Event Procedure from the drop down
then click on the (...)
place this in the VBA window

Private Sub Form_Current()
Call LoadArray(Me)
End Sub



0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.