xl_kid 08.08.2011 06:35
Predmet: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

pmiroslav 08.08.2011 10:28
Predmet:Re: problem - Run-time Error 13 Type Mismatch

To bi ti mogao biti problem sa tipom podaka koji unosiš, tj možda unosiš brojčani podatak u polje koje je predviđeno za tekst.

IF Grupa = 1 or 2 probaj napisati bez navodnika

zxz 08.08.2011 10:43
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

xl_kid 08.08.2011 11:21
Predmet:Re: problem - Run-time Error 13 Type Mismatch

Izbaci MsgBox i potom otvori formu "frm_KupciAdd" i sa i bez navodnika

miro35 08.08.2011 11:28
Predmet:Re: problem - Run-time Error 13 Type Mismatch

Zašto ne bi zakačio primjer.Znači u praznu bazu importuj te dvije forme i taj kod,ne moraš čitavu bazu.
Ovako se možemo dopisivat a nećemo ništa otkriti.

xl_kid 08.08.2011 12:18
Predmet:Re: problem - Run-time Error 13 Type Mismatch

evo primera. user admin lepo otvara a user korisnik javlja gresku password je 1 za oba korisnika
Prilozi:
IWA-I_db_v.2011.zip (Velicina datoteke:455.32 KB)

roko 08.08.2011 12:51
Predmet:Re: problem - Run-time Error 13 Type Mismatch

vrača ti ulaz u formu kroz case obrisi iz startup i stavi kroz gumb
Private Sub OK_Click()
Dim db As Database
Dim frm As Form
Dim Response
Dim G1, P2, Grupa As Integer
Dim G2, P1 As String
Grupa = M_Oper.PravaO
'On Error GoTo Greska

If Format$(Me![Pomocni].Column(2)) = "" Then
GoTo Izlaz
End If
P1 = Me![Pomocni].Column(2) 'Naziv objekta
P2 = Me![Pomocni].Column(3) 'Tip objekta
G1 = Me.Glavni.Column(0) 'Grupa tip
Select Case P2
Case 1 'Otvori formu
If Grupa = "1" Or Grupa = "2" Then
DoCmd.OpenForm "frm_KupciAdd"
Else
MsgBox "Pristup Vam nije odobren!", vbInformation
Exit Sub
End If
DoCmd.OpenForm P1

xl_kid 08.08.2011 16:06
Predmet:Re: problem - Run-time Error 13 Type Mismatch

Ovde se sad javlja novi problem. Mogu imati samo dve grupe ona koja ima pristup i ona koja nema. Medjutim meni je potrebno vise grupa jer neki korisnici mogu/trebaju pristupati vise formi a neki ne. Zato sam ja imao proveru prilikom otvaranja formi. Shy

xl_kid 08.08.2011 13:06
Predmet:Re: problem - Run-time Error 13 Type Mismatch

Šteta što nema smajli koji balavi jer ja trenutno balavim od srece (dobro, možda je tome i doprinela koleginica koja je podelila vest da je trudna). Puno hvala. 5 dana sam pokušavao pa sredim problem.

ps. u aplikaciji koju koristim ima dosta ZXZ-ovog koda tako da hvala i njemu. Kad sam vec kod toga...

jedno pitanje za ZXZ: Kada login formu sa menijem (skocni_meni) pokusam da prebacim u 2007 javlja se problem kod macro-a? Druga tema ali rekoh da pitam

zxz 08.08.2011 13:57
Predmet:Re: problem - Run-time Error 13 Type Mismatch

Smailija imas koliko hoces samo kliknes na opciju dodaj odgovor.
Ovo je prozor za brzi odgovor te nema ni attach.

jedini makro koji ja koristim je autoexec ali mislim da nije do toga nego do menija koji ne prenese pa bi ga trebalo ponovo napraviti ili iskljuciti.