J
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
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