+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sorgulama Sorunu (/konu-sorgulama-sorunu.html)
Cvp: Sorgulama Sorunu - aydın3838 - 02/12/2010
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
Cvp: Sorgulama Sorunu - alpeki99 - 02/12/2010
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ış.
Cvp: Sorgulama Sorunu - Hayri16 - 02/12/2010
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.
Cvp: Sorgulama Sorunu - alpeki99 - 02/12/2010
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.
Cvp: Sorgulama Sorunu - aydın3838 - 02/12/2010
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 SubCvp: Sorgulama Sorunu - POWER - 02/12/2010
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ı