Predmet:Re: Custom Menu dozvole

---

Pokušavam slijedeće:
Ako je osoba prijavljena kao Administrator (PravaPristupa = 1)sa svim pravima da mu se otvori
frmPristup sa prikazom svih slogova it tblOperatori, sa mogućnosču izmjene i dodavanja novog sloga.
Ako je osoka prijavljena kao operator (PravaPristupa = 2) da mu se otvori
frmPristup sa prikazom samo sloga prijavljene osobe.

Pokušavam to sa

If ID = 1 Then
Set Rs = Db.OpenRecordset("SELECT * FROM tblOperatori ")
Else
Set Rs = Db.OpenRecordset("SELECT * FROM Qry_Pristup ")
End If

...
Select Case Tip

Case 1 'Otvori formu

DoCmd.OpenForm ImeForme, , , , , acIcon
Set Frm = Forms(ImeForme)
Frm.RecordSource = Rs <--- Ovdje bi želio promjenjivi record source ovino o korisniku
Frm.SetFocus
DoCmd.Restore

Prilozi:

---