Prikazi cijelu temu 23.03.2019 21:27
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
ne znam jesam li uspeo razumeti .

PreuzmiIzvorni kôd (Visual Basic):
  1. Dim Vodomer As String
  2.     Vodomer = "01093746"
  3. Dim db As DAO.Database
  4. Dim rs As DAO.Recordset
  5. Dim strSQL As String
  6. strSQL = "SELECT * FROM Vodomjeri WHERE Broj_vodomjera='" & Vodomer & "'"
  7. Set db = CurrentDb
  8. Set rs = db.OpenRecordset(strSQL)
  9.   Select Case rs.RecordCount
  10.          Case 0
  11.             MsgBox "ne postoi vodomer sa taj broj"
  12.          Case 1
  13.             rs.Edit
  14.             rs.Fields("Broj_vodomjera") = "68956731"
  15.             rs.Fields("Datum_ugradnje") = Now()
  16.             rs.Update
  17.             MsgBox "Uspesna Promjena"
  18.          Case Is > 1
  19.             MsgBox "ima poveke od jedan vodomer u tabela"
  20.        
  21.   End Select
  22.    
  23.     rs.Close
  24.     db.Close
  25. Set db = Nothing
  26. Set rs = Nothing