Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti

---

Ja sam tvoj kod malo proširio sa pojašnjenjima što bi trebalo napraviti, ali ja neznam VB i to kao takvo ne funkcionira - ne dodaje novi red i dr. Bitno je da se u tablici Vodomjeri mora dodati novi red sa novim podacima, a stari mora ostati za Arhivu. Ne može se spremiti broj koji se ne nalazi u tbl. Vodomjeri...

Private Sub cmdSpremanje_Click()

Dim Vodomjer As String 'Stari broj vodomjera
Dim Novi As String 'Novi broj vodomjera
Dim NMarka As String 'Nova marka vodomjera
Dim Profil As String 'Novi profil vodomjera
Dim Gotovo As Variant 'Potvrdni okvir za knjiženje
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String

'Prvo bi trebalo napraviti kontrolu da se vidi da li je aktiviran gumb za knjiženje; ako je aktivan
'poruka da je knjiženje izvršeno i izlaz, a ako nije onda treba u tablicu vodomjeri dodat novi red
'koji bi bio kopija reda sa starim vodomjerom uz izmjenu Broja vodomjera, datuma ugradnje, marke i profila sve ide iz izmjene (polja - Novi,NMarka,Profil)

strSQL = "SELECT * FROM Vodomjeri WHERE Broj_vodomjera='" & Vodomjer & "'"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
Select Case rs.RecordCount
Case 0
MsgBox "Ne postoji vodomjer sa tim brojem"
Case 1
rs.Edit
rs.Fields("Broj_vodomjera") = Novi
rs.Fields("Datum_ugradnje") = Now()
rs.Fields("Marka") = NMarka
rs.Fields("Promjer") = Profil
rs.Update 'umjesto update bi trebalo da doda novi red
MsgBox "Uspješna Promjena"
Case Is > 1
MsgBox "ima povećanje od jedan vodomjer u tabeli"

'Trebalo bi otići u tablicu Kupci_Vodomjeri i ovdje napraviti update starog broja sa novim brojem vodomjera i na izlasku knjiženja izmjene potvrdni okvir za knjiženje postaviti na DA

End Select

rs.Close
db.Close
Set db = Nothing
Set rs = Nothing
End Sub

Prilozi: