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.
| xl_kid | 08.08.2011 07: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 11: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 11: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 12: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 12: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 13: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 13: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 17: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. |
|
| xl_kid | 08.08.2011 14: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 14: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. |
|