الإخوة القراء أرجو المساعددة في وضع كود لنموذج يعرض التاريخين الهجري والميلادي سويا
شاكر سلفا
ولي رجوع
وأعدكم بمفاجأة
كيفية وضع التاريخين الهجري والميلادي في نموذج
مغلق
اخي الفاضل ابو عبدالله
تستطيع عمل ذلك من خلال الشرح المقدم من قبل مشرفنا المبدع فهد الدوسري بالطريقة التالية
1. انشئ مربعين نص في النموذج غير منظمين
الاول اعطه اسم TxtTDateHijri
والثاني اعطه اسم TxtTDateGreg
2. اختر خصائص النموذج وفي تبويب الحدث اختر الحدث في الحالي وضع هذا الكود
Private Sub Form_Current() Calendar = vbCalHijri TxtTDateHijri = Date TxtTDateHijri = Format(TxtTDateHijri, "yyyy/mm/dd") & " هـ" Calendar = vbCalGreg TxtTDateGreg = Date TxtTDateGreg = Format(TxtTDateGreg, "yyyy/mm/dd") & " م " End Sub
ثم احفظ النموذج وانظر النتيجه
وهذا مثال مرفق على ذلك
اختكم
زهره
شكر الله لك أختي الفاضلة شكرا جزيلا وأرجو الله أن تنالي الخيرية التي وعد بها الرسول صلى الله عليه وسلم من نفع الناس
بالرجوع إلى توقيعك ندرك المعدن الكريم وشكرا مرة أخرى وجزاك الله خيرا
بعد إذن أختي الفاضلة/زهرة
أخي الكريم إليك الملف المرفق عسى أن تجد ما تبغاه
والله الموفق لسواء السبيل
الباشا قمر الزمان
الله هو الموفق لسواء السبيل
هذا الموضوع مغلق.