Private Sub Command17_Click()
Dim SQL As String, Kriterij As String, RecordSource As String, Uslov As String
Dim Brojac As Integer
Dim Db As dao.Database
Dim Rs As dao.Recordset
 
Set Db = CurrentDb()
Kriterij = ""
If Format$(Me.Text18) <> "" Then
SQL = "SELECT * FROM grad WHERE ime like " & Chr(39) & Me.Text18 & Chr(42) & Chr(39)
Set Rs = Db.OpenRecordset(SQL)
    Do While Not Rs.EOF
    Uslov = Uslov & "," & Rs.Fields(0)
    Rs.MoveNext
    Loop
Uslov = Mid(Uslov, 2)
End If
SQL = "SELECT * FROM Imenik"
Dodaj_Kriterij Me.Text11, "(ime & ' ' & prezime)", Kriterij, Brojac, 0
Dodaj_Kriterij Uslov, "ID_grad", Kriterij, Brojac, 1
    If Kriterij <> "" Then
        Kriterij = " WHERE " & Kriterij
    End If

    RecordSource = SQL & Kriterij
    Me.RecordSource = RecordSource
    If Me.RecordsetClone.RecordCount = 0 Then
    MsgBox "Nema podataka"
    End If
End Sub
 
Private Sub Dodaj_Kriterij(VrijednostPolja As Variant, ImePolja As String, Kriterij As String, Brojac As Integer, Tip As Integer)
    If VrijednostPolja <> "" Then
        If Brojac > 0 Then
            Kriterij = Kriterij & " AND "
        End If
        If Tip = 0 Then
        Kriterij = (Kriterij & ImePolja & " Like " & Chr(39) & VrijednostPolja & Chr(42) & Chr(39))
        ElseIf Tip = 1 Then
        Kriterij = (Kriterij & ImePolja & " IN(" & VrijednostPolja & ")")
        End If
    Brojac = Brojac + 1
    End If
End Sub