Napravi jedan modul i u njega stavi ovaj code:
Code:
Sub OnActionButton(Control As IRibbonControl)
Select Case Control.id
Case "btnPrintClo"
DoCmd.Close acReport, "rptArtikli1"
'Case Else
'MsgBox "Button """ & Control.id & """ clicked" & vbCrLf & _
'"Kliknuo si """ & Control.id & """ na Ribonu ", _
'vbInformation
End Select
Select Case Control.id
Case "btnArtikli"
DoCmd.OpenForm "frmArtikli", acNormal
'Case Else
'MsgBox "Button """ & Control.id & """ clicked" & vbCrLf & _
' "Kliknuo si """ & Control.id & """ na Ribonu ", _
' vbInformation
End Select
End Sub
U tabeli gdje ti se nalazi xml za tvoj ribon a to je tabela UsysRibbons mora u redovima za buuton biti nešto ovako:
<button id="btnArtikli" label="Artikli" imageMso="ShapeRightArrow"
onAction="OnActionButton" getVisible="GetVisible" getEnabled="GetEnabled" />
miro