اخى العزيز
اولا : الف شكرا على الرد و الاهتمام
ثانيا : على كم المعلومات فى الرد
ثالثا : خطا حدث حصل بعد كتب هذا الكود
Dim FieldName As String
Select Case Me.OptSort2
Case 1: Me.CmbFields = "BarCode"
Case 2: Me.CmbFields = "ServiceName"
End Select
FieldName = "[" & Me.CmbFields & "]"
With Me.IssuMaterialSub.Form
Select Case Me.OptSort
Case 1: .OrderBy = FieldName
Case 2: .OrderBy = FieldName & " DESC"
End Select
.OrderByOn = True
End With
هو ترتيب لاسماء الاصتاف فى نموذج فرعى