01/05/2009, 19:37
ayhan2122
#4.Mesaj 'da Sn sledgeab 'ın altform için bahsettiği kodda 3 tane fonksiyon var ve bunlardan sadece ilk kodu yani;
kullandığımda yine sonuca ulaştım. Yine de diğerlerinin de kullanılması gerekiyormu acaba ??
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 Functionkullandığımda yine sonuca ulaştım. Yine de diğerlerinin de kullanılması gerekiyormu acaba ??