Prikazi cijelu temu 31.03.2019 08:33
dzaga29 Van mreze
Clan
Registrovan od:22.01.2013
Lokacija:Delnice, Hrvatska


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