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

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

السلام عليكم

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

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

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

db1.mdbFetching info...

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

[عمر ضاحى]

  في 4‏/11‏/2024 at 06:38, أحمد العيسى said:

السلام عليكم

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

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

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

db1.mdb 156 kB · 1 download

Expand  

هل هذا ما تريد

 

[عمر ضاحى]

 المطلوب منك 

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

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.rarFetching info...

 

 

[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.mdbFetching info...

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

  في 4‏/11‏/2024 at 06:53, عمر ضاحى said:

هل هذا ما تريد

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

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

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

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

 

Expand  

 

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

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

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

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

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

 

[عمر ضاحى]

  في 4‏/11‏/2024 at 07:19, أحمد العيسى said:

 

Expand  

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

  في 4‏/11‏/2024 at 07:39, أحمد العيسى said:

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

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

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

 

Expand  

الحمد لله

 

  في 4‏/11‏/2024 at 07:05, 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

Expand  

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

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