Salve a tutti,
potreste aiutarmi nella realizzazione di una barra dei menu...da codice possibilmente...che compaia solo per la mia applicazione e non mi vada a personalizzare access in genere?
Ho provato a crearne una nuova e ad assegnargli il codice al clik del pulsante (come da guida su onaction..) ma la funzione viene eseguita sempre..nn capisco perké...
questo il codice..
Dim myMenuBar As CommandBar
Set myMenuBar = CommandBars.ActiveMenuBar
If myMenuBar.Name = "Gazzetta Ufficiale" Then
Else
Set myMenuBar = CommandBars.Add(Name:="Gazzetta Ufficiale", Position:=msoBarTop, menubar:=True)
With myMenuBar
.Protection = msoBarNoMove
.Visible = True
End With
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _
Temporary:=True)
newMenu.Caption = "Gazzetta Ufficiale"
Set ctrl1 = newMenu.Controls _
.Add(Type:=msoControlButton, Id:=1)
ctrl1.Caption = "Esci"
ctrl1.TooltipText = "Esci"
ctrl1.Style = msoButtonCaption
ctrl1.OnAction = Mes
End If
dove mes è la funzione che genera un messagio..
Grazie
Vane
Rispondi quotando