kodlar bunlar form açıldığında bu presödür çalışmakata ve liste 1 i yüklemekte

Public Sub SECENEKLİ_ARA_1()

Dim Sql As String

Dim str As String

Select Case Çerçeve1

Case 1

str = "Kodu Like '" & "*" & [Forms]![5_Form_Adres_Arama]![ARA] & "*" & "' ORDER BY 1_Tablo_Adres.Adres_ID,1_Tablo_Adres.Unvanı"

Case 2

str = "KYT_Tarih Like '" & "*" & [Forms]![5_Form_Adres_Arama]![ARA] & "*" & "' ORDER BY 1_Tablo_Adres.Adres_ID, 1_Tablo_Adres.Unvanı"

Case 3

str = "Unvanı Like '" & "*" & [Forms]![5_Form_Adres_Arama]![ARA] & "*" & "' ORDER BY 1_Tablo_Adres.Adres_ID,1_Tablo_Adres.Unvanı"

Case 4

str = "TC_No Like '" & "*" & [Forms]![5_Form_Adres_Arama]![ARA] & "*" & "' ORDER BY 1_Tablo_Adres.Adres_ID,1_Tablo_Adres.Unvanı"

Case 5

str = "İL Like '" & "*" & [Forms]![5_Form_Adres_Arama]![ARA] & "*" & "' ORDER BY 1_Tablo_Adres.Adres_ID,1_Tablo_Adres.Unvanı"

Case 6

str = "Adres_1 Like '" & "*" & [Forms]![5_Form_Adres_Arama]![ARA] & "*" & "' ORDER BY 1_Tablo_Adres.Adres_ID,1_Tablo_Adres.Unvanı"

End Select

 Sql = "SELECT Adres_ID,Kodu,KYT_Tarih,Unvanı,TC_No,İL,Adres_1 FROM  1_Tablo_Adres WHERE " & str

Liste1.RowSourceType = "table/query"

Liste1.RowSource = sql

End Sub