Predmet:Re: Custom Menu dozvole
probaj ovako:
Na on load forme stavi ovaj kod.
PreuzmiIzvorni kôd (Visual Basic):Private Sub Form_Load()
Dim Prefiks As String
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim SQL As String
Set Db = CurrentDb
SQL = "SELECT Prefix FROM tblTransakcijeVrsta WHERE idDokumenta=" & IDD
Set Rs = Db.OpenRecordset(SQL)
Prefiks = Rs!Prefix
SQL = "SELECT *FROM tblDokumenti WHERE BrojDok Like'" & Prefiks & "*'"
Me.RecordSource = SQL
End Sub
a na on current ovo.
PreuzmiIzvorni kôd (Visual Basic):Private Sub Form_Current()
Dim I As Integer
Dim Prefiks As String
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim SQL As String, BrojStr As String
Dim Broj As Integer, DuzB As Integer
Set Db = CurrentDb
SQL = "SELECT Prefix FROM tblTransakcijeVrsta WHERE idDokumenta=" & IDD
Set Rs = Db.OpenRecordset(SQL)
Prefiks = Rs!Prefix
SQL = "SELECT max(Int(Mid(BrojDok,4,4))) as Br FROM tblDokumenti WHERE BrojDok Like'" & Prefiks & "*'"
Set Rs = Db.OpenRecordset(SQL)
If Format$(Rs!Br) <> "" Then
Broj = Rs!Br
End If
Broj = Broj + 1
DuzB = 4 - Len(Format$(Broj))
For I = 1 To DuzB
BrojStr = BrojStr & "0"
Next I
BrojStr = Prefiks & BrojStr & Format$(Broj) & "/" & Format(Date, "YY")
Me.BrojDok.DefaultValue = "'" & BrojStr & "'"
Me.IDdokumenta.DefaultValue = IDD
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.