مساعدة في انشاء عداد تلقائي

[ازهر عبد العزيز]

السلام عليكم ... لدي نموذ K يحتوي على حقل A,B كيف اضيف داخلهما عداد بحيث يبداء العد من 1 الى 9 بحيث عند انتهاء العد يبداء من جديد تلقائيا

19.accdb

تم تعديل أبريل 14, 2020 بواسطه ازهر عبد العزيز

[Shivan Rekany]

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

ممكن توضيح اكثر ... في الحقيقة نزلت المرفق لكن لا اعرف ماذا تريد بالضبط

[ازهر عبد العزيز]

الاستاذ @Shivan Rekany شكرا لمرورك  ما اريدة جعل الحقول  A, B في النموذج   يعملان  كعمل ثواني الساعة لكن بدل 60 ثانية تكون 9  وليس مهم  سرعة العد حتى وان كانت اسرع من ثواني الساعة  

[Shivan Rekany]

23 دقائق مضت, ازهر عبد العزيز said:

الاستاذ @Shivan Rekany شكرا لمرورك  ما اريدة جعل الحقول  A, B في النموذج   يعملان  كعمل ثواني الساعة لكن بدل 60 ثانية تكون 9  وليس مهم  سرعة العد حتى وان كانت اسرع من ثواني الساعة  

حسب ما فهمت انا اتفضل اليك هذه الاكواد

Private Sub Command13_Click()
Me.TimerInterval = 250
If Me.A = 0 Then Me.A = 1
If Me.B = 0 Then Me.B = 1
End Sub

Private Sub Command15_Click()
Me.TimerInterval = 0
End Sub

Private Sub Form_Timer()
If Me.A = 9 Then
    Me.A = 1
Else
    Me.A = Me.A + 1
End If
If Me.B = 9 Then
    Me.B = 1
Else
    Me.B = Me.B + 1
End If
End Sub

واليك المثال

 

19 (1).accdb

[ازهر عبد العزيز]

الاستاذ @Shivan Rekany شكرا جزيلا

[ازهر عبد العزيز]

z

 

تم تعديل أبريل 14, 2020 بواسطه ازهر عبد العزيز