Prikazi cijelu temu 31.05.2019 22:07
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Custom Menu dozvole
probaj ovako:
Na on load forme stavi ovaj kod.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Load()
  2. Dim Prefiks As String
  3. Dim Db As DAO.Database
  4. Dim Rs As DAO.Recordset
  5. Dim SQL As String
  6. Set Db = CurrentDb
  7. SQL = "SELECT Prefix FROM tblTransakcijeVrsta WHERE idDokumenta=" & IDD
  8. Set Rs = Db.OpenRecordset(SQL)
  9. Prefiks = Rs!Prefix
  10. SQL = "SELECT *FROM tblDokumenti WHERE BrojDok Like'" & Prefiks & "*'"
  11. Me.RecordSource = SQL
  12. End Sub

a na on current ovo.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Current()
  2. Dim I As Integer
  3. Dim Prefiks As String
  4. Dim Db As DAO.Database
  5. Dim Rs As DAO.Recordset
  6. Dim SQL As String, BrojStr As String
  7. Dim Broj As Integer, DuzB As Integer
  8.  
  9. Set Db = CurrentDb
  10. SQL = "SELECT Prefix FROM tblTransakcijeVrsta WHERE idDokumenta=" & IDD
  11. Set Rs = Db.OpenRecordset(SQL)
  12. Prefiks = Rs!Prefix
  13. SQL = "SELECT max(Int(Mid(BrojDok,4,4))) as  Br FROM tblDokumenti WHERE BrojDok Like'" & Prefiks & "*'"
  14. Set Rs = Db.OpenRecordset(SQL)
  15. If Format$(Rs!Br) <> "" Then
  16. Broj = Rs!Br
  17. End If
  18. Broj = Broj + 1
  19. DuzB = 4 - Len(Format$(Broj))
  20. For I = 1 To DuzB
  21. BrojStr = BrojStr & "0"
  22. Next I
  23. BrojStr = Prefiks & BrojStr & Format$(Broj) & "/" & Format(Date, "YY")
  24. Me.BrojDok.DefaultValue = "'" & BrojStr & "'"
  25. Me.IDdokumenta.DefaultValue = IDD
  26. End Sub

e sad ostalo ti je jos izmjene labela ali to stavi na on load.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.