ساده ترین راه ایجاد شماره ردیف ( رکورد ) در فرم های datasheet و continuous

[saeed1234n]

با سلام

خدمت استاتید و دوستداران اکسس

در حال بررسی و ایجاد شماره ردیف برای یکی از فرمهای ( البته فرم های datasheet و continuous ) برنامه ام بودم که

مناسب ترین و ساده ترین آنرا استفاده از سبک ذیل دیدم :


__________________________________________________ ____
1- ابتدا تعریف تابع ذیل :



Public Function fRowNum(Reset As Boolean) As Long
Static I As Integer

If Reset = True Then
I = 0
Exit Function
End If


I = I + 1
fRowNum = I

End Function


__________________________________________________ ____________

2- فراخوانی تابع در رویداد on current فرم :



(Call fRowNum(True





__________________________________________________ __________

3- ایجاد یک تکس باکس و قراردادن کد زیر در Countol Source آن :



(fRowNum(False



__________________________________________________ ________________




امیدوارم که نهایت استفاده را ببرید .



منتظر نظراتتون هستم با تشکر نادری

[nazanin_90]

سلام آ؛قای نادری
راه جدید تری برای ایجاد ردیف در فرم های datasheet و continuous آموزش میدادی ، استفاده از این روش به دفعات توسط دوستان دیگر ارائه گردیده .
با تشکر

[saeed1234n]

با سلام

اتفاقا قبل از ایجاد تاپیک جستجو کردم تا تکراری نباشه

ولی این روش رو کسی بکار نگرفته بود و بعید میدونم

مگر اینکه از چشم من دور مانده باشه

نمی دونم! اگر مدیران محترم فکر می کنند تکراری است لطفا این تاپیک را حذف کنند .

با تشکر نادری

[nazanin_90]

با سلام

اتفاقا قبل از ایجاد تاپیک جستجو کردم تا تکراری نباشه

ولی این روش رو کسی بکار نگرفته بود و بعید میدونم

مگر اینکه از چشم من دور مانده باشه

نمی دونم! اگر مدیران محترم فکر می کنند تکراری است لطفا این تاپیک را حذف کنند .

با تشکر نادری

من یادم میاد چند جائی دیگر هم دیده بودم بعنوان نمونه تاپیک زیر :
http://barnamenevis.org/showthread.php?435132-%D8%B1%D8%A7%D9%87-%D8%AD%D9%84-%D8%A7%D9%8A%D8%AC%D8%A7%D8%AF-%D8%B4%D9%85%D8%A7%D8%B1%D9%87-%D8%B1%D8%AF%D9%8A%D9%81-%D8%AF%D8%B1-%D9%81%D8%B1%D9%85-%D9%87%D8%A7

حالا چرا حذف بشه ؟
راستی آقای نادری من اگر بخواهم لینک زیر را بصورت یک کلمه بنویسم باید چکار کنم ؟

[saeed1234n]

سلام

دوست عزیز به عنوان تاپیک دقت نکردید !!

ساده ترین راه ...

روش اشاره شده توسط سرکار نیاز به داشتن دانش و اطلاعات در زمینه رکورد ست ها می باشد

اما روشی که بنده اشاره کردم حتی شخصی که تازه با اکسس آشنا شده با کم ترین میزان آشنایی با کد نویسی می تواند انجام دهد .

[alirezabahrami]

با سلام

خدمت استاتید و دوستداران اکسس

در حال بررسی و ایجاد شماره ردیف برای یکی از فرمهای ( البته فرم های datasheet و continuous ) برنامه ام بودم که

مناسب ترین و ساده ترین آنرا استفاده از سبک ذیل دیدم :


__________________________________________________ ____
1- ابتدا تعریف تابع ذیل :



Public Function fRowNum(Reset As Boolean) As Long
Static I As Integer

If Reset = True Then
I = 0
Exit Function
End If


I = I + 1
fRowNum = I

End Function


__________________________________________________ ____________

2- فراخوانی تابع در رویداد on current فرم :



(Call fRowNum(True





__________________________________________________ __________

3- ایجاد یک تکس باکس و قراردادن کد زیر در Countol Source آن :



(fRowNum(False



__________________________________________________ ________________




امیدوارم که نهایت استفاده را ببرید .



منتظر نظراتتون هستم با تشکر نادری
سلام
عالی بود آقای نادری عزیز !
البته بدیهی است که قبل از fRowNum(False) در کنترل سورس تکست باکس باید علامت مساوی درج شود .
با تشکر

[saeed1234n]

با سلام

نمونه ای برای هر دو روش :


134940

[mahmooddavoodi]

با سلام

نمونه ای برای هر دو روش :


134940
سلام با تشکر از زحماتتون به نظرم یک اشکال اساسی داره و اونم این که موقع ورود اطلاعات در رکورد جدید شماره ها رو از ابتدا شروع می کنه و مدام باید رفرش بشه و مشابه همین مساله در تیبل های با رکورد بالا پیش میاد که موقع اسکرول کردن شماره ها به هم میریزه...با عرض معذرت