چگونه در اکسس شماره ردیف ایجاد کنیم؟

بسم الله الرحمن الرحیم

سلام

 

شاید برای شما هم این سوال پیش آمده باشد که چگونه در اکسس شماره ردیف ایجاد کنیم؟

پاسخ به این پرسش حالت‌های مختلفی دارد که پیشنهاد میکنم برای یادگیری، تا انتهای مطلب با ما باشید.

شماره ردیف در مواقعی همچون گزارش‌ها و فرم‌ها کاربرد دارد که بیشترین کاربرد آن در گزارشات (Report) است. پس ابتدا به این بخش می‌پردازم.

1. درج شماره ردیف در گزارش اکسس

جهت نمایش شماره ردیف در گزارشات اکسس کافیست مراحل زیر را پیاده سازی کنید؛

1. یک کنترلر از نوع جعبه متن (TextBox) در گزارش خود قرار دهید.
2. از طریق بخش پراپرتی شیت (Property Sheet) و تب دیتا (Data)، کنترل سورس (Contorol Source) جعبه متن مورد نظر را برابر با =1 قرار دهید.
3. در همان بخش بالا مقدار رانینگ سام (Runing Sum) را بر روی گزینه اور آل (Over All) قرار دهید.

نکته: دقت کنید که جعبه متن را در قسمت دیتایل (Detail) و یا گروپ (Group) قرار دهید.

کار تمام است! کافیست گزارش را در نمای Report و یا Preview قرار دهید و شماره ردیف خود را مشاهده کنید. در انتهای متن، فایل آموزشی موجود است.

2. درج شماره ردیف در سینگل فرم اکسس

جهت نمایش شماره ردیف در Single Form کافیست مراحل زیر را انجام دهید؛

1. یک کنترلر از نوع جعبه متن (TextBox) در فرم خود قرار دهید.
2. از طریق بخش پراپرتی شیت (Property Sheet) و تب رویداد (Event)، در رویداد کارنت (On Current) این کد را در محیط VBA برای فرم خود قرار دهید؛

Private Sub Form_Current()
   Me.TextBox = Me.CurrentRecord
   Me.Refresh
End Sub

کار تمام است! کافیست فرم را در نمای Form قرار دهید و شماره ردیف خود را مشاهده کنید. در انتهای متن، فایل آموزشی موجود است.

3. درج شماره ردیف در کانتینیوس فرم اکسس

برای نمایش شماره ردیف در فرم با نمای بهم پیوسته یا (Continuous Forms) لازم است تا مراحل زیر را پیگیری کنید؛

1. از طریق تب Creat یک ماژول ایجاد کنید و محتویات زیر را در آن قرار داده و ذخیره کنید.

Function MakeRowNumber(ByRef frm As Form) As Variant
'Access-Training.blog.ir'

Dim myform As Form
Set myform = frm
With myform.RecordsetClone
    .Bookmark = myform.Bookmark
    MakeRowNumber = .AbsolutePosition + 1
End With

End Function

2. یک کنترلر از نوع TextBox در فرم خود قرار دهید.
3. از طریق بخش پراپرتی شیت (Property Sheet) و تب دیتا (Data)، مقدار = MakeRowNumber([Form]) را در قسمت کنترل سورس (Contorol Source) قرار دهید.

کار تمام است! کافیست فرم را در نمای Form قرار دهید و شماره ردیف خود را مشاهده کنید. در انتهای متن، فایل آموزشی موجود است.

 

دانلود فایل‌های آموزشی

• شماره ردیف در سینگل فرم
• شماره ردیف در کانتنیوس فرم
• شماره ردیف در گزارشات اکسس