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