[ تمت الإجابة ]عداد

أخى العزيز كارم

تفضل مرفقك بعد التعديل.

أرجو أن يكون هذا هو المطلوب

.. وأعتذر لعدم معرفة الخطأ فى كودك الذى كان موجوداً لأن عندى مشكلة مع المسميات وأسماء الحقول باللغة العربية ...

تحياتى

محمد ندا

Counter.rar

كارم كتب:

اخواني الكرام

عندي نوذجين f وهو الاساسي وf1 هو اللذي يفتح بعد انقضاء 60 في النموذج الاول

الرجاء المساعدة لمعرفة اين الخطاء بالكود للبرنامج المرفق

ولكم الشكر سلفا"

بعد إذن أخي ندا

الخطأ في الكود الخاص بك أخي السائل

هو التعامل مع العنصر (العداد) بعد إغلاق النموذج الذي يحتوي على العنصر

في حين أن هذين السطرين غير مهمين

لأنهما يقومان بتصفير العداد

وهذا ما يحدث عند فتح النموذج

وبناء على ما سبق يصبح الكود الخاص بك هكذا

Private Sub Form_Timer()
العداد = العداد + 1
Me.TimerInterval = السرعة
If Me.العداد = 60 Then

If Me.العداد.Width >= 60 Then
  DoCmd.Close

  DoCmd.RunMacro "m_open_frm"


'Me.العداد = 0
'العداد = العداد + 1
End If
End If

End Sub

قمت باعتبار السطرين قبل نهاية جملة if تعليمات

أو يمكنك حذفهما

خالص تحياتي

جزى الله أستاذنا محمد صالح خيراً عنى وعن السائل ..

تحياتى

محمد ندا

اخي Mohamed Nada

واخي mas123

مشكور لردكم وبارك الله بكما

هذا هو الحل