أرجوا الشرح لا التنفيذ عن كيفية تفعيل خاصية الوقت في نموذج (Access - Form) لأكثر من عنصر داخل النموذج، وقد سبق و أن طلب أحد الأعضاء المساعدة في ذلك و لكن كان الجواب تنزيل/تحميل برنامج به هذه الخاصية ولكن بدون شرح عن كيفية عمل ذلك و حتى البرنامج كان مؤمن لا يمكن الوصول إلى وضعية التصميم لمحاولة فهم الكيفية التي تمت بها تصميم النموذج،و أرفق لكم طيه ذلك النموذج و شكرا
أكثر من Timer في نفس نموذج أكسس
السلام عليكم ورحمة الله وبركاته
أخي الكريم .. صحيح قاعدة البيانات مؤمنة ... ولكنها مفتوحة المصدر ... ولإلغاء التأمين ... عند فتح قاعدة البيانات قم بالضغط على زر Shift ... وستظهر نافذة الأكسيس كامله .... وهذا سيلغي التأمين هذه المرة فقط ... ولإلغاء التأمين دائما ... فانقر على أدوات من شريط القوائم ... ثم إختر بدء التشغيل من القائمة ... وستظهر لك نافذه ... ستجد فيها مربعات إختيار كثيرة ... ضع صح في جميعها ثم موافق
ألآن نشوف البرنامج
تم إضافة عداد وقت للنموذج .. وتم تحديد الفاصل الزمني له 100 .. أي جزء من الثانية ... بحكم أن الثانية تساوي 1000 كقيمة للفاصل الزمني لعداد الوقت ... وفي حدث عداد الوقت ... تم وضع هذا الكود
s = s + 1 Me.Text3 = Nz(Me.Text3, 0) + 1 If s Mod 1000 = 0 Then Me.Text10 = Nz(Me.Text10, 0) + 1 If s Mod 30 = 0 Then Me.Text9 = Nz(Me.Text9, 0) + 1 If s Mod 10 = 0 Then Me.Text7 = Nz(Me.Text7, 0) + 1 If s Mod 5 = 0 Then Me.Text5 = Nz(Me.Text5, 0) + 1
وتم تعريف متغير بإسم s في خارج الحدث لكي لا يتم هدمه ثم إنشاؤه مره أخرى كل مرة بتم تنفيذ الحدث
في السطر الأول تم إضافة واحد لقيمة المتغير السابقة
في السطر الثاني ... سأشرح الدالة Nz وهي تختبر قيمة شئ معين إذا كان Null ... فإذا كان كذلك يعطى القيمة المحدده في المعامل الثاني .. وإذا كان لا فتبقى قيمته .... وهذا لمنع الخطأ الناتج عن جمع واحد لـ Null ... وكما ترى فإن Text3 هو مربع نص لعرض الجزء من الثانية ... وبحكم أن الفاصل الزمني للعداد 100 أي جزء من الثانية فكل مرة يتم تنفيذ الكود فقد مضت جزء من الثانية ... فيجمع واحد للقيمة السابقة لمربع النص
في السطر الثالث ... فيه دالة شرطية .. إذا كان الباقي (وهذه فائدة إستخدام الدالة Mod) من قسمة المتغير s على 1000 يساوي صفر .. ولن يكون الباقي من القسمة صفر إلا في حالة أن قيمة المتغير تساوي 1000 أو مضاعفاتها ... فاجمع واحد على مربع النص Text10 الذي يعرض به المائه ثانية .. لأن 1000 جزء من الثانية يساوي 100 ثانية
وعلى باقي الكود قس
وبالتوفيق
اللهم صلي على محمد وعلى آل محمد كما صليت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
وبارك على محمد وعلى آل محمد كما باركت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
شكرا أخي الكريم على جهودك و وقتك جزيل الشكر، و لكن للأسف لم تعمل عندي سوف الخانة الأولى من الخمس خانات و هذا دليل على أن عملية تعدد التوقيت (Timer) لنموذج واحد لم تفلح معي ربما أحتاج في ما هو أكثر من الشرح،
أما بما يتعلق بما ذكرته عن فتح البرامج المؤمنه ((صحيح قاعدة البيانات مؤمنة ... ولكنها مفتوحة المصدر ... ولإلغاء التأمين ... عند فتح قاعدة البيانات قم بالضغط على زر Shift ... وستظهر نافذة الأكسيس كامله .... وهذا سيلغي التأمين هذه المرة فقط ... ولإلغاء التأمين دائما ... فانقر على أدوات من شريط القوائم ... ثم إختر بدء التشغيل من القائمة ... وستظهر لك نافذه ... ستجد فيها مربعات إختيار كثيرة ... ضع صح في جميعها ثم موافق)) فهذا أيضا لم يفلح،
و لاتزال الحرية تأرق بالي، أرجو من سعة صدرك إحتواء أمر حيرتي حتى الوصول بي إلى المبتغى، مرفق طيه محاولتي الغير ناجحة أرجو الإطلاع عليها و الإفادة بتعديلها و إعادة إرسالها بعد التعديل و شكراً
اخي الفاضل محمود
السلام عليكم ورحمة الله بوركاته
نشكر الأخ koao على الشرح والتوضيح
والأمر بسيط فكل ما عليك هو اضافة هذا التصريح s في اعلى الكود
Dim s As Double
وهذا ملفك بعد التعديل
بالتوفيق
السلام عليكم ورحمة الله وبركاته
الشكر موصول لك أستاذتنا زهرة ... بارك الله بك وبعائلتك ... ورزقك إحسانهم لك .. والجنة
وأنت تامر يا أخي محمود .. فهنا سأشرح كيف تزيل الحماية .. لإستخداماتك المستقبلية
أولا نفتح قاعدة البيانات ... وإذا كانت إعدادات الأكسيس للحماية من الماكرو ... متوسطة .... فإنها ستظهر لك الرسالة التالية
فقبل ما تنقر على فتح إضغط على مفتاح Shift من لوحة المفاتيح مع الإستمرار ثم أنقر على فتح .. ثم أطلق مفتاح الشفت
أما إذا كانت إعدادات الأكسيس للحماية من الماكرو ... منخفضة .... فلن تظهر لك الرسالة السابقة وستفتح القاعدة مباشرة بمجرد النقر على أيقونة قاعدة البيانات من الويندوز إكسبلورر
لذا تحتاج أن تضغط على مفتاح الشفت قبل فتح قاعدة البيانات
الآن أنقر على القائمة أدوات من شريط القوائم وإختر بدء التشغيل كما في الصورة التالية
ستظهر لك نافذة بها مربعات إختيار كثيرة ضع داخلها صح بالنقر عليها ... ثم أنقر على موافق ... كما في الصورة التالية
وهكذا أزيلت الحماية
وبالتوفيق
اللهم صلي على محمد وعلى آل محمد كما صليت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
وبارك على محمد وعلى آل محمد كما باركت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
شكرا جزيلا لكل من ساهم و الله يتقبل منكم، لقد تمكنت من تشغيل ذلك النموذج و لكن لم أستطع أخذة كنموذج أساسي لعمل أكثر من عداد زمني لنموذج واحد، فحاولت أن أشرح لكم فكرة بسيطة تقرب لكم الصورة إلي في خيالي، أنا أحاول تطبيع نظرية الذكاء الصناعي في برنامج لإدخال بيانات و أرشفة لذلك أعمل جاهدا كي لا أفوت لا صغيرة و لا كبيرة. (ملاحظة إن كانت الكتابة غير واضحة في الصورة أرجو النقر عليها لإعادتها إلى حجمها الأصلي كي تتضح الكتابة) ارجو أن لا أكلف عليهم و شكرا
تم تعديل هذه المشاركة بواسطة mahmoudbadwan في 5 يناير 2010 في 10:24
للرفع