Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
ne znam jesam li uspeo razumeti .
PreuzmiIzvorni kôd (Visual Basic):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