AccessTr.neT

Bul · 12/05/2009, 14:23

Merhaba arkadaşlar,
Animasyonlu menü ekleyerek yapmaya çalıştığım çalışmamda, calışanlar formuna eklediğim kayıt butonuna status bar ekledim. Fakat kayıt butonuna basıldığında status bar çalışıyor ama bitiminde hata veriyor. Konu hakkında yardımcı olabilirmisiniz.
Örnek olarak kullandığım status bar örneğinide ekedim.

teşekkür ederim.

Bul · 12/05/2009, 17:15

Merhaba
1. Hocam bu status bar değil progress bardır.
2. if x false dediğinde çıksın sorun yok. Ama for içinde o alan gereksiz.
3. EXIT_SUB demişsin ama altında exit yok. Ayrıca orası sub değil function. Case içine sadece init ve for next içinde setstatus dediin alanlar kalsın gerisini sil..

Bul · 12/05/2009, 17:45

Merhaba sn.Bilgisayarcı,

Evet haklısınız progress bar. Bi yandan denetçilerle uğraşırken bu konuyu açmak zor oldu . Ozur

Yazdıklarınızı denedim hata vermedi ama bu sefer progress bar kayıt esnasında çıkmadı. Örnek üzerinde denemeniz mümkünmü.?

Teşekkür ederim..

Bul · 12/05/2009, 20:23

Sayın yoguz

Private Function MouseClick(ctl As Label) altındaki tüm kodları silin ve şunları yapıştırın Img-cray

not ilk satırı silmeyin. Ama son satırı silin.)

Kod:

Dim s As String

Select Case ctl.Name

Case "lbl1"

  

Dim X, I

'not: buraya hangi işlemleri yaptıracaksanız o kodu giriniz



DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70



Exit_kaydet_Click:



X = InitStatus("Lütfen Bekleyiniz... " & Me![Oran], "Geçen Süre: 0", Int(Me![Oran]))

    

For I = 0 To Me![Oran]

X = SetStatus("Geçen Süre: " & I, I)

        

If X = False Then GoTo EXIT_SUB

        

Next I

EXIT_SUB:

    X = ResetStatus()

Exit_Yenile_Click:

  

Case "lbl2"

DoCmd.GoToRecord , , acNewRec



Exit_yenikayıt_Click:

Case "lbl3"



Case "lbl4"



Case "lbl5"



Case "lbl6"

stDocName = "menu"

DoCmd.OpenForm stDocName, , , stLinkCriteria



Case "lbl7"

    DoCmd.Close

   'Application.Quit

End Select

End Function

Ben denedim. Bu şekilde sorunsuz çalışıyor.

Kolay gelsin.

Bul · 12/05/2009, 20:31

Sn. mehmetdemiral çok teşekkürederim..

iyi çalışmalar.

AccessTr.neT

Kayıt butonunda progress bar hatası

Kayıt butonunda progress bar hatası

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

Giriş yap

Hesap oluştur

Konu Linkleri