Prikazi cijelu temu 08.08.2011-10:43
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Lokacija: Tuzla


Subject: 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
Pozdrav