السلام عليكم ورحمة الله
هذه الخطوات أدناه يمكنك اظهار الوقت والتاريخ بأعلى النموذج
1- انشئ نموذج ومن خلال الخصائص وفي تبويبة حدث ..غير (الفاصل الزمني لعداد الوقت ) الى 1000
2- وفي حدث (عداد الوقت) ضع الكود التالي :
Me.Caption = " " & Format$(Now(), " dd mm yyyy " & " h:mm:ss AMPM")
3-وفي حدث (عند الفتح) للنموذج ضع الكود التالي :
Call Form_Timer
في المرفقات نموذج تطبيق للفكرة
منقول مع التعديل
تحياتي
اللامي