(تمت الاجابة) كيف يتم مسح البيانات من الشاشة إذاظهرت كود تؤكد بأن البيانات مسجلة مسبقاً

[نور الرياض]

كيف يتم مسح البيانات من الشاشة إذاظهرت كود تؤكد بأن البيانات مسجلة مسبقاً

السلام عليكم

في المرفق يوجد نموذ باسم type_program

عندما ادخل نوع جديد (تطويري )

يظهر رسالة بأن النوع مسجل من قبل وهذا بناء على الكود التي وضعتها وهذا هو المطلوب

ولكن المشكلة لا يمسح كلمة تطويري

لا زم انا امسحها برز المسح وبعد ذلك اضغط على إلغاء الأمر

المطلوب

كود تمسح البيانات من الشاشة بعد ظهور رسالة بأن السجل تم تسجيلة مسبقاً

نسخ من _خطة البرامج التدريبية الداخلية - نسخة.rar

[أبو آدم]

أخي العزيز

عدل الكود ليصبح

Private Sub type_name1_BeforeUpdate(Cancel As Integer)

If IsNull(DLookup("[type_name]", "type_program", "[type_name] = [type_name1]")) = False Then

        	MsgBox " عفواً نوع البرنامج مستخدم باسم  " & type_name & " من فضلك أدخلي نوع برنامج أخر", vbInformation, "   		إضافة:نوع برنامج تدريبي جديد " & type_name & " "

Me.Undo

DoCmd.CancelEvent

End If

End Sub

أي باضافة

Me.Undo

[نور الرياض]

قل آمين

الله يحميك ويلبسك لباس الصحة والعافية ويوفقك ربي

ويحفظك

اللهم سهل لأستاذي كل امر ووفقه لكل أمر فيه خير وصلاح له

بررررافو تمت بنجاح

[أبو آدم]

الحمدلله الذي بفضله تقضى الحاجات

(تمت الاجابة)