Option Compare Database Option Explicit Global IDD As Integer Function OtvoriM() On Error Resume Next IDD = Application.CommandBars.ActionControl.Tag 'Menu properties Tag 'On Error GoTo Kraj Call Otvori_frm(IDD) Exit Function Kraj: On Error Resume Next Err.Clear End Function