bita_ziba77
یک شنبه 15 دی 1392, 13:30 عصر
با سلام
با توجه به نياز دوستان به ايجاد شماره رديف در فرم ها مي توانيد از روش ذيل استفاده نماييد:
1) يك ماژول ساخته و كد ذيل را در آن قرار دهيد
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 'Ignore "No bookmark" at new row.
Debug.Print "RowNum() error " & err.Number & " - " & err.Description
End If
RowNum = Null
Resume Exit_RowNum
End Function
2) در فرم خود يك TextBox قرار داده و عبارت ذيل را به عنوان مقدار آن قرار دهيد:
=RowNum([Form])
با روش بالا حتي اگر رديف هاي مياني حذف شوند بعد از رفرش نمودن شماره رديف ها به صورت اتوماتيك مرتب مي گردند.
با تشكر
با توجه به نياز دوستان به ايجاد شماره رديف در فرم ها مي توانيد از روش ذيل استفاده نماييد:
1) يك ماژول ساخته و كد ذيل را در آن قرار دهيد
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 'Ignore "No bookmark" at new row.
Debug.Print "RowNum() error " & err.Number & " - " & err.Description
End If
RowNum = Null
Resume Exit_RowNum
End Function
2) در فرم خود يك TextBox قرار داده و عبارت ذيل را به عنوان مقدار آن قرار دهيد:
=RowNum([Form])
با روش بالا حتي اگر رديف هاي مياني حذف شوند بعد از رفرش نمودن شماره رديف ها به صورت اتوماتيك مرتب مي گردند.
با تشكر