Centar za edukaciju-BiH

Predmet: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

Predmet: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

Predmet: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.

---

Predmet: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...

Predmet:Re: problem - Run-time Error 13 Type Mismatch

---

@zxz naravno da koristim. zasto menjati nesto ako dobro radi 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

Predmet:Re: problem - Run-time Error 13 Type Mismatch

---

ako query stavim na BE ne dobijam nista. na FE je ok.

Predmet:Re: problem - Run-time Error 13 Type Mismatch

---

evo i primera sa administracijom. ovo je kad su tabele i forme spojene u jedan mdb
poz

Prilozi:

Predmet:Re: problem - Run-time Error 13 Type Mismatch

---

Uf ovo je stari meni. U njemu trebas dodtati polje u tabeli ObjektniMeni i to kao broj (Number)
Ovo pšolje trebas dodati u u list box pomocni koji se nalazi na formi Glavni_meni.
Prava trebas dodjeljivati tako da sa vecim brojem ima prava pristupa i svim sa manjim Brojevima.
Primjer:
Admin 5
Supervizor 4
Grupovodja 3
Sef Odjela 2
Korisnik 1
Gost 0

U ovakvoj podjeli napr ako stavis na formi odnosno u pomocnom meniju 3 znaci da ce moci svi pristupiti od 3 pa na vise.

U proceduri na formi Glavni_Meni OK_Klick dodaj dio koji je u spjleru.
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

---

Predmet:Re: problem - Run-time Error 13 Type Mismatch

---

vise mi odgovara da pristup formama dajem pojedinacno, za svakog korisnika posebno. "roko" mi je dao odlicnu ideju, samo da je sprovedem u delo. potrebna mi je sad pomoc kako da stavim dva uslova (if PristupOper = OperID and if Pristup = "Yes") ako sam lepo definisao. znaci ako je logovani korisnik i ako ima pristup onda otvori formu a ako ne msgbox

Predmet:Re: problem - Run-time Error 13 Type Mismatch

---

Odprilike tako pa ti sad nastavi

Prilozi: