Makroya ORDER İşlevi Eklemek

[baydeniro]

Merhaba Arkadaşlar. Aşağıdaki makroya kırmızı renkle belirtilen ORDER işlevi *** satırına nasıl eklenebilir ?

Sub veri_A3()
On Error GoTo hata
Dim db As Database, rs As Recordset, str As String
[b6:g60000].ClearContents
Set db = OpenDatabase(ThisWorkbook.FullName, False, False, "Excel 8.0")
str = "SELECT * FROM [MERKEZ$] WHERE ([Ders Notu] Between " & [c3] & " And " & [d3] & ") AND " & _
"([Sınıfı] Like'" & [e3] & "*' )"
*******************************************
Set rs = db.OpenRecordset(str)
Sheets("Sonuçlar").[a6].CopyFromRecordset rs
db.Close: Exit Sub
hata:
MsgBox Error$(Err.Number)
End Sub

"') ORDER BY [" & [b3] & "]"

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Sub veri_A3()
On Error GoTo hata
Dim db As Database, rs As Recordset, str As String
[b6:g60000].ClearContents
Set db = OpenDatabase(ThisWorkbook.FullName, False, False, "Excel 8.0")
str = "SELECT * FROM [MERKEZ$] WHERE ([Ders Notu] Between " & [c3] & " And " & [d3] & ") AND " & _
"([Sınıfı] Like'" & [e3] & "*' [B][COLOR=#ff0000]ORDER BY [" & [b3] & "])"[/COLOR][/B])
Set rs = db.OpenRecordset(str)
Sheets("Sonuçlar").[a6].CopyFromRecordset rs
db.Close: Exit Sub
hata:
MsgBox Error$(Err.Number)
End Sub

 

[baydeniro]

Sayın Levent Menteşoğlu yardımınız için çok teşekkür ederim. Lakin modül çalışmadı. Örnek dosya ekte, inceleme olanağınız olursa memnun olurum.

 

[ffff7]

Dosyanızı ilk mesajınızda eklemeliydiniz.

str = "SELECT * FROM [MERKEZ$] WHERE ([Ders Notu] Between " & [c3] & " And " & [d3] & ") AND " & _
"([Sınıfı] Like '" & [e3] & "*' ) ORDER BY [" & [B3] & "]"

Şeklinde deneyin.

 

[baydeniro]

Sayın ffff7 çok teşekkür ederim. Ne deseniz haklısınız. Bu basit bir syntax sorunudur, siteyi şişirmeyeyim diye düşündüm. Allah sizden razı olsun, hayırlı işler dilerim.