السلام عليكم
استخدم مثل هذا للفرز باتجاهين
strFilter = ("SELECT * FROM tbll ORDER BY tbll.name1 ASC;")
strFilter2 = ("SELECT * FROM tbll ORDER BY tbll.name1 DESC;")
If chk.Value = 1 Then
DoCmd.OpenReport "rep1", acViewPreview, strFilter
Else
DoCmd.OpenReport "rep1", acViewPreview, strFilter2
End If
tbl1 يمثل الجدول مصدر البيانات و rep1 يمثل التقرير و chk حقل في النموذج لوضع قيمة كشرط