Public Function sahte_sira(frm As Form) As Variant
On Error GoTo Err_sahte_sira
With frm.RecordsetClone
.Bookmark = frm.Bookmark
sahte_sira = .AbsolutePosition + 1
End With
Exit_sahte_sira:
Exit Function
Err_sahte_sira:
If Err.Number <> 3021& Then
Debug.Print "sahte_sira() error " & Err.Number & " - " & Err.Description
End If
sahte_sira = Null
Resume Exit_sahte_sira
End Function