miro35 |
11.11.2013 09:26 |
Predmet:Acces2010 i skočni meni
Već radim sa access 2010 i programiram vlastite ribone itd..
Zna li neko kako napraviti skočni meni u access2010. Znači desni klik na nekoj formi i da se pojavi pop up meni za izbor neke komande.
Znam dobro kako se pravi u access2003. |
zxz |
11.11.2013 17:31 |
Predmet:Re: Acces2010 i skočni meni
Ja ne nadjoh mada na svom compu i nemam access 2010.
Jedino se moze napraviti u nizoj verziji napr. 2003 te impotovati u vecu verziju.
Tp sam probao i radi kako vaja pa ako hoces mogu malo bolje objasniti. |
roko |
11.11.2013 21:28 |
Predmet:Re: Acces2010 i skočni meni
ovo san radio pred godinu dve. mislim da ti u kodu ima više nego što ti treba.
kod ti ide na
Form_Load()
CreateShortcutMenuWithGroups ("LP")
ShortcutMenuBar = "cmdFormFiltering"
tu ima i nekih kombinacija i na reportu pa malo istraži
poz |
Prilozi: RClick.rar (Velicina datoteke:2.41 KB)
|
miro35 |
12.11.2013 11:18 |
Predmet:Re: Acces2010 i skočni meni
hvala ti evo gledam malo,na tragu sam rješenja. |
miro35 |
12.11.2013 12:56 |
Predmet:Re: Acces2010 i skočni meni
Evo našao sam i ovo možda nekom zatreba za Shortcat menu u access 2010.
Ovo ubaciti u neki modul:
PreuzmiIzvorni kôd (Text):Sub CreateContextMenu()
Dim cbr As CommandBar
Dim cbb As CommandBarButton
' Delete the command bar if it already exists
DeleteContextMenu
' Create a new command bar of type msoBarPopup
Set cbr = CommandBars.Add(Name:="MyBar", Position:=msoBarPopup)
With cbr
' Add first item
Set cbb = .Controls.Add(type:=msoControlButton)
With cbb
.Caption = "Item 1"
.Style = msoButtonCaption
.OnAction = "MyFunc1"
End With
' Add second item
Set cbb = .Controls.Add(type:=msoControlButton)
With cbb
.Caption = "Item 2"
.Style = msoButtonCaption
.OnAction = "MyFunc2"
End With
' Add third item
Set cbb = .Controls.Add(type:=msoControlButton)
With cbb
.Caption = "Item 3"
.Style = msoButtonCaption
.OnAction = "MyFunc3"
End With
' Add fourth item
Set cbb = .Controls.Add(type:=msoControlButton)
With cbb
.Caption = "Item 4"
.Style = msoButtonCaption
.OnAction = "MyFunc4"
End With
End With
End Sub
' Delete the shortcut menu
Sub DeleteContextMenu()
On Error Resume Next
CommandBars("MyBar").Delete
End Sub
' These functions are executed by the shortcut menu items
Function MyFunc1()
MsgBox "This is MyFunc1", vbInformation
End Function
Function MyFunc2()
MsgBox "This is MyFunc2", vbInformation
End Function
Function MyFunc3()
MsgBox "This is MyFunc3", vbInformation
End Function
Function MyFunc4()
MsgBox "This is MyFunc4", vbInformation
End Function
Zatim izabrati na propertis forme Shortcat menu:MyBar |