Centar za edukaciju-BiH



#1 08.08.2011 06:35
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


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
↑  ↓

#2 08.08.2011 10:28
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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
Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 08.08.2011 10:29 od strane pmiroslav. ↑  ↓

#3 08.08.2011 10:43
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#4 08.08.2011 11:21
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


Predmet:Re: problem - Run-time Error 13 Type Mismatch
Izbaci MsgBox i potom otvori formu "frm_KupciAdd" i sa i bez navodnika
↑  ↓

#5 08.08.2011 11:28
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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.
Miro
↑  ↓

#6 08.08.2011 12:18
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


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:
Informacije o tipu datoteke za:zip  IWA-I_db_v.2011.zip
Preuzimanja:292
Velicina datoteke:455.32 KB

↑  ↓

#7 08.08.2011 12:51
roko Van mreze
Clan
Registrovan od:02.02.2009
Postovi:236


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
↑  ↓

#8 08.08.2011 13:06
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


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
↑  ↓

#9 08.08.2011 13:57
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#10 08.08.2011 16:06
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


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
↑  ↓

Stranice (3):1,2,3


Sva vremena su GMT +01:00. Trenutno vrijeme: 5: 13 pm.