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