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

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

وعليكم السلام ورحمه الله

اخي

عند الضغط علي الرابط ( مرفق بتنسيق 2003 ) ، لا يصل الي شيء ، الصورة

عموما جرب هذا الكود - يعطيك الترتيب التنازلي والتصاعدي بنفس الزر

If tsahode.Caption = "تنازلي" Then
tsahode.Caption = "تصاعدى"
Me.OrderBy = "item DESC"
Me.OrderByOn = True
Me.SMIL.Visible = True
Else
tsahode.Caption = "تنازلي"
Me.OrderBy = "item aSC"
Me.OrderByOn = True
Me.SMMIL.Visible = True
End If

وبخصوص الصورة يمكنك فسمي واحدة SMMIL والاخري SMIL

بالتوفيق

عفوا ، للايضاح

tsahode هو اسم الزر و

item هو اسم الحقل الذي سيتم ترتيبة

شكرا اخي هذا هو الرابط

الرابط الخاص بي

ولل 2010

الرابط الخاص بي

العفو اخي lordring

طيب عموما... جرب الكود ونفذة بنفسك.. واخبرنا بالنتيجة

اخي الزر يعمل بشكل جيد لكن لم اعرف كيف اجعل بدلا الكتابة تصاعدي تنازلي تظهر الصورتين التي مع المرفق

اتمنى تتم جميلك بعمله لي مع التقدير

اخي lordring

البرنامج او الملف بتاعك عمل عندي مشاكل لذلك عملت ملف جديد وبه نفس الجدول ونفس النموذج لتنفيذ الفكرة

وارفقتة لك ، الان عند الضغط علي زر الفرز تختفي صورة وتظهر الاخري للدلالة علي حالة فرز هذا الزر

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

واليك الملف

lordring29-10.zip

بالتوفيق اخي

شكر اخي الله يبارك بيك

انا كان في بالي ان نفس الزر يحتوي الصورتين اي بدل ان تظهر فيه كلمة تصاعدي تظهر في الزر الصورة والعكس صحيح

بكل الاحوال اشكرك جدا على مجهودك

تحياتي

طيب مش كنت تقول كدة يا lordring ياأخي

في صورة اكتب هذا الكود

Me.OrderBy = "Name aSC"
Me.OrderByOn = True
Me.SMIL.Visible = fakse
Me.SMMIL.Visible = True

وفي الاخري هذا الكود

Me.OrderBy = "Name DESC"
Me.OrderByOn = True
Me.SMIL.Visible = True
Me.SMMIL.Visible = False

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

فيكون بهذا الشكل

و

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

lordring2-29-10.zip

بالتوفيق

تسلم ايدك ياسيد المعلمين...........

هو هذا ماكنت ابحث عنه شكرا على التعديل وعلى المعلومة الاضافية ..

السلام عليكم

بعد إحترامي لأخي المحاسب الجديد

عملت تعديل بسيط بأزرار مضمنة الصورة بها

والفائدة للجميع

lordring.rar

شكرا اخي بارك الله بيك .......