raporda sıra numarasının bulunduğu metin kutusunun denetim kaynağına
Kod:
=1
Kod:
Tümü Üzerinde
Altform 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 Function
https://accesstr.net/konu-taksitlendirme...orunu.html