böyle bir durum sözkonusu değil
tablo ve alan isimleri değişik daha önce kullandığım 4 uygulamamdada bu kodlar mevcut ve çalışmaktalar
ve iş yerimde kullanmaktayım aynı pc de yeni bir uygulama yapıyorum sadece fark tablo ve alan isimleri değişik
kodlarda oynama yapmadım sadece alan isimlerini ve tablo isimleri, vs değişti
şayet yardımcı olacaksanız örnek uygulamada gösterirseniz sevinirim
saygılar

SELECT Adres_ID,Kodu,KYT_Tarih,Unvanı,TC_No,İL,Adres_1 FROM  1_Tablo_Adres WHER EUnvanı Like '**' ORDER BY 1_Tablo_Adres.Adres_ID,1_Tablo_Adres.Unvanı

Kısıtlı vaktimde yardımcı olmaya çalışıyorum ancak olaya sizin el atmanız lazım. Bakın yukarıdaki kodu sizin uygulamanızda yer alan Liste1 kutusunun Denetim Kaynağından kopyalayıp yapıştırdım.

WHERE Unvanı yerine WHER EUnvanı yazıyor. Böyle bir durum söz konusu değil demeden önce keşke inceleseydiniz. Yine aynı kodda Like '**' yazılmış.

Sayın Aydın3838;
Alpeki Hocamın söylediği gibi Liste1 'in özellikler kısmında bulunan Satır kaynağında yazım hataları mevcut. Ayrıca kodda da seçime göre tekrar satır kaynağı tanımlıyorsun.(Bunun ne derece etkili olduğunu bilmiyorum) Kolay gelsin.

Like '*' diyorsunuz peki devamı ne? Neye göre * bu durumda her şeyi gösterir. Satır sonunda ; yok. Vba kodundaki Sql cümlelerinin birleştirilmesi sırasında boşluk bırakılmadan direkt birleştirilme yapılmış.

Şayet yardımcı olacaksam oldum gibi geliyor ancak direkt bizim yapmamızı isteyipte kendiniz ısrarla bakmamakta direniyorsunuz pes diyorum.

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

Sn aydın3838,

Kodlarınızda hata yok.

Hatanın sebebi form ilk açıldığında Liste1 in satır kaynağına aşağıda yazmış olduğunuz atamayı yapmaya çalıştığından kaynaklanıyor.Bunu düzetirseniz hata kalkacaktır.

Hatalı .....................
SELECT Adres_ID,Kodu,KYT_Tarih,Unvanı,TC_No,İL,Adres_1 FROM 1_Tablo_Adres WHER EUnvanı Like '**' ORDER BY 1_Tablo_Adres.Adres_ID,1_Tablo_Adres.Unvanı