problem - Run-time Error 13 Type Mismatch

[ xl_kid @ 07.08.2011. 19:27 ] @

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

[ Zidar @ 08.08.2011. 14:07 ] @

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!")

[ xl_kid @ 08.08.2011. 20:57 ] @

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

[ banem @ 08.08.2011. 21:06 ] @

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.

[ xl_kid @ 09.08.2011. 06:12 ] @

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

[ Trtko @ 10.08.2011. 19:14 ] @

a da postaviš u kodu ispis varijable pa onda vidiš što se dešava

Grupa = M_Oper.PravaO
msgbox grupa

i sve ti bude jasno

ljepo ti poruka kaže da mješaš kruške i jabuke

pitanje je sad što ti je grupa ,,, STRING ili NUMERIC

If Grupa = "1" Or Grupa = "2" Then

u tvom if-u je string