حذف پیام اررو اکسس

[majidosmani]

سلام خدمت اساتید محترم میگم من وقتی داده ها م را از فرم به جدول انتقال می دهم وقتی داده تکراری وارد فیلدی که primery key انتخاب کردم می خواهم بکنم ارور زیر را می دهد

137481

من مشکلی با این ارور نداردم چون داده تکراری نمیشه داخل فیلدی که به عنوان primery key انتخاب شده وارد کرد فقط می خواهم به جای این ارورر یک مسیج باکس فارسی نمایش بده باید چکار کنم؟؟؟

[amirzazadeh]

از اين نمونه كد كمك بگيريد:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const conDuplicateKey = 3022
Dim strMsg As String

If DataErr = conDuplicateKey Then
Response = acDataErrContinue
strMsg = "ركورد تكراري است"
MsgBox strMsg
Undo

End If

End Sub