درخواست کدی برای مشابه navigation button

[najafi87]

با سلام
همانطور که در نمونه زیر می بینید در قبال وارد نمودن یک داده تکراری وقتی از کلید ساخته شده در فرم برای رفتن به رکورد جدید استفاده می کنیم یه خطا می ده اما وقتی از navigation button یعنی دکمه های هدایت خود فرم استفاده می کنیم کد خطای دیگه ای میده. اما من میخوام تو فرمم از کلید هایی با طراحی خودم استفاده کنم اما با عملکردی دقیقا مشابه navigation button خود فرم. لطفا راهنمایی فرمایید و نمونه موجود را تصحیح نمایید.
با تشکر

[Abbas Amiri]

کدهای زیر را جایگزین کنید


Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr <> 8519 Or DataErr <> 3022 Then
If IsNull(DLookup("[Desc]", "[Cod]", "[Type] = '7' And [Code] = '" & Trim(Str(DataErr)) & "'")) Then
MsgBox "ÎØÇí ÛíÑ ãäÊÙÑå ÔãÇÑå" & Str(DataErr), 16, "ÎØÇ"
Else
Response = 0
MsgBox DLookup("[Desc]", "[Cod]", "[Type] = '7' And [Code] = '" & Trim(Str(DataErr)) & "'"), 16, "ÎØÇ"
End If
End If

End Sub
Private Sub Command4_Click()
On Error GoTo Err_Command4_Click
Me.Refresh
DoCmd.GoToRecord , , acNewRec

Exit_Command4_Click:
Exit Sub

Err_Command4_Click:
Form_Error err.Number, 0
Resume Exit_Command4_Click

End Sub

[Abbas Amiri]

مشکل در قرار دادن کدها وجوددارد فایل را آپلود میکنم