Açılışta Progressbar Kullanımı Hakkında.

1 2
21/12/2018, 13:39

Oğuz Türkyılmaz

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.
21/12/2018, 14:15

berduş

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:27

Oğuz Türkyılmaz

(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.
21/12/2018, 14:37

Oğuz Türkyılmaz

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.
21/12/2018, 15:01

berduş

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, 16:21

Oğuz Türkyılmaz

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