Predmet:Re: Ribbon XML / Controls

---

Sub GetVisible(Control As IRibbonControl)
Select Case Control.id
Case "btnArtikli"
DoCmd.OpenForm "frmArtikli", acNormal
End Select

End Sub