rapor ekranına "Lütfen Bekleyiniz Rapor Çalışıyor"

Merhaba;
Sayın sledgeab'ın örneği üzerinde kodları değiştirerek ve bir form ekleyerek size bir örnek ekliyorum. Test amaçlı 80.000 kayıt ekledim.

Kontrol ediniz..

Tesekkur ederim Sn.Beab05

FrmBekele formunun uzerindeki; FrmBekleme yazan bari kaldirabilirmiyiz, sadece lutfen bekleyiniz (hafif koyu renli olan yer) kalsin. Bu mumkunmudur.

Selamlar

Subco

FrmBekleme isimli formun özelliklerinden, "Kenarlık Stili" ni "Yok" olarak seçiniz.

"Otomatik ortala" yı da "evet" olarak seçiniz.

Cok tesekkur ederim. Simdi oldu...

Selamlar

Subco

Madem ki doEvents kullanılmış bir örnek sitemizde yayınlandı, bununla ilgili küçük bir açıklama yapmak gerekir.

DoEvents komutu bir döngünün her dönüşünde aynı işin dallarına da çalışma fırsatları yaratmak içindir. Bu örnekte sayın üyemiz raporun yüklenmesinden önce bir form açtırarak "bekleyiniz" yazısını ekrana getirmiş ve daha sonraki aşamalar için raporun yüklenmesi sırasında işlemin uzun sürmesi nedeniyle bu formun kapatılmasını doevents komutuyla bir sıra dahilinde sağlamış. Raporun yüklenmesi uzun sürdüğünde windows uygulamaya mesaj göndererek "bitir artık şu işi, sistemi zora sokuyorsun" dediğinde doevents ile başlanan eylem "o zaman bir sonraki işe geç kardeşim" şeklinde cevap göndermektedir. Böylece tıkanacak olan uygulama sıradaki diğer işi de tetiklemiş olmaktadır. Bu da tahmini bir süre içeren sleep kullanmadan smart bir bekleme aralığı oluşturur. Komut kullanımı için teşekkürler..

DoCmd.OpenForm "FrmBekleme"

DoEvents

DoCmd.OpenReport "Tablo1", acPreview

DoCmd.Close acForm, "FrmBekleme"