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 rsIzmena As DAO.Recordset
Dim strSQL As String
Dim strSQL_Kupci As String
'Prvo bi trebalo napraviti kontrolu da se vidi da li je aktiviran gumb za knjiženje; ako je aktivan
If Me.Gotovo = True Then ' Ovo je checkBox aktiviran gumb
MsgBox "Vec proknizen"
Exit Sub
End If
Vodomjer = Broj_vodomjera
Novi = NoviVodomjer
NMarka = MarkaNovog ' Nisam siguran za ovo mislam da je ovo kljuc pa tu bi trebalo biti ID
Profil = ProfilNovog
'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 postoi vodomjer sa taj broj"
Case 1
rs.AddNew
' Prenos od stari vodomer
rs.Fields("Broj_vodomjera") = rs.Fields("Broj_vodomjera")
rs.Fields("Radio_Adresa") = rs.Fields("Radio_Adresa")
rs.Fields("Sifra") = rs.Fields("Sifra")
rs.Fields("Marka") = rs.Fields("Marka")
rs.Fields("Datum_ugradnje") = rs.Fields("Datum_ugradnje")
rs.Fields("Promjer") = rs.Fields("Promjer")
rs.Fields("Ulica") = rs.Fields("Ulica")
rs.Fields("Kc_br") = rs.Fields("Kc_br")
rs.Fields("Naselje") = rs.Fields("Naselje")
rs.Fields("Komentar") = rs.Fields("Komentar")
rs.Fields("Tip_Modula") = rs.Fields("Tip_Modula")
rs.Fields("Period_ocitavanja") = rs.Fields("Period_ocitavanja")
rs.Fields("Medij") = rs.Fields("Medij")
rs.Fields("Kontrolni_broj") = rs.Fields("Kontrolni_broj")
rs.Fields("Tip_vodomjera") = rs.Fields("Tip_vodomjera")
rs.Fields("Status_vodomjera") = rs.Fields("Status_vodomjera")
rs.Fields("Multiplikator") = rs.Fields("Multiplikator")
rs.Fields("Dijelitelj") = rs.Fields("Dijelitelj")
' Izmjena za novi vodomer
rs.Fields("Broj_vodomjera") = Novi
rs.Fields("Datum_ugradnje") = Now()
rs.Fields("Tip_vodomjera") = NMarka
'rs.Fields("Promjer") = Profil ' ova ne znam sta je i koe polje treba biti u tabeli
rs.Update 'umjesto update bi trebalo da doda novi red
' Izmjena na Kupci_Vodomjeri
strSQL_Kupci = "SELECT * FROM Kupci_Vodomjeri WHERE Broj_vodomjera='" & Vodomjer & "' AND Sifra_kupca=" & Sifra_kupca
Set rsIzmena = db.OpenRecordset(strSQL_Kupci)
rsIzmena.Edit
rsIzmena.Fields("Broj_vodomjera") = Novi
rsIzmena.Update 'umjesto update bi trebalo da doda novi red
MsgBox "Uspesana izmena"
Case Is > 1
MsgBox "ima povecanje od jedan vodomjer u tabeli"
End Select
rs.Close
rsIzmena.Close
db.Close
Set rs = Nothing
Set rsIzmena = Nothing
Set db = Nothing