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
