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.
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..
Merhaba sn.Bilgisayarcı,
Evet haklısınız progress bar. Bi yandan denetçilerle uğraşırken bu konuyu açmak zor oldu .
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..
Sayın yoguz
Private Function MouseClick(ctl As Label) altındaki tüm kodları silin ve şunları yapıştırın
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.
Sn. mehmetdemiral çok teşekkürederim..
iyi çalışmalar.