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

[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.rarFetching info...

[jjafferr]

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

 

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

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

End If

 

جعفر

[samisalim]

  في 17‏/5‏/2021 at 20:26, jjafferr said:

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

 

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

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

End If

 

جعفر

Expand  

ظهرت لي هذه الرسالة

[jjafferr]

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

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

فجرب هذا :

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

End If

 

جعفر

[samisalim]

  في 17‏/5‏/2021 at 21:03, jjafferr said:

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

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

فجرب هذا :

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

End If

 

جعفر

Expand  

يمكن الخطأ من جانبي يا استاذ جعفر الرجاء منكم  الاطلاع على الملف المرفق

IT_V2.rarFetching info...

[أبوبسمله]

  في 17‏/5‏/2021 at 22:00, samisalim said:

يمكن الخطأ من جانبي يا استاذ جعفر الرجاء منكم  الاطلاع على الملف المرفق

Expand  

مشاركة مع معلمنا العزيز جعفر جزاه الله كل خير واحسن الله اليه كما يحسن لطلاب العلم

غير الكود الى

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.zipFetching info...

[samisalim]

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

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