Predmet:Re: Ribbon XML / Controls

---

ja bi to riješio ovako
prije otvaranja forme ili

Select Case Control.id
Case "btnArtikli"
CloseAllForms
DoCmd.OpenForm "frmArtikli", acNormal

''funkcija

Function CloseAllForms()
Dim obj As Object
Dim strName As String
For Each obj In Application.CurrentProject.AllForms
DoCmd.Close acForm, obj.Name, acSaveNo
Next obj
End Function