Prikazi cijelu temu 30.03.2019 14:11
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Sifra_kupca_Click()
  2. Dim SQL As String
  3. Dim Sifra_kupca As Integer
  4. Dim Frm As Form
  5.  
  6. Sifra_kupca = Me.Sifra_kupca
  7.  
  8. SQL = "SELECT Vodomjeri.* " _
  9.     & "FROM Vodomjeri INNER JOIN Kupci_Vodomjeri ON Vodomjeri.Broj_vodomjera = Kupci_Vodomjeri.Broj_vodomjera " _
  10.     & "WHERE Kupci_Vodomjeri.Sifra_kupca=" & Sifra_kupca
  11.  
  12. DoCmd.OpenForm "Vodomjeri"
  13. Set Frm = Forms("Vodomjeri")
  14. Frm.RecordSource = SQL
  15. End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.