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