(21/12/2018, 15:01)haliliyas yazdı: biraz bekleyince kendisi kapanıyor aslında emin değilim ama modülde pause 2
yazan 1 yer var galiba orası 2saniye daha beklemesine neden oluyor daha az beklemesi için 
pause 0.5 
yazarsanız yarım saniye bekler

Private Sub Form_Timer()

On Error GoTo Err_Form_Timer



Do Until l >= lbarlnth

    Call RunProgressBar(l)

    l = l + Steplth

    Pause 0.01

Loop



Pause 2 ' pause 2: 2 saniye daha ekranda kalmasını sağlıyor

DoCmd.OpenForm "F_0_ANA_EKRAN" 'isterseniz progresbar form kapandığında ana formu açmayı buraya ekleyin

DoCmd.Close acForm, Me.Name



Exit_Form_Timer:

   Exit Sub



Err_Form_Timer:

    MsgBox Err.Description

    Resume Exit_Form_Timer



End Sub

0.01 Yaptım ve progressbar sonuna geldiğinde bekleme sona erdi.