amirkazem
پنج شنبه 10 بهمن 1392, 15:16 عصر
باسلام.کدزیربرای انتخاب وحذف یک رکوردخاص دریک برنامه هستش.رکوردموردنظرازلیست باکس موجوددریک فرم انتخاب شده وجهت ویرایش یاحذف درفرم دیگربازمی شود..لی دکمه (حذف)که کدزیرمربوط به آن هست، اجرانمی شود.به نظرشمادلیل عدم اجرای کدچه می تونه باشه؟
On Error GoTo Err_Command4_Click
If MsgBox(" کليه اطلاعات دانش آموزحذف خواهدشد.آيامطمئن هستيد؟ ", vbYesNo + vbCritical + vbDefaultButton2, "حذف ") = vbNo Then
MsgBox "عمليات حذف مشخصات لغوشد"
Exit Sub
Else
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.GoToRecord acDataForm, , acNewRec
MsgBox "کليه مشخصات دانش آموزحذف شد", vbOKOnly, "اعلان"
End If
Exit_Command4_Click:
Exit Sub
Err_Command4_Click:
Resume Exit_Command4_Click
On Error GoTo Err_Command4_Click
If MsgBox(" کليه اطلاعات دانش آموزحذف خواهدشد.آيامطمئن هستيد؟ ", vbYesNo + vbCritical + vbDefaultButton2, "حذف ") = vbNo Then
MsgBox "عمليات حذف مشخصات لغوشد"
Exit Sub
Else
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.GoToRecord acDataForm, , acNewRec
MsgBox "کليه مشخصات دانش آموزحذف شد", vbOKOnly, "اعلان"
End If
Exit_Command4_Click:
Exit Sub
Err_Command4_Click:
Resume Exit_Command4_Click