اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

أيها ا لأخوة الكرام

السلام عليكم ورحمة الله وبركاته وبعد

أريد أن أضع الساعة والتاريخ الهجري والميلادي على نموذج في الأكسس

أرجو التكرم شرح الطريقه خطوة خطوة. حتى أفهمها أنا ومن هو مثلي مبتدأ في البرمجة جعلها الله في موازين حسناتكم يوم القيامة. وشكرا للجميع

-

قام بنشر

السلام عليكم ...

قم بأنشاء مربعين نص الأول يحمل عنوان الساعة والثاني بعنوان التاريخ

وفي خصائص الحقل الأول " مصدر عنصر التحكم " ضع =data()

وفي الثاني =time()

هذا ينفع مع أحد التاريخين الهجري أو الميلادي .. أما الجمع بين التاريخين ... فلعل أحد الأخوة يفيدنا في ذلك ..

والسلام

قام بنشر

شكرا لك أخي العزيز/ فتى الوادي

وسوف أجرب ماقلت. وإنشاء الله أحد الأخوان يفيدنا أكشر وبشرح تفصيلي. وشكرا للجميع

قام بنشر

أضف مربع نص وسمه : TxtTime1 يظهر فيه الوقت بصيغة 12 ساعة

أكتب الكود التالي في حدث " في الحالي للنموذج

 Me.TxtTime1 = Time()
أضف مربع نص وسمه : TxtTime2 يظهر فيه الوقت بصيغة 24 ساعة أكتب الكود التالي في حدث " في الحالي للنموذج
 Me.TxtTime2 = Time$()
لاحظ الفرق في الكودين هي علامة الدولار $ فقط أضف مربع نص وسمه : TxtTDateHijri يظهر فيه التاريخ الهجري أكتب الكود التالي في حدث " في الحالي للنموذج
                   Calendar = vbCalHijri
          TxtTDateHijri = Date
                  TxtTDateHijri = Format(DateHijiri, "yyyy/mm/dd") & " هـ"
أضف مربع نص وسمه : TxtTDateGreg يظهر فيه التاريخ الميلادي أكتب الكود التالي في حدث " في الحالي للنموذج
Calendar = vbCalGreg
                TxtTDateGreg = Date
            TxtTDateGreg = Format(DateEnglesh, "yyyy/mm/dd") & " م "

غير في تسميات مربعات النصوص مثل ما تريد

قام بنشر

الأخ مصلح .. بارك الله فيك وأثابك الله .. لكن عند التنفيذ تظهر لي هذه الصورة .....

msgbox.gif

فما هو السبب ؟؟؟!!

قام بنشر (معدل)

اخي فتى الوادي

لا أعرف سبب تلك الرسالة ولكنني قمت بعمل مثال على الرابط التالي لكي تتطلع عليه

ملاحظة :

بالنسبة للكود الخاص بالوقت أعلاه فأنه لا يتغير وظل على نفس الوقت الذي فتح النموذج عليه وعند الرغبة في أن يستمر الوقت أثناء ما يكون النموذج مفتوحاً فلا بد من نقل كودي الوقت أعلاه من حدث في الحالي إلى حدث " عند عداد الوقت " وجعل الفاصل الزمني لعداد الوقت = 1000 أي ثانية.

أيضاً لا بد من ضبط وقت وتاريخ الجهاز

تيحاتي للجميع

Date_And_Time.rar

تم تعديل بواسطه مصلح الحريصي
  • 3 months later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information