[ تمت الإجابة ]أخواتي الكرام أرجوكم مشكلة رسالة خطأ عند الحذف

اخي الفاضل فهمي

السلام عليكم ورحمة اله وبركاته

لا أرى ان هناك مشكله فكل ما عليك القيام به هو عمل التالي

1. عند الضغط على زر الأمر ادخال في النموذج FORM1 نقوم بغلق النموذج وفتح النموذج الآخر Table1

Private Sub Command1_Click()
DoCmd.Close
DoCmd.OpenForm "Table1"
End Sub

في النموذج Table1 نصحح الكود بهذه الطريقة

Private Sub Command10_Click()
x = MsgBox("åá ÃäÊ ãÊÃßÏ", vbYesNo, "")
If x = vbYes Then
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End If
DoCmd.SetWarnings True

Me.R.SetFocus
End Sub

ملاحظة : لا يوجد لديك حقل اسمه D في نموذج Table1 ولكن يوجد حقل اسمه R

وهذا مثالك يعمل بكل سليم

eeee_UP.rar

شكرأ لك أختي وأستاذتي الكريمة زهرة تم حل المشكلة فقط باستبدال الكود

DoCmd.GoToControl "R"

بالكود التالي

Me.R.SetFocus

دون الحاجة لإغلاق النموذج الرئيسي وجزاك الله ألف خير وكل عام وأنتم بألف خير

شكراً

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة