Raporda Yürüyen Satır No

1 2 3
10/03/2022, 18:07

yenginoglu

Sayın Hocalarım,

Ekteki çalışmamda RPR_TBLCARIGELIR raporunu aylık yazdıracağımdan rapordaki satır no yürüyen satır no yapmak istiyorum.

Saygılarımla,

Ahmet Yenginoğlu
10/03/2022, 21:31

mehmetdemiral

Zaten öyle görünüyor. Tam olarak açar mısınız nasıl bir yürüyen no olacak?
10/03/2022, 21:51

userx

Sayın @yenginoglu
Formdaki demek istiyorsunuz sanırım.

Yeni Modül oluşturup alttaki kodları ekleyin. Daha sonra da Formdaki MADDENO Metin Kutusu Denetim Kaynağına =SiraNo([Form]) yazın.

Public Function SiraNo(frm As Form) As Variant
On Error GoTo Err_SiraNo
With frm.RecordsetClone
If .RecordCount = .AbsolutePosition + 1 Then Exit Function
.Bookmark = frm.Bookmark
SiraNo = .AbsolutePosition + 1
End With

Exit_SiraNo:
Exit Function

Err_SiraNo:

If Err.Number <> 3021 Then
SiraNo = Null
Resume Exit_SiraNo
Else
Exit Function
End If
End Function
11/03/2022, 10:47

yenginoglu

sayın Mehmet Demiral hocam
her ay gelirleri aylık aylık yazdıracağımdan önceki ay son numarasını takip etmesi yani 01.01.2022 - 31.01.2022 tarihleri arası rapor yazdırıldığında son sıra numarası 53 oluyor 01.02.2022 - 28.02.2022 tarihleri arası rapor istendiğinde 54 ten başlamasını istiyorum.


Saygılarımla,
11/03/2022, 12:02

userx

Ekteki dosyayı inceler misiniz?
11/03/2022, 12:43

berduş

ocak ayı için bahsettiğiniz gibi 53 kayıt var
şubat için 54ten başla demişsiniz ama aralık ayındaki kayıtlar ne olacak?
her ay bir önceki ayın kayıt sayısı göz önünde bulundurulacaksa ocak ayı neden 1 den başlıyor
bu başlama neye göre belirlenecek?
yada siz diyelim ki 13-ocak 27 şubat arası bir tarih aralığı girdiğinizde hangi sayıdan başlayacak?
1 2 3