مساعدة في تعديل كود عدم التكرار

[samisalim]

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

هذا هو الكود

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]

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

 

استعمل حدث "قبل التحديث" BeforeUpdate 🙂

If DCount("MODELS", "MARKA", "[MODELS]'= '" & Trim(Me.MODELS) & "'") > 0 Then
      MsgBox "هذه الماركة مسجل مسبقاً", vbCritical + vbDefaultButton1 + 1572864
     Me.cancel
     Me.Undo

End If

 

جعفر

[samisalim]

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]

انا عملت نسخ ولصق للكود الذي وضعته ، وكان فيه شيء خطأ ،

وفيه خطأ من جانبي كذلك ، وتم تصحيحهم 🙂

فجرب هذا :

If DCount("MODELS", "MARKA", "[MODELS]= '" & Trim(Me.MODELS) & "'") > 0 Then
      MsgBox "هذه الماركة مسجل مسبقاً", vbCritical + vbDefaultButton1 + 1572864
     cancel=true
     Me.Undo

End If

 

جعفر

[samisalim]

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

[أبوبسمله]

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

بالتوفيق

[د.كاف يار]

تفضل التعديل

 

IT_V2.zip

[samisalim]

شكر موصول لكل من الاساتذة الكرام في هذا الصرح العلمي وكذلك  @jjafferr@احمد الفلاحجي@د.كاف يار على المساعدة

جزيتم خيرا وكفيتم شرا