الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

إدراج عداد زمني في النموذج

مغلق
بدأه النعمان في 4 أبريل 2005 · 8 رد · 1,105 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الأخوة الأعزاء في هذا الموقع الرائع، السلام عليكم ورحمة الله

هذه مشاركتي الأولى معكم في هذا المنتدى المتخصص، ولدي تساؤل لأهل الاختصاص عن إمكانية إدراج عداد زمني في النماذج بالطريقة التالية:

لدي جدول به ثلاث حقول وهي:

1. رقم الاتصال

2. جنس المتصل

3. مدة الاتصال

وكذلك لدي نموذج يحوي الحقول السابقة، والمطلوب عمل زر اسمه (حساب وقت الاتصال)، يعمل كالتالي:

1. عند ورود اتصال هاتفي جديد لدي، أقوم بالضغط على زر (حساب وقت الاتصال).

2. يقوم العداد أعلى الزر بالعمل تلقائياً على حساب الوقت كما هو متعارف في ساعات الـ Stop Watch .

3. حين الانتهاء من الاتصال، أقوم بالضغط على زر آخر يكون اسمه (انتهاء الاتصال) ليتوقف العداد، ويأخذ الرقم الناتج ليوضع في حقل مدة الإتصال.

تجدون في المرفق مثال بسيط عن المطلوب..

* إذا من الممكن دمج زر (حساب وقت الاتصال)، وزر (انتهاء الاتصال) في زر واحد يكون أفضل، أي حين الضغط على زر (حساب وقت الاتصال) يتحول الزر تلقائياً إلى زر (انتهاء الاتصال) ويعمل نفس العمل السابق.

شاكرين لكم حسن التعاون.

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

db1.rar

تم تعديل هذه المشاركة بواسطة النعمان في 4 أبريل 2005 في 10:29

#2

تفضل بالملف بعد التعديل عليه مع الملاحظة أنه وقعت تعديلات على بعض مسميات الحقول

db11.rar

#3

رائع، أحسنت أخي العزيز biskra هذا ما كنت أريده،

وفقك الله وبارك فيك..

#4

لي تساؤلين جديدين حول الموضوع لتطوير البرنامج:

عمل زر اضافي اسمه (( اتصال جديد ))

يقوم هذا الزر باضافة مستند لمتصل جديد،

المطلوب: عند الضغط على زر اتصال جديد يعمل التالي:

1. يتم ايقاف العداد، ومن ثم يخزن القيمة في الحقل المناسب.

2. يتم تصفير العداد.

3. يفتح سجل جديد ويتم الانتظار حتى يتم الضغط على تشغيل العداد.

--------

السؤال الثاني:

هل يمكننا عمل زر اختصار للأزرار المعمولة؟!

بمعنى أنني أريد أعمل اختصار لاتصال جديد وليكن F2 مثلاً ليعمل عمل زر (( اتصال جديد ))

وكذلك عمل اختصار في مفتاح F3 لبدء عمل العداد.

-------

أشكر للأخوة سعة صدرهم وفي انتظار الاجابة إن أمكن!!

أخوكم النعمان

db11.rar

#5

تفضل أخي الكريم

عملنا تحديث حسب المطلوب

أما بخصوص مفاتيح الاختصار فهي بالاخص

للنماذج !

كود

اقتباس
'ضع الكود التالي في الوحدة النمطية الخاصة بالنموذج

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode

Case vbKeyF2: DoCmd.OpenForm "اسم النموذج"

Case vbKeyF3: DoCmd.OpenForm "اسم النموذج"

Case vbKeyF4: DoCmd.OpenForm "اسم النموذج"

Case vbKeyF5: DoCmd.OpenForm "اسم النموذج"

Case vbKeyF6: DoCmd.OpenForm "اسم النموذج"

End Select

End Sub

جربها قد تمشي معك ...

مع خالص التحيات ،،،

عبدالمانع

db11.rar

إنما الأمم الأخلاق ما بقيت ××× فإن هم ذهبت أخلاقهم ذهبوا ...
#6

أحسنت أخي العزيز عبدالمانع، هذا ماكنت أريده بخصوص زر الاتصال الجديد.

كما أفدتني بمعلومة رائعة بخصوص الاختصار،

ولكن كان مقصودي في زر الاختصار هو تفعيل زر معين باختصار في لوحة المفاتيح،

بمعنى آخر، إذا أردت أن اعمل اتصال جديد مثلاً اضغط على F2، وإذا أردت أشغل العداد مثلاً أضغط F3 مثلاً.

لكن معلومة فتح النماذج ممتازة جداً، فبورك فيك ووفقك.

وجزاك الله خيراً

#7

الأخ العزيز عبدالعال، وفقه الله

هناك عدة مشاكل في المثال الذي أرفقته، أحببت تبيينه لمحاولة تعديله، وهي كالتالي:

* عند الضغط على زر (( اتصال جديد )) يذهب إلى السجل الأول، ولا يذهب إلى سجل جديد.

- عند محاولة الذهاب يدوياً إلى آخر سجل، ومن ثم نبدأ في تشغيل العداد، العداد سوف يستمر من آخر مرة ضغطت فيها على زر (( اتصال جديد ))، بمعنى إذا بدأت البرنامج بالضغط على تشغيل العداد ثم بعد مرور 30 ثانية - مثلاً - نضغط على اتصال جديد يتم حفظ الـ 30 ثانية في المكان الصحيح، وعند الذهاب إلى سجل جديد يدوياً وتشغيل العداد، سوف يستمر العداد ويبدأ من 30، وكان المطلوب أن يبدأ من الصفر.

* عند الذهاب إلى أي سجل سابق وضغطت على زر التصفير يتم تصفير العداد وكذلك تصفير مدة الاتصال، والمفروض أنه لا يتم المساس أبداً بمدة الاتصال.

هذه بعض الملاحظات حول البرنامج المرفق من قبل أخي العزيز عبدالعال، فأرجو تعديله أو اقتراح الأفضل.

أشكر للأخوة سعة صدرهم وفي انتظار الاجابة إن أمكن!!

أخوكم النعمان

#8

تفضل اخي الفاضل

تحديث بسيط ’’’

وجرب !!!

مع خالص التحيات ،،،

عبدالمانع

الاتصالات.rar

إنما الأمم الأخلاق ما بقيت ××× فإن هم ذهبت أخلاقهم ذهبوا ...
#9

وهذة تعديلة على شان مفاتيخ الاختصار ’’’

Esc - إغلاق النموذج F1 - تعليمات F2 - اتصال جديد

F3 - تشغيل العداد F4 - تصفير F5 - حذف كل البيانات

F6 - حذف السجل الحالي

مع خالص التحيات ،،،

عبدالمانع

الاتصالات مع مفاتيح الاختصارات.rar

إنما الأمم الأخلاق ما بقيت ××× فإن هم ذهبت أخلاقهم ذهبوا ...

هذا الموضوع مغلق.

مواضيع مشابهة