raporda sıra numarasının bulunduğu metin kutusunun denetim kaynağına
Kod:
=1Kod:
Tümü ÜzerindeAltform için;
Altformda sayıların sıralı olmasını istediğin metin Kutusunun denetim Kaynağına
Kod:
=RowNum([Form])Kod:
Public Function RowNum(frm As Form) As Variant
On Error GoTo Err_RowNum
With frm.RecordsetClone
.Bookmark = frm.Bookmark
RowNum = .AbsolutePosition + 1
End With
Exit_RowNum:
Exit Function
Err_RowNum:
If Err.Number <> 3021& Then
Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description
End If
RowNum = Null
Resume Exit_RowNum
End Functionhttps://accesstr.net/konu-taksitlendirme...orunu.html
