Predmet:Re: problem - Run-time Error 13 Type Mismatch

---

Private Sub Form_Open(Cancel As Integer) '
Grupa = M_Oper.PravaO' Cita iz forme M_Oper iz Polja PravaO
If Grupa = "1" Or Grupa = "2" Then ' E sad ako je 1 ili 2 tada ide ovaj kod
DoCmd.OpenForm "frm_KupciAdd" ' Otvara se forma
Else' inace ovo
MsgBox "Pristup Vam nije odobren!", vbInformation, "Upozorenje!"
DoCmd.OpenForm "frm_Obavestenje"
DoCmd.Close "frm_KupciAdd" 'Zatvara formu koja nije vjerovatno niti podognuta jer nije zadovoljen uslov.
Ovaj red koda netreba
End If
End Sub

---