AccessTr.neT

Merhabalar Access penceresini gizlediğim uygulamamda pencere gizlenip veritabanına kaydettiğim açılışta görüntülenen formum olan ana ekranım açılana kadar, 1-2 saniye Access penceresi görününüp kayboluyor ve sonrasında pencere gizleniyor. Bu 1-2 saniyelik süreci progressbar uygulaması ile geçirip ana ekranımın açılmasını sağlayabilirmiyim.

açılış formunu "progressbar" formu olarak ayarlayın
"progresbar" ın kapatıldığında olayına da aşağıdaki kodu ekleyin

Private Sub Form_Close()

DoCmd.OpenForm "F_0_ANA_EKRAN"

End Sub

(21/12/2018, 14:15)haliliyas yazdı: [ -> ]açılış formunu "progressbar" formu olarak ayarlayın
"progresbar" ın kapatıldığında olayına da aşağıdaki kodu ekleyin

Private Sub Form_Close()

DoCmd.OpenForm "F_0_ANA_EKRAN"

End Sub

Halil bey kapatıldığında olayına yazdığımızda progresbar otomatik kapanmıyor benim onu kapatmam gerekiyor değilmi ben öyle olduğunu düşündüm. Progressbardan ana ekrana geçişi benim müdahelem olmadan yapmanın bir yolu yokmu.

Halil bey uyguladım oldu gerçi progressbar çalışırken office etkinleştirme sihirbazı çıktığı için bende progressbardan anaekrana geçiş süreci  daha da uzadı ama bu bende olan bir problem.İşlem tamamdır.Teşekkür ederim.

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

(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.