اخواني الكيرام
يوجد لدي نوذج رقم 1 به وقت
مثال
حينما لا يتم استخدام النموذج لمده 20 ثانيه يقوم بالعد التنازلي وحين نهاية الوقت يتم اغلاق النموذج رقم 1 وفتح النموذج رقم 2 تلقائي
اغلاق نموذج وفتح نموذج بالوقتj
up
ربي يعطيك العافيه
اشكرك على هذا الابداع
ربي يعطيك العافيه
سوال اخي الكريم
ان تحريك الموس او لوحة الكيبور في النموذج الرئيسي يوثر على الوقت ويجعله يبدى من جديد وهو شي جميل و ممتاز
ولكن حين تحريك الموس او لوحة الكيبور في النموذج الفرعي لا يوثر على الوقت ولا يجعله يبدى من جديد
هل من الممكن جعل تحريك الموس او لوحة الكيبور في النموذج الفرعي او الرئيسي يوثرون على نفس عداد الوقت الموجود في النموذج الرئيسي
المرفقات
up
الامر يحتاج الى التطبيق بنفس الطريقة على النموذج الفرعى
لم تنجح التجربه
حيث ان انموذج الاساسي يوثر على النموذج الفرعي
up
up
up
up
up
up
up
up
عزيزي...
من الطبيعي في شاشات قواعد البيانات التي بها نماذج رئيسة وفرعية ان يتم تشغيل النموذج الفرعي مع النموذج الرئيس
وبالتالي يجب ان يكود الكود -كهذا النوع من الاكواد التي لا تتعلق بالبيانات بل بواجهة التطبيق- ان يكتفى بالكود في النموذج الرئيس...ولانك لا تشغل النموذج الفرعي مستقلا فبمجرد تحريك الماوس او الضغط على زر الكيبورد ان ينفذ الكود
تحياتي
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
اشكرك اخي العزيز
اذا كيف يتم جعل الوقت مشترك بين النموذج الفرعي و الرئسي
بحيث اذا تم تحريك الموس او الكيبوورد في النموذج الفرعي او الرئيسي يعيد عداد الوقت نفسه
اجعل المتغير الخاص بعرض الوقت في المربع النصي متغيرا عاما...اي في وحدة نمطية، وهكذا عند استدعاءه في اي نموذج يحدث المطلوب..
تحياتي
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
اشكرك على الرد
لم اتمكن من تطبيق ماذكرته
هل من الممكن تعديل على المثال
up
ربي يعطيك العافيه
في ميزان حسناتك اخي الكريم
اخواني الكيرام حين تطبيق المثال
تظهر لي رساله
run-time 5
invalid procedure call or argument
ويوجد الخلل في الكود
Private Sub Form_Timer()
mlngTimeout = mlngTimeout + 1
Me.txt1.Caption = 90 - mlngTimeout & " " & "Ë"
If mlngTimeout = 90 Then ' 5 minutes
DoCmd.OpenForm "frm-UserLogon"
DoCmd.Close acForm, Me.Name
End If
End Sub
حيث يكمن الخلل في جمل
DoCmd.Close acForm, Me.Name
هل من حل اخواني الكيرام
المرفقات
اخى اعتقد انك تضع كود عند اغلاق النموذج يتعارض مع هذا الكود
يرجى وضع المثال الذى تقوم بالتطبيق عليه