Predmet:Re: Poziv funkcije iz različitih formi
Otprilike ovako nekakav kod:
PreuzmiIzvorni kôd (vbnet):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
Pozdrav
Ovaj post je ureden
2
puta. Posljednja izmjena 16.02.2013 17:19 od strane pmiroslav.