<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
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