کد لازم برای عدم نمایش (3021) run time error

[fathi48]

در صورت امکان اساتید محترم کد ویژوال لازم برای عدم نمایش پیام (3021) run time error را مرقوم فرمایند.

[wolfstander]

این دستور رو در قسمت onerror فرمت بنویس

on errro goro errhandle

errhandle:
resume next

این دستور باعث میشه که هروقت اشکالی به وجود اومد، خودش بره و دستور بعدی رو بخونه
حالا میتونی اینجا if بذاری
و بگی

if Err.number=3021 then resume next

[fathi48]

من دستور زیر را وارد کردم ولی نشد و همان پیغام خطا را می دهد

Private Sub Form_Error(DataErr As Integer, Response As Integer)
On Error GoTo err_handle

err_handle:
If Err.Number = 3021 Then
Resume Next

End Sub

[wolfstander]

سلام
برنامه ات رو بذار تا چک کنم