Trying to change a Font Size

[Joseph Udell]

Good Morning,
I'm trying to change a Fontsize after clicking a menu Item. The user
selects one of five options and it updates a SubForm. After Updating the
SubForm, I would like the font size to change as a visual cue. I have
copied the script below. I have it broke into two subs. Access kicks out
an error that reads: The expression On Click you entered as the event
proprty produced the following error: Member already exists in an object
module from which this object module derives.

Any help would be appreciated.

Private Sub MetNav_Click()
Me.SubMenu.SourceObject = "Menu-MetNav"
End Sub


Private Sub MetNav()
If Me.SubMenu.SourceObject = "Menu-MetNav" Then
Me.MetNav.FontSize = "16"
End If

End Sub

[Matthew Sullivan]

Joseph:

It appears that you have a Sub named "MetNav" AND a Control named
"MetNav". When I set up a sample form like that, I get the error you
describe.

So: rename MetNav().

-Matt


On Tue, 8 Jul 2003 07:57:07 -0500, "Joseph Udell"
<udellj@eglin.af.mil> wrote:

>Good Morning,
> I'm trying to change a Fontsize after clicking a menu Item. The user
>selects one of five options and it updates a SubForm. After Updating the
>SubForm, I would like the font size to change as a visual cue. I have
>copied the script below. I have it broke into two subs. Access kicks out
>an error that reads: The expression On Click you entered as the event
>proprty produced the following error: Member already exists in an object
>module from which this object module derives.
>
>Any help would be appreciated.
>
>Private Sub MetNav_Click()
> Me.SubMenu.SourceObject = "Menu-MetNav"
>End Sub
>
>
>Private Sub MetNav()
> If Me.SubMenu.SourceObject = "Menu-MetNav" Then
> Me.MetNav.FontSize = "16"
> End If
>
>End Sub
>