آموزش Excel

[مهندس بیاتسرپرست]

مهندس بیات

تنظیم AutoNumber از عدد دلخواه

تنظیم AutoNumber از عدد دلخواه : یکی از امکاناتی که نرم افزار اکسس در اختیار برنامه نویسان قرار داده است قابلیت Auto Number است که از طریق آن میتوان برای هر رکورد در اکسس یک شماره بشکل خودکار ایجاد کرد. یعنی بدون آنکه نیاز باشد یک عدد پیوسته را بصورت دستی در یک فیلد وارد کنیم می توان با استفاده از این قابلیت یک شماره انداز اتوماتیک ایجاد کرد. در حالت عادی شماره انداز از عدد 1 آغاز می شود و ادامه پیدا می کند ، اما در صورتی که بخواهیم عملیات تغییر شماره ردیف در اکسس یا همان اتو نامبر در اکسس را بنحوی دلخواه انجام دهیم می توانیم از کدهایی که در زیر آمده است استفاده کنیم. برای آنکه یک نمونه فایل بسازیم مراحل زیر را به ترتیب دنبال کنید:

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

• Id از نوع Number و خاصیت Primary Key را به آن اختصاص دهید.

• nam از نوع Short Text

• Famil از نوع Short Text

در مرحله بعدی یک فرم از روی جدول بسازید و در رویداد های گفته شده کدها را قرار دهید:

رویداد On Current

 

Visual Basic

If IsNull(DMax("[id]", "[main]")) Then 'www.mrplanner.ir Me.Id.DefaultValue = InputBox("اولین شماره رکورد را وارد کنید", "First ID", "1") Else Me.Id.DefaultValue = DMax("[id]", "[main]") + 1 End If

1 2 3 4 5 6 7 8

If IsNull(DMax("[id]", "[main]")) Then   'www.mrplanner.ir   Me.Id.DefaultValue = InputBox("اولین شماره رکورد را وارد کنید", "First ID", "1") Else Me.Id.DefaultValue = DMax("[id]", "[main]") + 1 End If

رویداد On Load

 

DoCmd.Restore

1	DoCmd.Restore

حالا فرم را ذخیره کنید و سپس آنرا اجرا کنید ، ملاحظه خواهید کرد که اولین بار شماره رکوردی که قرار است منبعد ادامه از آن به بعد باشد برای فیلد ID از شما سوال خواهد شد و پس اعلام آن عدد به برنامه شماره رکورد فیلد Id ادامه پیدا خواهد کرد.