Private Sub araNUFUS_Change()
    Call arabul
End Sub
 
Private Sub araSEHIR_Change()
    Call arabul
End Sub
 
Private Sub araULKE_Change()
    Call arabul
End Sub
 
Sub arabul()
Dim strSQL As String
strSQL = "SELECT Table1.ID, Table1.SEHIR, Table1.ULKE, Table1.Nufus " & _
"FROM Table1 " & _
"WHERE (((Table1.SEHIR) Like '*' & [Formlar]![Form2]![araSEHIR] & '*') AND " & _
"((Table1.ULKE) Like '*' & [Formlar]![Form2]![araULKE] & '*') AND " & _
"((Table1.Nufus) Like '*' & [Formlar]![Form2]![araNUFUS] & '*'))"
Forms!Form2!liste_teknikrapor.RowSource = strSQL
Forms!Form2!liste_teknikrapor.Requery
End Sub