Soru Sql Sorgu Sıralama Kod Hatası

[toprak2349]

Vba ile sql sorgu yaparken sorgunun içine sıralama kodunu nasıl ekleyebilirim ?
Mevcut sorgum:

If Me.OptionButton23 = True Then txtOlcut = txtOlcut & " and asfalt='Var'"


If Me.OptionButton24 = True Then txtOlcut = txtOlcut & " and asfalt='Yok'"


txtOlcut = Mid(txtOlcut, 5)


rs.Open "select * from envanter order by nufus ", baglan, adOpenKeyset, adLockPessimistic


rs2.Open "select * from envanter where " & txtOlcut  order by nufus ", baglan, adOpenKeyset, adLockPessimistic

Bu sorguda rs.open çalışıyor.
Ama rs2.open sorgusu çalışmıyor. Rs2 sorgusunda order by nufus syntax ının muhtemelen yanlış yazıyorum, doğrusunu nasıl yazabilirim ?
Yani sorguda hem txtOlcut kriterlerine göre sorgu yapsın ve bunu nufus a göre sıralasın !
yardımcı olabilir misiniz?

 

[Mehmet Şahin]

" asfalt='Yok'"

şeklinde dener misiniz, yani "and" silinmeli.

 

[toprak2349]

" asfalt='Yok'"

şeklinde dener misiniz, yani "and" silinmeli.

Hocam "and" silinmesi için txtOlcut = Mid(txtOlcut, 5) kodunu kullanıyorum. hata order by nufus kısmında hata veriyor. Yani ben order by nufus syntax ını yanlış mı yazıyorum acaba bulamadım ? ' veya " hatası mı var anlayamadım !

rs2.Open "select * from envanter where " & txtOlcut  order by nufus ", baglan, adOpenKeyset, adLockPessimistic

 

[Erdem Akdemir]

Aşağıdaki gibi deneyebilir misiniz.

"select * from envanter where " & txtOlcut & " order by nufus"

 

[toprak2349]

Aşağıdaki gibi deneyebilir misiniz.

"select * from envanter where " & txtOlcut & " order by nufus"

Çok teşekkürler...Şu an çalışıyor...

 

[Mehmet Şahin]

Dikkatsizlik, acelecilik ve doğru okumama her sorunun başıdır.