Dim Vodomer As String

    Vodomer = "01093746"

Dim db As DAO.Database

Dim rs As DAO.Recordset

Dim strSQL As String

strSQL = "SELECT * FROM Vodomjeri WHERE Broj_vodomjera='" & Vodomer & "'"

Set db = CurrentDb

Set rs = db.OpenRecordset(strSQL)

  Select Case rs.RecordCount

         Case 0

            MsgBox "ne postoi vodomer sa taj broj"

         Case 1

            rs.Edit

            rs.Fields("Broj_vodomjera") = "68956731"

            rs.Fields("Datum_ugradnje") = Now()

            rs.Update

            MsgBox "Uspesna Promjena"

         Case Is > 1

            MsgBox "ima poveke od jedan vodomer u tabela"

       

  End Select

   

    rs.Close

    db.Close

Set db = Nothing

Set rs = Nothing