مطلوب كود فهرسة لمحتوى عمود فى نموذج بالضغط على عنوانه

[أحمد العيسى]

السلام عليكم

بالمثال التالى نموذج بسيط المطلوب فيه عند النقر على أي عنوان فيه ( ملف - اسم الموظف - الوظيفة )

يتم فهرسة محتوى هذا العمود تصاعدياً وبمعاودة النقر عليه يتم الترتيب تنازلياً .. وفيما يلى صورة للنموذج

ومرفق مثال للتعديل عليه بالمرفقات

db1.mdb

تم تعديل نوفمبر 4 بواسطه أحمد العيسى

[عمر ضاحى]

14 دقائق مضت, أحمد العيسى said:

السلام عليكم

بالمثال التالى نموذج بسيط المطلوب فيه عند النقر على أي عنوان فيه ( ملف - اسم الموظف - الوظيفة )

يتم فهرسة محتوى هذا العمود تصاعدياً وبمعاودة النقر عليه يتم الترتيب تنازلياً .. وفيما يلى صورة للنموذج

ومرفق مثال للتعديل عليه بالمرفقات

db1.mdb 156 kB · 1 download

هل هذا ما تريد

 

[عمر ضاحى]

 المطلوب منك 

هتعلن عن متغير عام على مستوى النموذج

Private SortAscending As Boolean

هتحتاج الى هذا الصب
 

Private Sub SortRecords(ByVal FieldName As String)
    Dim OrderDirection As String
    If SortAscending Then
        OrderDirection = " ASC"
    Else
        OrderDirection = " DESC"
    End If
    Me.OrderBy = FieldName & OrderDirection
    Me.OrderByOn = True
    SortAscending = Not SortAscending
End Sub

وفى كل تسميه هتيجي عن حدث عند الضغط
وتستدعي الصب 
مثل 

SortRecords "Nr"

لاحظ انى هنا احتجت اى اسم الحقل (كما هو فى الجدول) لهذا الصب
 

 

مرفق الملف بعد التعديل

db1.rar

 

 

[Foksh]

ما شاء الله أستاذ @عمر ضاحى ،، سابق بأفكاره ..

اسمح لي بمشاركة فكرتي البسيطة معك ..

 

بالنسبة لي اعلنت عن 3 متغيرات في النموذج ( للرقم والإسم والوظيفة )
 

Dim sortAscending As Boolean
Dim sortByNameAscending As Boolean
Dim sortByJobTitleAscending As Boolean

وفي حدث عند النقر لكل مربع نص اعتمدت على مصدر سجلات النموذج من الجدول كما يلي :-
 

Private Sub الأسم_Click()
    If sortByNameAscending Then
        Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.Name_T DESC;"
        sortByNameAscending = False
    Else
        Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.Name_T ASC;"
        sortByNameAscending = True
    End If
    Me.Requery
End Sub

Private Sub الوظيفة_Click()
    If sortByJobTitleAscending Then
        Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.School_Work DESC;"
        sortByJobTitleAscending = False
    Else
        Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.School_Work ASC;"
        sortByJobTitleAscending = True
    End If
    Me.Requery
End Sub
Private Sub رقم_Click()
    If sortAscending Then
        Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.Nr DESC;"
        sortAscending = False
    Else
        Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.Nr ASC;"
        sortAscending = True
    End If
    Me.Requery
End Sub

 

db1.mdb

[أحمد العيسى]

38 دقائق مضت, عمر ضاحى said:

هل هذا ما تريد

تمام الصورة خير معبر عن الحل ، شكراً لك
لكن بما أننى استخدم  أكسس 2003  فإن التعديل لم يعمل عليه

بعد التعديل ، ماذا حدث لهذا الصب ( هو موجود أساساً فى النموذج  قبل التعديل )

لكن فى تعديل المثال لم يعد يعمل !!!!

سوف أحاول الاستعانه بالشرح أعلاه ونرى

 

 

تم تعديل نوفمبر 4 بواسطه أحمد العيسى

[أحمد العيسى]

أشكرك شكراً جزيلاً  أخى  عمر ضاحى

قمت بالتعديل فى الملف عندى طبقاً  للأكواد الموضوعة فى توضيحك

وكانت النتيجة ممتازة

 

[عمر ضاحى]

20 دقائق مضت, أحمد العيسى said:

 

هذا ليس له دخل بالكود ال معاك 
هذا شئ تاني مختلف

1 دقيقه مضت, أحمد العيسى said:

أشكرك شكراً جزيلاً  أخى  عمر ضاحى

قمت بالتعديل فى الملف عندى طبقاً  للأكواد الموضوعة فى توضيحك

وكانت النتيجة ممتازة

 

الحمد لله

 

38 دقائق مضت, Foksh said:

ما شاء الله أستاذ @عمر ضاحى ،، سابق بأفكاره ..

اسمح لي بمشاركة فكرتي البسيطة معك ..

 

بالنسبة لي اعلنت عن 3 متغيرات في النموذج ( للرقم والإسم والوظيفة )
 

Dim sortAscending As Boolean
Dim sortByNameAscending As Boolean
Dim sortByJobTitleAscending As Boolean

وفي حدث عند النقر لكل مربع نص اعتمدت على مصدر سجلات النموذج من الجدول كما يلي :-
 

Private Sub الأسم_Click()
    If sortByNameAscending Then
        Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.Name_T DESC;"
        sortByNameAscending = False
    Else
        Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.Name_T ASC;"
        sortByNameAscending = True
    End If
    Me.Requery
End Sub

Private Sub الوظيفة_Click()
    If sortByJobTitleAscending Then
        Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.School_Work DESC;"
        sortByJobTitleAscending = False
    Else
        Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.School_Work ASC;"
        sortByJobTitleAscending = True
    End If
    Me.Requery
End Sub
Private Sub رقم_Click()
    If sortAscending Then
        Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.Nr DESC;"
        sortAscending = False
    Else
        Me.RecordSource = "SELECT tbl_Teacher.Nr, tbl_Teacher.Name_T, tbl_Teacher.School_Work, tbl_Teacher.OnlyYou FROM tbl_Teacher ORDER BY tbl_Teacher.Nr ASC;"
        sortAscending = True
    End If
    Me.Requery
End Sub

 

db1.mdb 256 kB · 3 downloads

يا هلا يا هلا باخي فادي 

يا عم انت هنا المبدع فى افكارك  ما شاء الله عيك