Formda aktif kayıt ve toplam kayıt sayısını yazdırmak nasıl olur ?
Tarih
15/04/2009 15:04
Konu Sahibi
mehmeser
Yorumlar
10
Okunma
4166
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy



mehmeser
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
135
07/02/2009
-
Ofis 2003
02/09/2009,00:18
Çözüldü 
Merhabalar. REsimde de görüldüğü gibi formda zaten var olan gezinti düğmelerinin benzerini ben de yaptım. Fakat orda olan aktif kayıt no ve toplam kayıt no kısmını yardım da aldığım halde çözemedim.

Saddörneğimde fom açıldığında ve filtre uygulandığında kodlar çalışmıyor!

Bir de Access'e ait yerde filtre uygulanmışsa süzülmüş diye belirtiyor. Böyle olursa daha iyi olacak.

Belki kullandığım kod dışında başka yöntemler de vardır ?

Alttaki gezinti düğmelerini yerini ve görüntüsünü değiştirmek için iptal edeceğim.

teşekkürler.

resim


Ek Dosyalar
.rar   sorun.rar (Dosya Boyutu: 859,06 KB / İndirme Sayısı: 75)
Cevapla


Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
Dün,15:18
Çözüldü 
Kodda atamak yerine direkt metin kutusunun kayıt kaynağına yazmayı deneyin.

Koddaki atamaları kaldırın ve

txtAktifKayit 'nın kayıt kaynağına

Kod:
=[CurrentRecord]


txtToplamKayit 'nın 'nın kayıt kaynağına

Kod:
=RecordsetClone.RecordCount


yazın. Denedim düzgün çalışıyor.

filtre uygulandığında çalışmıyor demişsiniz ama sizin formda filtreleme göremedim. Üstte Ara var, ancak o formdaki kayıt sayısını değiştirmiyor, sadece istenilen kayda gidiyor o kadar.

Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla


mehmeser
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
135
07/02/2009
-
Ofis 2003
02/09/2009,00:18
Çözüldü 
Merhaba,

Ne kadar teşekkür etsem azdır size. Hem bir sürü form olayına kod yazmaktan kurtuldum hem de profesyonelce ve bir kadar basitçe uygulanabilir. Hem de hatasız, hata olursa Access in kendi rutinleri yüzünden olacak. Ama ben biraz da daha geliştiridim tekniğinizi, Toplam kayıt kutusuna:

Kod:
=IIf([NewRecord];RecordsetClone.RecordCount+1;RecordsetClone.RecordCount)


Bu sayede yeni kayıtta da doğru görünüyor rakam. 275/274 yerine 275/275 oluyor. Buna bir de filtre uygulanırsa mesaj ekleyeceğim bir yere her şey tamma oldu.

Bahsettiğim filre kutulardan birini seçip "Seçime göre filtre uygula" gibi içerik menüsünde idi. Ama onlar da düzgün çalıştı. Prozblem çözüldü. Aslında imzamdaki birinci cümlenin kehaneti gerçeleşmiş oldu. Uzaklarda arama diyor her zaman çözüm kendini.

Sağlıcakla, sağolun.

Cevapla


mehmeser
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
135
07/02/2009
-
Ofis 2003
02/09/2009,00:18
Çözüldü 
Selamlar,

Sayın Access uzmanları neredeyse çıldırmak üzereyim artık bu kadarına da pes doğrusu.

İki farklı formda aynı işlemi yapıyorum birinde çalışıyor diğerinde yanlış toplam veriyor. tüm vb kodlarını silip denedim, tüm form nesnelerini silip denedim bi şey bulamadım. Nesneyi yeniden oluşturdum olmadı, çalışan formdan kopyaladım olmadı. Personel formunda çalışan

=IIf([NewRecord];RecordsetClone.RecordCount+1;RecordsetClone.RecordCount)

komutu Ogrenci formunda neden çalışmıyor ?

Hatta kayıtları sildim azalttım abuk sabuk şeyler de denedim olmadı. Nedense Ogrenci formunda ilk girişte sürekli toplam txtToplamKayit sürekli 1 görünüyor ilerleyince düzeliyor. bunun ilacı nedir yoksa Access arasıra böyle şeyler yapar mı ?

resimresim

Resimde görülen sorun nasıl çözülür? Örnek ektedir.
Cevapla


Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
Dün,15:18
Çözüldü 
Enterasan bir problem.

Ogrenci tablosunu kullanan, Yeni bir form oluşturduğumda çalışıyor.
Ancak sizin formda düzgün çalışmıyor nedense.

Formda bu kodla çakışan bir şeyler olabilir ama
sorun nedir bilmiyorum açıkcası.

[bilgi]Sn. Mehmeser'in isteği üzerine ek kaldırılmıştır[/bilgi]
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla


esrefigit

Kullanici Avatari
Onursal
598
30/10/2008
356
Konya
Ofis 2003
06/11/2015,13:38
Çözüldü 
bu yol genel olarak kullanılan yol değildir

doğrusu budur kodun ilgili kısmını aynen değiştir


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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
Private Sub Form_Current()

Dim rst As DAO.Recordset
 Set rst = Me.RecordsetClone
 
 'son kayda gitki toplam kaydı alabilleeim
 rst.MoveLast

 ' rst nin bu formun kayıtlarına dayandığını belirtiyoruz
 rst.Bookmark = Me.Bookmark
 Me.txtToplamKayit = Me.CurrentRecord & " de " & rst.RecordCount[hr]
aslında doğru navigation kodu bu şekilde olmalı

Private Sub Form_Current()
Dim rst As DAO.Recordset
 
On Error GoTo ERRORForm_Current
    Dim strErrMsg As String
 
 ' default olarak düğmelerin durumu
 Me.ilk.Enabled = True
 Me.önceki.Enabled = True
 Me.sonraki.Enabled = True
 Me.son.Enabled = True

 Set rst = Me.RecordsetClone
 

 rst.MoveLast

 rst.Bookmark = Me.Bookmark
 

 If rst.AbsolutePosition = 0 Then
    Me.ilk.Enabled = False
    Me.önceki.Enabled = False
 End If

 
 If Me.CurrentRecord >= Me.RecordsetClone.RecordCount Then
    Me.sonraki.Enabled = False
    Me.son.Enabled = False
 End If

 Me.kayitno.Caption = Me.CurrentRecord & " de " & rst.RecordCount

 rst.Close
 Set rst = Nothing
 
 
ERRORForm_Current_exit:
        On Error Resume Next
        Exit Sub
        
ERRORForm_Current:
        Select Case Err
        Case 3021
            Resume Next
        Case Else
            strErrMsg = strErrMsg & "Error #: " & Format$(Err.Number) & vbCrLf
            strErrMsg = strErrMsg & "Error Description: " & Err.Description
            MsgBox strErrMsg, vbInformation, "Kayda gidiyorsun"
            Resume ERRORForm_Current_exit
        End Select



 
End Sub

Private Sub ilk_Click()
On Error GoTo Err_ilk_Click


    Me.Recordset.MoveFirst
    
Exit_ilk_Click:
    Exit Sub

Err_ilk_Click:
    MsgBox Err.Description
    Resume Exit_ilk_Click
    
End Sub
Private Sub önceki_Click()
On Error GoTo Err_önceki_Click


     Me.Recordset.MovePrevious
    

Exit_önceki_Click:
    Exit Sub

Err_önceki_Click:
    MsgBox Err.Description
    Resume Exit_önceki_Click
    
End Sub
Private Sub sonraki_Click()
On Error GoTo Err_sonraki_Click


    Me.Recordset.MoveNext
    

Exit_sonraki_Click:
    Exit Sub

Err_sonraki_Click:
    MsgBox Err.Description
    Resume Exit_sonraki_Click
    
End Sub
Private Sub son_Click()
On Error GoTo Err_son_Click


    Me.Recordset.MoveLast
    
Exit_son_Click:
    Exit Sub

Err_son_Click:
    MsgBox Err.Description
    Resume Exit_son_Click
    
End Sub
Private Sub cmdNew_Click()
On Error GoTo Err_cmdNew_Click


    DoCmd.GoToRecord , , acNewRec
    

Exit_cmdNew_Click:
    Exit Sub

Err_cmdNew_Click:
    MsgBox Err.Description
    Resume Exit_cmdNew_Click
    
End Sub
Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click


    DoCmd.Close

Exit_cmdClose_Click:
    Exit Sub

Err_cmdClose_Click:
    MsgBox Err.Description
    Resume Exit_cmdClose_Click
    
End Sub

Private Sub cmdDelete_Click()


    On Error GoTo Err_cmdDelete_Click
   
 If MsgBox("kayıt silinecekmi?", vbYesNo + vbDefaultButton2, "Not!") = vbNo Then
    Exit Sub
 End If
 

    Me.Recordset.Delete

    Me.Requery
    MsgBox "Uyarı", , "Kayıt silindi"

Exit_cmdDelete_Click:
    Exit Sub

Err_cmdDelete_Click:
    Select Case Err
    Case 3021
        MsgBox "böyle bir kayıtyok"
        Resume Exit_cmdDelete_Click

    Case Else
        Dim msgStr As String
        msgStr = CStr(Err) & " " & Description
        MsgBox msgStr
        Resume Exit_cmdDelete_Click
    End Select


End Sub

meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Mükerrer Kayıt Hk. Serkan Çevik 2 69 01/12/2016, 22:37 Serkan Çevik
  Listede arama yapılanın seçimi aktif olması raburabu 3 86 01/12/2016, 08:42 raburabu
  açılan kutu değerine göre aktif/pasif buton ferhatozge 10 320 30/11/2016, 12:01 donepezil
  Aynı Kişi adı ile Yeni Kayıt eklemek Mesut Kaytan 6 210 29/11/2016, 13:49 Mesut Kaytan
  Formda İsim yazdığımda tablodan veri gelmesi 53rize 6 153 27/11/2016, 13:36 53rize


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya