Prikazi cijelu temu 08.08.2011 21:33
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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

switch Spoiler:


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