<div>
remove the [ ]<br />
<br />
On Current<br />
=LoadArray(Me)<br />
<br />
<br />
On Current<br />
=LoadArray(Me.name)<br />
<br />
<br />
<br />

</div>


remove the [ ]

On Current
=LoadArray(Me)


On Current
=LoadArray(Me.name)





<div>
All you want is the form NAME passed?<br />
If so, just use: <br />
<br />
X(Me.Form.Name)<br />
<br />
<br />
Function X(fn As String)<br />
.....
</div>


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

X(Me.Form.Name)


Function X(fn As String)
.....

<div>
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.
</div>


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.

<div>
<div class="content wysiwyg-content">
Hi<br />
<br />
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:<br />
<br />
On Current<br />
=LoadArray([Me])<br />
<br />
and in my vba module...<br />
<br />
Function LoadArray(FormName As Form)<br />
&nbsp; &nbsp; Set CurrentForm = FormName<br />
etc<br />
End Function<br />
<br />
The error I am getting is &quot;The object doesn't contain the automation object 'Me.'&quot;<br />
<br />
Where am I going wrong? Thanks in advance<br />
<br />
Matt
</div>
</div>


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

Pass the current form name to a function within a module

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.