+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Açılışta Progressbar Kullanımı Hakkında. (/konu-acilista-progressbar-kullanimi-hakkinda.html)
Sayfalar:
1
2
Açılışta Progressbar Kullanımı Hakkında. - Oğuz Türkyılmaz - 21/12/2018
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.
Cvp: Açılışta Progressbar Kullanımı Hakkında. - berduş - 21/12/2018
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![[Resim: do.php?imgf=154539093093021.jpg]](https://accesstr.net/resim/do.php?imgf=154539093093021.jpg)
Cvp: Açılışta Progressbar Kullanımı Hakkında. - Oğuz Türkyılmaz - 21/12/2018
(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.
Cvp: Açılışta Progressbar Kullanımı Hakkında. - Oğuz Türkyılmaz - 21/12/2018
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.
Cvp: Açılışta Progressbar Kullanımı Hakkında. - berduş - 21/12/2018
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 SubCvp: Açılışta Progressbar Kullanımı Hakkında. - Oğuz Türkyılmaz - 21/12/2018
(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.