نقل قول: مدیریت خطا در VBA اکسس
سلام
این آموزش رو بخونید شاید چیزی دستتون بیاد
مدیریت خطا در اکسس
نقل قول: مدیریت خطا در VBA اکسس
از اين كد براي مديريت خطاي ورود داده تكراري ميتونيد استفاده كنيد:
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
نقل قول: مدیریت خطا در VBA اکسس
ممنون
ولی این کد جواب نمیدهد.
نقل قول: مدیریت خطا در VBA اکسس
نقل قول:
نوشته شده توسط
m3343kh
ممنون
ولی این کد جواب نمیدهد.
لطفا فايلتون رو بارگذاري كنيد
1 ضمیمه
نقل قول: مدیریت خطا در VBA اکسس
سلام فایل نمونه خدمتتان ارسال میشود.
نقل قول: مدیریت خطا در VBA اکسس
سلام
كد رو به اين شكل اصلاح كنيد:
Private Sub NameA_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.RunSQL ("UPDATE tblA SET tblA.Check=True WHERE (((tblA.IDa)=[Forms]![frmMain]![NameA]));")
DoCmd.RunCommand acCmdSaveRecord
Me.NameA.Requery
Me.subfrm.Requery
DoCmd.RunCommand acCmdRecordsGoToLast
End Sub
نقل قول: مدیریت خطا در VBA اکسس