آموزش Excel

[واحد تولید محتواسرپرست]

واحد تولید محتوا

اجبار به پرکردن فیلد

اجبار به پرکردن فیلد : وقتی که یک جدول را طراحی می کنیم ممکن است لازم باشد تا کاربران را مجبور به پر کردن یک یا چند فیلد کنیم. در واقع در صورتی که کاربر اطلاعات آن ستون را وارد نکرد امکان ذخیره سازی آن رکورد وجود نداشته باشد و کاربر را با یک پیام از این مسأله آگاه کنیم. خوب چطور باید این کار را انجام دهیم؟ اینجاست که بایستی با استفاده از امکانات برنامه نویسی اکسس پیشرفته در محیط VBA دست بکار شویم و کارخواست خود را در آن محیط پیاده سازی کنیم.

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

• Nam از نوع Short Text

• Famil از نوع Short Text

• NationalId یا همان کد ملی از نوع Number

• tel یا همان شماره تلفن از نوع Short Text

• address یا همان آدرس از نوع Short Text

حالا به ترتیب وضعیت Required فیلد ها را بشکل زیر پر کنید:

1. No

2. No

3. YES

4. YES

5. NO

در واقع با انجام این حرکت ما وضعیت دو فیلد NationalId و Tel را بنحوی تنظیم کردیم که از طریق آن کاربر ملزم به وارد کردن اطلاعات در درون آنها باشد و در صورتی که از این مسأله تخطی کرد ، نرم افزار مانع از ذخیره سازی اطلاعات در آن فیلد گردد. سایر فیلد ها هم حالت اختیاری خواهند داشت البته میتوانستیم آن ها را هم به حالت اجبار در آوریم اما در این مثال صرفأ به اجباری کردن این دو فیلد بسنده کردیم.

در ادامه لازم است تا یک فرم از روی جدول طراحی شده بسازید و سپس از محیط طراحی فرم وارد رویداد On Error شوید و کدهای زیر را در درون آن کپی کنید:

Visual Basic

Const conErrRequiredData = 3314 Const conErrNotSavedData = 2169 If DataErr = conErrRequiredData Then MsgBox ("درج اطلاعات در اين فيلد اجباري است") If IsNull(Me.NationalId) Then Me.NationalId.SetFocus Me.NationalId.BackColor = vbYellow ElseIf IsNull(Me.tel) Then Me.tel.SetFocus Me.tel.BackColor = vbYellow End If Response = acDataErrContinue ElseIf DataErr = conErrNotSavedData Then MsgBox ("داده ذخيره نشد") Response = acDataErrContinue Else Response = acDataErrDisplay End If

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Const conErrRequiredData = 3314 Const conErrNotSavedData = 2169          If DataErr = conErrRequiredData Then       MsgBox ("درج اطلاعات در اين فيلد اجباري است")                                If IsNull(Me.NationalId) Then                   Me.NationalId.SetFocus                  Me.NationalId.BackColor = vbYellow                                   ElseIf IsNull(Me.tel) Then                 Me.tel.SetFocus                  Me.tel.BackColor = vbYellow              End If         Response = acDataErrContinue       ElseIf DataErr = conErrNotSavedData Then           MsgBox ("داده ذخيره نشد")            Response = acDataErrContinue       Else                   Response = acDataErrDisplay     End If

در مراحل بعدی ابتدا وارد رویداد AfterUpdate مربوط به فیلد NationalId در روی فرم شوید و کد زیر را در درون آن قرار دهید:

Visual Basic

Me.NationalId.BackColor = vbWhite

1	Me.NationalId.BackColor = vbWhite

در آخر وارد رویداد AfterUpdate مربوط به فیلد Telدر روی فرم شوید و کد زیر را در درون آن قرار دهید:

Visual Basic

Me.tel.BackColor = vbWhite

1	Me.tel.BackColor = vbWhite