الإخوة الكرام
السلام عليكم ورحمة الله وبركاته .
صممت برنامج فيه التاريخ الهجري والتاريخ الميلادي
ولكن المشكلة أنه عندما أضيف سجل جديد أو أذهب إلى السجل التالي يتم تحويل التاريخ الهجري إلى ميلادي .
أنظر التاريخ أسفل .
وقد أرفقت المثال للتوضيح .
مشكلة مع التاريخ الهجري مرة أخرى ؟
مغلق
اخي ابو عبير
السلام عليكم ورحمة الله وبركاته
لكي تستخدم التاريخ الهجري والميلادي مع بعض في النموذج فضع هذا الكود في حدث الحالي او عند تحميل النموذج
Private Sub Form_Current() Calendar = vbCalHijri HD = Date HD = Format(HD, "yyyy/mm/dd") & " هـ" Calendar = vbCalGreg det = Date det = Format(det, "yyyy/mm/dd") & " م "
حيث HD يمثل مربع النص الغير منضم الذي يمثل التاريخ الهجري
و det يمثل مربع النص الغير منضم للتاريخ الميلادي
ملاحظة : وجدتك قد استخدمت مربع تسمية " هـ " و " م " وهذه لا تحتاجها بل تكون في الكود
وهذا ملفك بعد التعديل
اختكم
زهره
والله يعجز لساني عن شكرك .
ولكن لا أقول إلاّ ( اللهم لا ترينا في أختنا زهرة مكروهاً ولا في من تحب )
ألف ألف مليون شكر
والله إني عاجز أمام كرمك .
هذا الموضوع مغلق.