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