Skip to main content

AccessTr.neT


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

Oğuz Türkyılmaz
Oğuz Türkyılmaz
7
2219

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

Çözüldü #1
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.
.rar ISSE GROUP Progress Bar.rar (Dosya Boyutu: 185,36 KB | İndirme Sayısı: 16)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#2
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]
Cevapla
#3
(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

[Resim: do.php?imgf=154539093093021.jpg]

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.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#4
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.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#5
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
Cevapla
#6
(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.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task