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