Prikazi cijelu temu 21.05.2019 08:20
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Custom Menu dozvole
Hvala na odgovoru ali taj dio mi je jasan.
Ja bih zapravo želio da forma koju otvaram ima promjenjivi RecordSource i to mi šteka. Napravio sam kod:
PreuzmiIzvorni kôd (vbnet):
  1. Function Otvori_1(ID As Integer, Optional QR As String, Optional Filter As String) As Boolean
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim Rs2 As Recordset
  5. Dim Frm As Form
  6. Dim Uslov As Integer
  7. Dim ImeForme As String
  8. Dim Tip As Integer
  9. Dim Prava As Integer
  10. Dim PravaA As Integer
  11.  
  12. Set Db = CurrentDb()
  13. If ID < 1 Then: GoTo Kraj
  14.  
  15. Set Rs = Db.OpenRecordset("SELECT * FROM tblOperatori WHERE KorisnikID=" _
  16.   & M_Oper.OperID)
  17.  
  18. ImeForme = "frmPristup"
  19. Tip = Rs!Sifra
  20. Prava = Rs!PravaPristupa
  21. PravaA = Rs!PravaAdm
  22.  
  23. If Prava = 3 Then
  24.     MsgBox "Kao gost" & vbCr & "nemate pravo koristiti ovu formu", vbOKOnly, "Upozorenje!"
  25.     GoTo Kraj
  26. Else
  27.   Select Case Tip
  28.  
  29.   Case 1  'Otvori formu
  30.             Forms!frmPristup.Form.RecordSource = ("SELECT * FROM tblOperatori WHERE KorisnikID=" _
  31.             & M_Oper.OperID)
  32.             DoCmd.OpenForm ImeForme, , , , , acIcon
  33.             Set Frm = Forms(ImeForme)
  34.             Frm.SetFocus
  35.             DoCmd.Restore
  36. .........

Forms!frmPristup.Form.RecordSource = ("SELECT * FROM tblOperatori WHERE KorisnikID=" _
& M_Oper.OperID)

Ovaj dio mi ne odradi kako treba.
Pozdrav