problem - Run-time Error 13 Type Mismatch

Postovani, da li neko moze da mi pomogne oko ovog problema. Naime, na aplikaciji imam login formu na osnovu koje su ogranicena prava pristupa odredjenim formama. Kada sam pre par dana pokusao da sa korisnickim imenom koje nema pristup formi istu otvorim dobio sam obavestenje " Run-time Error 13 Type Mismatch" i sledeci deo koda obelezen u editoru "DoCmd.Close "frm_KupciAdd"". Do skoro je sve radilo ok.

evo i koda sa forme.

Private Sub Form_Open(Cancel As Integer)
Grupa = M_Oper.PravaO
If Grupa = "1" Or Grupa = "2" Then
DoCmd.OpenForm "frm_KupciAdd"
Else
MsgBox "Pristup Vam nije odobren!", vbInformation, "Upozorenje!"
DoCmd.OpenForm "frm_Obavestenje"
DoCmd.Close "frm_KupciAdd"
End If
End Sub

Potpis

INTRUDER

AKo si pokusao s akorsnikom koji ne psotoji, onda ti izraz

Grupa = M_Oper.PravaO

dodeljuje vNULL vrednost varijabli Grupa. Ako variajbla Grupa nije variant tipa, onda mozes da dobijes 'data missmatch' gresku.

Pokusaj ovo:

Grupa = nz(M_Oper.PravaO,"Ovaj korisnik ne postoji!")

bezuspesan pokusaj. nesto drugo je u pitanju jer ne mogu da se logujem ako korisnik ne postoji

Potpis

INTRUDER

Greška može biti bilo gde u kodu, a ne tu gde je sve ispravno. Tako hoće da se ponaša ponekad. Seti se šta si poslednje radio, pa tamo gledaj.

Potpis

Pozdrav,
Branislav

Ma stalno nesto menjam i dodajem ali nisam skoro pristupao bazi sa korisnickim imenom koje ima manja ovlascenja.

Potpis

INTRUDER