تفعيل زر الخروج بعد اكتمال شريط التحميل

[hougar]

لقد استفدت من هذا المنتدي في تصميم شريط التحميل

أريد انشاء كود يجعل زر الخروج مفعلا بعد اكتمال التحميل تلقائيا

أتمنى أن يكون المثال المرفق واضح

TIMEXIT.accdb

تم تعديل أغسطس 9, 2022 بواسطه hougar

[Barna]

جرب هذا <><><><><><><>

Private Sub Form_Timer()
On Error Resume Next
If Me.box2.Width = 0 Then
Me.TimerInterval = 0
Else
Me.box2.Width = Me.box2.Width - Me.box1.Width \ 200
If (Me.box2.Width) = 1 Then
Me.Command8.Enabled = True
End If
End If
End Sub

 

[hougar]

شكرا جزيلا

 

TIMEXIT.accdb