samisalim قام بنشر مايو 17, 2021 قام بنشر مايو 17, 2021 السلام عليكم ورحمة الله هذا هو الكود Private Sub MODELS_AfterUpdate() On Error Resume Next If DCount("MODELS", "MARKA", "[MODELS]'= '" & Trim(Me.MODELS) & "'") > 0 Then MsgBox "هذه الماركة مسجل مسبقاً", vbCritical + vbDefaultButton1 + 1572864 Me.MODELS.SetFocus Me.Undo Exit Sub End If End Sub IT_V2.rar
jjafferr قام بنشر مايو 17, 2021 قام بنشر مايو 17, 2021 وعليكم السلام 🙂 استعمل حدث "قبل التحديث" BeforeUpdate 🙂 If DCount("MODELS", "MARKA", "[MODELS]'= '" & Trim(Me.MODELS) & "'") > 0 Then MsgBox "هذه الماركة مسجل مسبقاً", vbCritical + vbDefaultButton1 + 1572864 Me.cancel Me.Undo End If جعفر
samisalim قام بنشر مايو 17, 2021 الكاتب قام بنشر مايو 17, 2021 15 دقائق مضت, jjafferr said: وعليكم السلام 🙂 استعمل حدث "قبل التحديث" BeforeUpdate 🙂 If DCount("MODELS", "MARKA", "[MODELS]'= '" & Trim(Me.MODELS) & "'") > 0 Then MsgBox "هذه الماركة مسجل مسبقاً", vbCritical + vbDefaultButton1 + 1572864 Me.cancel Me.Undo End If جعفر ظهرت لي هذه الرسالة
jjafferr قام بنشر مايو 17, 2021 قام بنشر مايو 17, 2021 انا عملت نسخ ولصق للكود الذي وضعته ، وكان فيه شيء خطأ ، وفيه خطأ من جانبي كذلك ، وتم تصحيحهم 🙂 فجرب هذا : If DCount("MODELS", "MARKA", "[MODELS]= '" & Trim(Me.MODELS) & "'") > 0 Then MsgBox "هذه الماركة مسجل مسبقاً", vbCritical + vbDefaultButton1 + 1572864 cancel=true Me.Undo End If جعفر 2
samisalim قام بنشر مايو 17, 2021 الكاتب قام بنشر مايو 17, 2021 51 دقائق مضت, jjafferr said: انا عملت نسخ ولصق للكود الذي وضعته ، وكان فيه شيء خطأ ، وفيه خطأ من جانبي كذلك ، وتم تصحيحهم 🙂 فجرب هذا : If DCount("MODELS", "MARKA", "[MODELS]= '" & Trim(Me.MODELS) & "'") > 0 Then MsgBox "هذه الماركة مسجل مسبقاً", vbCritical + vbDefaultButton1 + 1572864 cancel=true Me.Undo End If جعفر يمكن الخطأ من جانبي يا استاذ جعفر الرجاء منكم الاطلاع على الملف المرفق IT_V2.rar
ابوبسمله قام بنشر مايو 17, 2021 قام بنشر مايو 17, 2021 14 دقائق مضت, samisalim said: يمكن الخطأ من جانبي يا استاذ جعفر الرجاء منكم الاطلاع على الملف المرفق مشاركة مع معلمنا العزيز جعفر جزاه الله كل خير واحسن الله اليه كما يحسن لطلاب العلم غير الكود الى Private Sub MODELS_BeforeUpdate(Cancel As Integer) If DCount("MODELS", "MARKA", "[MODELS]= " & Trim(Me.MODELS.Column(0))) > 0 Then MsgBox "åÐå ÇáãÇÑßÉ ãÓÌá ãÓÈÞÇð", vbCritical + vbDefaultButton1 + 1572864 Cancel = True Me.Undo End If End Sub بالتوفيق 3
samisalim قام بنشر مايو 18, 2021 الكاتب قام بنشر مايو 18, 2021 شكر موصول لكل من الاساتذة الكرام في هذا الصرح العلمي وكذلك @jjafferr@احمد الفلاحجي@د.كاف يار على المساعدة جزيتم خيرا وكفيتم شرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.