Bosna i Hercegovina



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


Subject: Re: problem - Run-time Error 13 Type Mismatch
ako query stavim na BE ne dobijam nista. na FE je ok.
↑  ↓

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


Subject: 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:
Informacije o fajlu: zip  IWA-I_db_v.2011-xlk1.zip
Preuzimanja: 54
Veličina: 801.44 KB

↑  ↓

#18 08.08.2011-21:33
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,752


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

#19 09.08.2011-06:08
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 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
↑  ↓

#20 09.08.2011-09:42
roko Offline
Clan
Registrovan/a od: 02.02.2009-00:23
Komentari: 236


Subject: Re: problem - Run-time Error 13 Type Mismatch
Odprilike tako pa ti sad nastavi Cool

Prilozi:
Informacije o fajlu: rar  Log_New.rar
Preuzimanja: 53
Veličina: 131.95 KB

↑  ↓

#21 09.08.2011-09:53
roko Offline
Clan
Registrovan/a od: 02.02.2009-00:23
Komentari: 236


Subject: Re: problem - Run-time Error 13 Type Mismatch
samo još izbriši komandu iz frmkupci izmjena
'Grupa = M_Oper.PravaO
'If Grupa = "1" Or Grupa = "2" Then
'DoCmd.OpenForm "frm_Kupci_Izmena"
'Else
' MsgBox "Pristup Vam nije odobren!", vbInformation
'DoCmd.OpenForm "frm_Obavestenje"
'DoCmd.Close "frm_Kupci_Izmena"
'End If
jer meni obavi postupak
↑  ↓

#22 09.08.2011-10:07
xl_kid Offline
Clan
Registrovan/a od: 11.11.2008-08:24
Komentari: 109


Subject: Re: problem - Run-time Error 13 Type Mismatch
To je to. Jos jednom hvala na pomoci.
↑  ↓

Stranice (2): 1, 2


All times are GMT +01:00. Current time: 17.10.2018-19:47.