صراحة تعقد عجزت تضبط معي الساعة في Access
في برنامج Visual Basic6.0 قدرت أني أصلح الساعة بوجود الأداة Timer
وهذي الأداة يبدو أنها لا توجد في Access
لكي أضع الكود فيه لكي يتحرك باستمرار
هذا الكود في Visual Basic6.0
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
أما في Access لا اعرف كيف اجعله يتحرك باستمرار
والسلام عليكم
لنفرض أن لدينا مربع نص اسمه txtDate
في خاصية ( مصدر عنصر التحكم ) لهذا الحقل نضع
=Time()
في خصائص النموذج وعند الخاصية ( الفاصل الزمين لعداد الوقت ) ضع القيمة التي تريد مثلاً 1000 لثانية واحدة
عند الخاصية (عند عداد الوقت ) اختر ( إحراء حدث ) واكتب الكود التالي
Me.txtDate.Requery
أيضاً هناك طريقة أخرى لجعل الساعة تتحرك بشكل مستمر وليكن مثلا لدينا مربع نص بإسم c1 (أضغط بالزر الأيمن للماوس على خصائص مربع التسمية وأكتب c1 على الأسم في تبويب "غير ذلك")بعد ذلك اضغط بالزر الأيمن للماوس على منطقة فارغة في خلفية النموذج أي ذات اللون الرمادي الغامق .. (أثناء تصميم النموذج)
بعد ذلك أذهب إلى حدث ثم عند عداد الوقت ثم منشئ البرامج وأكتب الكود التالي :
c1.Caption = time$
ثم أنتقل إلى الفاصل الزمني لعداد الوقت وأكتب 1000
طبق النموذج وبإذن الله ستتحرك الساعة بشكل مستمر .
هذا مثال جميل من احد الاخوان سوف يفيدك
فرض على الناس أن يتوبوا**** لكن ترك الذنوب أوجب
والصبر في النائبات صعب**** لكن فوات الثواب أصعب
والدهر في صرفه عجيب**** لكن غفلة الناس أعجب
وكل ما قد يجي قريب****والموت للعبد من ذاك أقرب
ملف أكثر من رائع .. جزاك الله خيراً
مشكورين وجزاكم الله خير
أشكرك أخي العزيز alali100 على وضع هذا المثال فإنه أعجبني (ساعة جميله).
هذا الموضوع مغلق.