Prikazi cijelu temu 28.05.2019 12:23
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Custom Menu dozvole
Ja sam u međuvremenu uspio srediti funkciju i ona mi sada radi točno ono Å¡to sam želio.
Jedino sada ako ti želiš da je eventualno dotjeraš i pojednostaviš.
PreuzmiIzvorni kôd (vbnet):
  1. Function Otvori()
  2.  
  3. Dim ID As Integer
  4. Dim PRMT As Integer
  5. Dim Db As Database
  6. Dim Rs As Recordset
  7. Dim StrSQL As String
  8. Dim Frm As Form
  9. Dim Uslov As Integer
  10. Dim ImeObjekta As String
  11. Dim Tip As Integer
  12. Dim Prava As Integer
  13. Dim Status As Integer
  14. Dim BrojD As String
  15. Dim Prefix As String * 3
  16. Dim Naziv As String
  17.  
  18. On Error Resume Next
  19.  
  20. ID = Application.CommandBars.ActionControl.Tag 'Menu properties Tag
  21. PRMT = Application.CommandBars.ActionControl.Parameter 'Menu properties Parametar
  22.  
  23. On Error GoTo Kraj
  24.  
  25. Set Db = CurrentDb()
  26. If ID < 1 Then: GoTo Kraj
  27. If PRMT = 1 Then
  28.     StrSQL = "SELECT * FROM tblOperatori WHERE KorisnikID=" _
  29.             & M_Oper.OperID
  30.     Set Rs = Db.OpenRecordset(StrSQL)
  31.  
  32.         ImeObjekta = "frmPristup"
  33.         Tip = Rs!Sifra
  34.         Prava = Rs!PravaPristupa '1,2,3
  35.        
  36.             If Prava = 1 Then
  37.                 StrSQL = "SELECT * FROM tblOperatori"
  38.             ElseIf Prava = 2 Then
  39.                 StrSQL = "SELECT * FROM tblOperatori WHERE KorisnikID=" _
  40.                     & M_Oper.OperID
  41.             ElseIf Prava = 3 Then
  42.                  MsgBox "Kao gost" & vbCr & "nemate pravo koristiti ovu formu", vbOKOnly, "Upozorenje!"
  43.                 GoTo Kraj
  44.             End If
  45.            
  46. ElseIf PRMT = 2 Then
  47.     StrSQL = "SELECT *  FROM A_MenuLista " _
  48.             & "  WHERE ID=" & ID
  49.     Set Rs = Db.OpenRecordset(StrSQL)
  50.            
  51.         ImeObjekta = Format$(Rs!Ime)
  52.         Tip = Rs!Tip
  53.         Prava = Rs!Grupa '1,2,3
  54.        
  55.             Status = DLookup("[Status]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID)
  56.             Prefix = DLookup("[Prefix]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID)
  57.             Naziv = DLookup("[Dokument]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID)
  58.             BrojD = BrojDokumenta(Prefix)
  59. End If
  60.                         '------- OTVARANJE FORME -------
  61.   Select Case Tip
  62.  
  63.   Case 1
  64.             DoCmd.OpenForm ImeObjekta, , , , , acIcon
  65.             Set Frm = Forms(ImeObjekta)
  66.        
  67.     If PRMT = 1 Then
  68.         With Frm
  69.             .RecordSource = (StrSQL)
  70.             .Caption = "Korisni ki podaci: " & UCase(tkoRadiIme) & " " & UCase(tkoRadiPrezime)
  71.         End With
  72.             DoCmd.Restore
  73.            
  74.     ElseIf PRMT = 2 Then
  75.         With Frm
  76.             .DataEntry = True
  77.             .IDdokumenta.DefaultValue = ID
  78.             .BrojDok.DefaultValue = "'" & BrojD & "'"
  79.             .Caption = UCase(Naziv)
  80.         End With
  81.             DoCmd.Restore
  82.         End If
  83. Case Else
  84.           Beep
  85.             MsgBox "Objekt  <<" & ImeObjekta & ">> ne postoji " & vbCr & "ili je pogreÅ¡no unesen tip", vbExclamation + _
  86.             vbOKOnly, vbDefaultButton1
  87.            GoTo Kraj
  88.     End Select
  89.    
  90.  
  91.                             '------ NA IN OTVARANJA FORME ------
  92. Select Case Prava
  93.    
  94.     Case 1 'Ispravke
  95.             With Frm
  96.                 .FirstName.Enabled = True
  97.                 .LastName.Enabled = True
  98.                 .FormHeader.BackColor = 12632256
  99.                 .Detail.BackColor = 11916754
  100.                 .FormFooter.BackColor = 12632256
  101.                 .ScrollBars = False
  102.                 .RecordSelectors = False
  103.                 .NavigationButtons = True
  104.                 .DataEntry = False
  105.                 .AllowDeletions = True
  106.                 .AllowEdits = True
  107.                 .AllowAdditions = True
  108.             End With
  109.  
  110.     Case 2 'Pregled
  111.            With Frm
  112.                 .FirstName.Enabled = False
  113.                 .LastName.Enabled = False
  114.                 .Combo_Prava.Enabled = False
  115.                 .InsideHeight = Frm.Detail.Height
  116.                 .Detail.BackColor = 5950882
  117.                 .ScrollBars = False
  118.                 .RecordSelectors = False
  119.                 .NavigationButtons = False
  120.                 .DataEntry = False
  121.                 .AllowDeletions = False
  122.                 .AllowEdits = False
  123.                 .AllowAdditions = False
  124.             End With
  125.            
  126.     Case 3
  127.        
  128.     Case 4 'MeuskladiÅ¡na
  129.             With Frm
  130.                 .Detail.BackColor = 7044491
  131.                 .Label_Partner.Caption = "Konsignator:"
  132.                 .IDdokumenta.Enabled = False
  133.                 .BrojDok = "'" & BrojD & "'"
  134.             End With
  135.                 DoCmd.Restore
  136.                
  137.     Case 5 'Povratnica
  138.             With Frm
  139.                 .Detail.BackColor = 9961471
  140.                 .Label_Partner.Caption = "Robu vratio:"
  141.                 .Skladiste_Label.Caption = "Ulaz u skladiÅ¡te:"
  142.                 .Skladiste_2.Visible = False
  143.                 .StovaristeID.Visible = False
  144.                 .IDdokumenta.Enabled = False
  145.             End With
  146.                 DoCmd.Restore
  147.                
  148.         Case 6 'Revers
  149.             With Frm
  150.                 .Detail.BackColor = 12177407
  151.                 .Skladiste_2.Visible = False
  152.                 .Label_Partner.Caption = "Robu preuzeo:"
  153.                 .StovaristeID.Visible = False
  154.                 .IDdokumenta.Enabled = False
  155.             End With
  156.                 DoCmd.Restore
  157.            
  158.         Case 7
  159.  
  160.  MsgBox "GreÅ¡ka poziva" & vbCr & "Br:" & Err.Number, vbExclamation + vbOKOnly + _
  161.     vbDefaultButton1, "Greska!!!"
  162.    
  163. End Select
  164.  
  165. Otvori = True
  166. Izlaz:
  167. Exit Function
  168. Kraj:
  169. Otvori = False
  170. End Function

Bio mi je problem kako otvoriti frmDokumenti na tri načina
u formi se mijenja podatak u Combu IDdokumenta

SELECT tblTransakcijeVrsta.IDdokumenta, tblTransakcijeVrsta.Dokument, tblTransakcijeVrsta.Status FROM tblTransakcijeVrsta ORDER BY tblTransakcijeVrsta.Dokument;

Upisuje se brojDok (MS/0001/19; PO/0001/19 ili RV/0001/19)

To određuje Function BrojDokumenta

I još je promjenjivo dali se videili ne pojedini textBox-ovi, te se kod svake varijante mijenja boja pozadine radi lakšek snalaženja.

Prilozi:
Proba MenuMP3.rar
Preuzimanja:221
Velicina datoteke:129.93 KB

Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 28.05.2019 12:26 od strane pmiroslav.