Bosna i Hercegovina



#1 08.08.2011-06:35
xl_kid Offline
Clan
Registrovan/a od: 11.11.2008-08:24
Komentari: 109


Subject: 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 Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,370


Subject: 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 komentar je mijenjan 1 puta. zadnja izmjena 08.08.2011-10:29 od strane pmiroslav. ↑  ↓

#3 08.08.2011-10:43
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,760


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

#4 08.08.2011-11:21
xl_kid Offline
Clan
Registrovan/a od: 11.11.2008-08:24
Komentari: 109


Subject: 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 Offline
Clan
Registrovan/a od: 05.01.2009-15:56
Komentari: 609


Subject: 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 Offline
Clan
Registrovan/a od: 11.11.2008-08:24
Komentari: 109


Subject: 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 fajlu: zip  IWA-I_db_v.2011.zip
Preuzimanja: 57
Veličina: 455.32 KB

↑  ↓

#7 08.08.2011-12:51
roko Offline
Clan
Registrovan/a od: 02.02.2009-00:23
Komentari: 236


Ocjena: Ocjena:100 Subject: 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 Offline
Clan
Registrovan/a od: 11.11.2008-08:24
Komentari: 109


Subject: 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 Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,760


Subject: 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.
Pozdrav
↑  ↓

#10 08.08.2011-16:06
xl_kid Offline
Clan
Registrovan/a od: 11.11.2008-08:24
Komentari: 109


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

#11 08.08.2011-16:37
roko Offline
Clan
Registrovan/a od: 02.02.2009-00:23
Komentari: 236


Ocjena: Ocjena:100 Subject: Re: problem - Run-time Error 13 Type Mismatch
Zašto ne napraviš rejting recim svaki korisnik ima rejting od jedan do deset ili subtabela ko što može otvoriti i onda prema vrsti posla korisnik može ili nemože imati pristup podacima u tabeli l_operatori napravi rejting 1 do 10 i onda dodjeli korisnicima rejting a formu označi sa recimo 8 kupci pa korisnik ako mu je rejting manji od 8 nemože pristupiti kupcima. lil napravi tagelu s imenima forma pa ih dodjeli korisnicima ko što može ili nemože otvarati
↑  ↓

#12 08.08.2011-17:31
xl_kid Offline
Clan
Registrovan/a od: 11.11.2008-08:24
Komentari: 109


Subject: Re: problem - Run-time Error 13 Type Mismatch
vise mi se svidja ovaj drugi pristup. znaci, to bi trebalo da izgleda ovako: tbl_forme u kojoj je ime forme i pristup u kojoj bi upisivao id korisnika koji moze pristupiti. E sad mi je potrebna pomoc. Ja sam na svakoj formi on open stavio da proverava korisnika ali kao sto smo videli imam problem sa tim. Kako da resim taj problem Disappointed
↑  ↓

#13 08.08.2011-17:41
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,760


Subject: Re: problem - Run-time Error 13 Type Mismatch
Neznam dali koristis i moju tabelu za meni listu ako koristis tamo imas upravo tako rijeseno.
Imas polje pristup u njega upisujes grupu koja moze pristupiti tom objektu.
Pozdrav
↑  ↓

#14 08.08.2011-18:04
roko Offline
Clan
Registrovan/a od: 02.02.2009-00:23
Komentari: 236


Subject: Re: problem - Run-time Error 13 Type Mismatch
evo prvo si napravi qery u sql wive i stavi ovo dole

SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Type)=-32768));

to su sve forme u tvojoj bazi podataka
naprvi recimo jednu tabelu koja ima id auto pa naziv forme ( kombo s ovim queriyem) i recimo true/false da otvara ili ne otvara i naravno L_operateri_ID da spojiš tu tabelu sa L_operateri tabelom 1 -many
poslije napravi novu formu recimo postavljanje administracije pa provaj L_operafor da ti je forma a ta druga tabela subforma ...
iza toga možemo dalje
poz...
↑  ↓

#15 08.08.2011-20:05
xl_kid Offline
Clan
Registrovan/a od: 11.11.2008-08:24
Komentari: 109


Subject: Re: problem - Run-time Error 13 Type Mismatch
@zxz naravno da koristim. zasto menjati nesto ako dobro radi Smiling da li si mislio na tabelu ObjektMeni (Objekt ID, NazivObjekta, Tip, Redosled)

@roko vec imam takvu tabelu koju do sada nisam koristio za prava pristupa i ako sam mogao (zxz me je podsetio) pokusacu kao sto si rekao pa se javljam kasnije
↑  ↓

Stranice (2): 1, 2


All times are GMT +01:00. Current time: 20.10.2018-14:33.