mesela eklediğiniz uygulamada aşağıdaki kod yok.
Kod:
Private Sub Form_Timer()
Dim I As Integer
For I = 1 To 1000
ProgressBar1.Value = (I / 1000) * 100
Next I
Call Aktar
DoCmd.Close acForm, "FORM1"
End Sub
Private Sub Form_Timer()
Dim I As Integer
For I = 1 To 1000
ProgressBar1.Value = (I / 1000) * 100
Next I
Call Aktar
DoCmd.Close acForm, "FORM1"
End Sub