Predmet:Re: VBA kod za traženje zapisa po tablicama i promjenu vrijednosti
Hvala; Kada sam isti kod htjeo prebaciti na drugu formu (Vodomjeri) pa klikom na broj vodomjera da otvori traženog kupca poručuje mi grešku
Za broj_vodomjera sam deklarirao String i napisao slijedeći kod:
Private Sub Broj_vodomjera_Click()
Dim SQL As String
Dim Broj_vodomjera As String
Dim Frm As Form
Broj_vodomjera = Me.Broj_vodomjera
SQL = "SELECT Kupci.* " _
& "FROM Kupci INNER JOIN Kupci_Vodomjeri ON Kupci.Sifra_kupca = Kupci_Vodomjeri.Sifra_kupca " _
& "WHERE Kupci_Vodomjeri.Broj_vodomjera=" & Broj_vodomjera
DoCmd.OpenForm "Potrosaci"
Set Frm = Forms("Potrosaci")
Frm.RecordSource = SQL
End Sub