Public Function PripremaRacun() As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim SQL As String
Set db = CurrentDb
SQL = "SELECT * FROM Racuni"
Set rs = db.OpenRecordset(SQL)
        rs.AddNew
            rs.Fields("DATUM") = Form_frmOtpremnica.datum  '(Ovo se mijenja ovisno sa koje forme se poziva)
            rs.Fields("ID") = Form_frmOtpremnica.OrderID    '(Ovo se mijenja ovisno sa koje forme se poziva)
            rs.Fields("OIB_OPER") = Form_frmOtpremnica.OrderID '(Ovo se mijenja ovisno sa koje forme se poziva)
            rs.Fields("BrojRac") = Form_frmOtpremnica.FiskalniBr '(Ovo se mijenja ovisno sa koje forme se poziva)
            rs.Update
            rs.Requery
         rs.Close
         On Error Resume Next
        Form_frmOtpremnica.Oznaka = "Proslo"  '(Ovo se mijenja ovisno sa koje forme se poziva)
        Form_frmOtpremnica.Oznaka.Requery
End Function