Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
12/05/2009 14:23
Konu Sahibi
yoguz
Yorumlar
4
Okunma
1682
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy
Kullanici Avatari

yoguz

Üye
Üye
 45
 18
 5
 02/05/2009
0
 İstanbul
 
 Ofis 2007
 20/07/2017,13:32
Çözüldü 
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.


yoguz, 02-05-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

Bilgisayarcı

Atçalı
Aktif Üye
 Belirtilmemiş
 658
 34
 29/01/2008
410
 Antalya
 
 Ofis 2003
 01/11/2011,15:17
Çözüldü 
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..


Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes



Kullanici Avatari

yoguz

Üye
Üye
 45
 18
 5
 02/05/2009
0
 İstanbul
 
 Ofis 2007
 20/07/2017,13:32
Çözüldü 
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..


yoguz, 02-05-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

mehmetdemiral

.
Uzman
ME.... DE....
 53
 4.890
 213
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 23/09/2018,22:15
Çözüldü 
Sayın yoguz

Private Function MouseClick(ctl As Label) altındaki tüm kodları silin ve şunları yapıştırınImg-craynot ilk satırı silmeyin. Ama son satırı silin.)

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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.


İnadına, ille de Accesstr.net...

Kullanici Avatari

yoguz

Üye
Üye
 45
 18
 5
 02/05/2009
0
 İstanbul
 
 Ofis 2007
 20/07/2017,13:32
Çözüldü 
Sn. mehmetdemiral çok teşekkürederim..

iyi çalışmalar.


yoguz, 02-05-2009 tarihinden beri AccessTr.neT üyesidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü ALike Hatası notrino 2 52 20/09/2018, 10:02
Son Yorum: notrino
Çözüldü Liste Kutusu Eksik İsleç Hatası hey 19 343 16/09/2018, 18:38
Son Yorum: hey
Çözüldü Form Da Yapmış Olduğum Hesaplama İşlemi #tür! Hatası Veriyor kursun 3 170 15/09/2018, 21:10
Son Yorum: kursun
Çözüldü Hata: Birinci Tablonun Başvurulan Alanı İçin Benzersiz Dizin Bulunamadı.hatası kursun 4 134 15/09/2018, 12:52
Son Yorum: ozanakkaya
Çözüldü Hata: Birinci Tablonun Başvurulan Alanı İçin Benzersiz Dizin Bulunamadı.hatası kursun 8 183 15/09/2018, 12:51
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.