طلب كود تاريخ اليوم في التكست ويقبل التعديل

هجاوبك عن الجزء الأول :

Calendar = vbCalHijri
Text1.Alignment = 1
Text1.Text = Format$(Date, "YYYY/MM/DD", vbSaturday)

التانى: أنا بكره قواعد البيانات , أعمل بحث بالمنتدى و أكيد هتلاقى الأجابة.

جبت لك الحل لسؤالك الثاني ... يمكن :)

قد يكون هذا المثال يفي بالغرض فقد جهزته من اجلك.. لك مني الف تحية:

_____________.rar

الاخوة

msayed2004 وابو مؤيد لكم مني كل التقدير والشكر على تجاوبكم السريع

وعسى أن يكون ذلك في ميزان حسناتكم

ولكن لدي تعقيب بسيط بالنسبة للاخ msayed2004 لقد عملت طريقتك من قبل ولكن يعاب عليها انة لا يمكن التعديل عليها يعني ثابتة في التكست او هناك طريقة لا اعرفها حتى يتم التعديل امل توضيحها مع الشكر

الاخ ابو مؤيد لا تضهر لدي Picture التي عملتها ولكن مافائدتها كي تتضح الصورة لدي وسوف اجرب المثال واخبرك بالنتائج مع شكري لك

مش فاهم يعنى ايه التعديل ؟ و ايه المشكلة اللى بتحصل , معلومة الـ Microsoft Masked Edit Control قد تكون الأفضل فى هذه الحالة , يعيبها أنها أداه فأبحث عن بديل لها مفتوح المصدر.

و رأى أن الأفضل منها أيضا هو أستعمال Label بدل Textbox ووضع زر بجانبه يفتح Calendar يختار منها المستخدم التاريخ.