Private Sub Sifra_kupca_Click()
Dim SQL As String
Dim Sifra_kupca As Integer
Dim Frm As Form

Sifra_kupca = Me.Sifra_kupca

SQL = "SELECT Vodomjeri.* " _
    & "FROM Vodomjeri INNER JOIN Kupci_Vodomjeri ON Vodomjeri.Broj_vodomjera = Kupci_Vodomjeri.Broj_vodomjera " _
    & "WHERE Kupci_Vodomjeri.Sifra_kupca=" & Sifra_kupca

DoCmd.OpenForm "Vodomjeri"
Set Frm = Forms("Vodomjeri")
Frm.RecordSource = SQL
End Sub