تنسيق زر فرز السجلات

[lordring]

السلام عليكم

في المرفق التالي لدي زر لفرز البيانات تصاعديا او تنازليا

اريد ان اضع الصورتين التين تمثل كل منهما حالة فرز لهذا الزر

بمعنى عندما اضغط عليه ليفرز تصاعديا تظهر صورة الفرز التصاعدي وعند الضغطة الاخرى يظهر صورة الفرز التنازلي

كما في الصورة الا اني اريدهما في زر واحد

مرفق بتنسيق 2003

http://dl.dropbox.co.../accesas/b2.rar

مرفق بتنسيق 2010

http://dl.dropbox.co.../accesas/b1.rar

وشكرا لكم مقدما .........

تم تعديل أكتوبر 28, 2011 بواسطه lordring

[أ / محمد صالح]

أخي الكريم

موضوع ربط الزر بصورتين ينبغي أن يكون الصورتين مخزنتين بمجلد مجاور للقاعدة

ولكن يفضل استعمال النص تصاعدي وتنازلي بدلا من استعمال الصورتين

ولعمل ذلك استبدل الكود في الموديول بالتالي

Public Sub ChangeSortOrder _

   (frm As Form, strFld As String)

  On Error GoTo ErrHand

  If frm.OrderBy = strFld Then

    'If it's already ordered by this field name,

    'you want to reverse it.

    frm.OrderBy = strFld & " DESC"

    frm.أمر455.Caption = "تنازلي"

  Else

	  frm.OrderBy = strFld

	  frm.أمر455.Caption = "تصاعدي"

    End If

  frm.OrderByOn = True

ExitProc:

  Exit Sub

ErrHand:

  MsgBox Err.Num & " " & Err.Desc

  GoTo ExitProc

End Sub