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

• روش ایجاد هشدار پر کردن فیلد در Access

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

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

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