آموزش Excel

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

مهندس بیات

هشدار پر کردن فیلد

هشدار پر کردن فیلد : هنگامی که یک جدول در اکسس طراحی می کنیم و خواص برخی از فیلدهای آن را از نظر الزام برای پر کردن توسط کاربر یعنی خاصیت Requierd را روی Yes قرار می دهیم  ، در زمان ورود اطلاعات در فرم اگر آن فیلد یا فیلدهای مشخص خالی بمانند پیامی مبنی بر عدم تکمیل اطلاعات صادر می گردد. با استفاده از کدهای VBA زیر می توان پیام فارسی در این خصوص صادر کرد. برای استفاده از این کدها کافی است آن را در رویداد On Error فرم کپی کنید. در کدهای نوشته شده فرض بر این قرار دارد که جدولی داریم که در آن دو فیل با نام های NationalId و tel وجود دارد که خاصیت Requierd را روی Yse قرار داده ایم. شما می توانید با این الگو فیلدهای مورد نظر خود را که در جدول تعریف کرده اید به کدها اضافه نمائید.

Visual Basic

Private Sub Form_Error(DataErr As Integer, Response As Integer) 'If an error occurs because of missing data in a required field 'display our own custom error message 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 'Display a standard error message Response = acDataErrDisplay End If End Sub Private Sub NationalId_AfterUpdate() Me.NationalId.BackColor = vbWhite End Sub Private Sub tel_AfterUpdate() Me.tel.BackColor = vbWhite End Sub

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

Private Sub Form_Error(DataErr As Integer, Response As Integer) 'If an error occurs because of missing data in a required field 'display our own custom error message    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         'Display a standard error message         Response = acDataErrDisplay     End If End Sub Private Sub NationalId_AfterUpdate()    Me.NationalId.BackColor = vbWhite End Sub Private Sub tel_AfterUpdate() Me.tel.BackColor = vbWhite End Sub