مساعدة في اضافة على كود

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

السلام عليكم ,,,,,

احتاج عند بداية عداد الوقت يفتح النموذج A 

 وعند انتهاء العداد يغلق نموذج العداد اي النموذج الحالي

Private Sub Form_Open(Cancel As Integer)
    i = 101
Me.pr = "loading ..."
End Sub

Private Sub Form_Timer()
   i = i - 1
    Me("sq" & i).Visible = True
    If i = 1 Then
        Me.TimerInterval = 0
       
    End If

Static intCount As Integer
intCount = intCount - 1
If intCount Then
Me.pr = "loading " & Abs(intCount) & "%"
 
End If
End Sub

 

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

[أبو عبدالله الحلوانى]

وعليكم السلام ورحمة الله وبركاته

جرب هذا لعله يوافي ما تريد

Private Sub Form_Open(Cancel As Integer)
    i = 101
Me.pr = "loading ..."
End Sub

Private Sub Form_Timer()
   i = i - 1
    Me("sq" & i).Visible = True

    If i > 0 Then
        If Not CurrentProject.AllForms("A").IsLoaded Then
        DoCmd.OpenForm "A"
        End If
        '
        Static intCount As Integer
        intCount = intCount - 1
        If intCount Then
        Me.pr = "loading " & Abs(intCount) & "%"
        End If
    
    Else
    DoCmd.Close acForm, Me.Name
    End If
End Sub

تمنياتي بالتوفيق