نمایش پیغام در صورت نول بودن مقادیر وارد شده در فرم

[wolfstander]

سلام به همه دوستان
من یک سوال دارم و اون هم اینکه وقتی کاربر فیلدی رو که Require=Yes شده و خالی میذاره و رد میکنه ، رو بهش پیغام خطای انگلیسی نده .
از متد on Error که استفاده میکنم، کد خطا نمیده و فقط شرح خطا رو نمایش میده
یک کد خطایی رو نشون میده بعنوان صفر
ولی باز هم متن انگلیسی رو نمایش میده
چکار باید کرد؟

[amirzazadeh]

سلام به همه دوستان
من یک سوال دارم و اون هم اینکه وقتی کاربر فیلدی رو که Require=Yes شده و خالی میذاره و رد میکنه ، رو بهش پیغام خطای انگلیسی نده .
از متد on Error که استفاده میکنم، کد خطا نمیده و فقط شرح خطا رو نمایش میده
یک کد خطایی رو نشون میده بعنوان صفر
ولی باز هم متن انگلیسی رو نمایش میده
چکار باید کرد؟
سلام
كد رو به اين شكل اصلاح كنيد

Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 3314 Then
MsgBox "ورود اطلاعات الزامي است"
Response = continue
End If
End Sub

..........................
موفق باشيد