(تمت الاجابة) مطلوب كود الترجع عن التسجيل بعد رسالة موافق

[الباشق1]

السلام عليكم اخوتي

عندي برنامج وفيه حقل المفتاح الاساسي ووضعة له رساله بعدم التكرير ولاكن عندما اضغط موافق لا يترجع عن التكرير

ياليت تعدلون لي على هذا المثال المرفق

_____.rar

[عمار زيد]

السلام عليكم

أضف

undo

للكود عندك

في آخر الكود

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Dim DATAERRCONTINUE
Select Case DataErr
Case Is = 3022
MsgBox "   نص الرسالة    ", vbInformation, "              ÏÎá ãßÑÑ        "
Response = DATAERRCONTINUE
Undo

End Select
End Sub

والسلام عليكم

[أ / محمد صالح]

بارك الله فيك أخي عمار

ولن يضر إضافتنا لهذا الكود أيضا

كود

  Private Sub Form_Error(DataErr As Integer, Response As Integer)

Dim DATAERRCONTINUE

Select Case DataErr

Case Is = 3022

MsgBox "   نص الرسالة	", vbInformation, "	عنوان الرسالة	"

Response = DATAERRCONTINUE

Undo

الرقم.setfocus

End Select

End Sub

تم تعديل نوفمبر 9, 2011 بواسطه nart lebzo

[الباشق1]

الف الف شكر لكم اخوتي وهذا المطلوب وفقكم الله

وكل عام وانتم بالف خير