alttaki kodlarla bağlantı kuruyordum fakat başka bir uygulamada çalışmadı
ne yaptıysam bulamadım
aralarda boşluk bırakmak _ alt tire leri sorun yaptı değiştirdim bu defada
kırmızı ve mavi alanda sorun çıktı arasında boşluk olması gerekli fakat listeye yüklendiğinde tekrar kapalı geldi
bu sorgulamayı bütün genel uygulamalarımda kullanmaktayım
sorun ne olmalı
saygılarımla
SELECT Adres_ID,Kodu,KYT_Tarih,Unvanı,TC_No,İL,Adres_1 FROM 1_Tablo_Adres WHEREUnvanı Like '**' ORDER BY 1_Tablo_Adres.Adres_ID,1_Tablo_Adres.Unvanı
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
