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