كود منع التكرار أكسس

[عبد اللطيف سلوم]

بناءا على طلب احد الاخوة المتابعين

مثال بسيط على منع التكرار

اتمنى من الاخوة الخبراء اثراء الموضوع ووضع طرق اخرى للفائدة

 

 

 

منع تكرار الاسم.accdb

[ازهر عبد العزيز]

If DCount("*", "ÇáØÇáÈ", "ÇÓã_ÇáØÇáÈ = '" & Me.xxx & "'") <> 0 Then
Call Undo
    MsgBox "ÇÓã ÇáßÊÇÈ ãæÌæÏ ÓÇÈÞÇ"
  DoCmd.CancelEvent

If DCount("*", "ÇáØÇáÈ", "ÇÓã_ÇáØÇáÈ = '" & Me.xxx & "'") <> 0 Then
Call Undo
    MsgBox "ÇÓã ÇáßÊÇÈ ãæÌæÏ ÓÇÈÞÇ"
  DoCmd.CancelEvent

منع تكرار الاسم.accdb

تم تعديل أبريل 11, 2024 بواسطه ازهر عبد العزيز

[محمد احمد لطفى]

هناك طريقتان أخريان اعرفها

 

If DCount("*", "الطالب", "اسم_الطالب='" & Me.xxx & "'") > 1 Then
    MsgBox "اسم الطالب هذا قد تم تسجيله من قبل."
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings True
End If

 

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM الطالب WHERE اسم_الطالب='" & Me.xxx & "'")
If Not rs.EOF Then
    MsgBox "اسم الطالب هذا قد تم تسجيله من قبل."
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings True
End If
rs.Close
Set rs = Nothing

 

[Foksh]

ومشاركة مع الأخوة والأساتذة:-

Private Sub StudentName_BeforeUpdate(Cancel As Integer)
    If DCount("*", "Student_Tbl", "StudentName = '" & Me.StudentName & "'") > 0 Then
        MsgBox "اسم الطالب موجود بالفعل في الجدول.", vbExclamation, "تكرار الاسم"
        Cancel = True
    End If
End Sub

 

[عبد اللطيف سلوم]

2 ساعات مضت, ازهر عبد العزيز said:

If DCount("*", "ÇáØÇáÈ", "ÇÓã_ÇáØÇáÈ = '" & Me.xxx & "'") <> 0 Then
Call Undo
    MsgBox "ÇÓã ÇáßÊÇÈ ãæÌæÏ ÓÇÈÞÇ"
  DoCmd.CancelEvent

If DCount("*", "ÇáØÇáÈ", "ÇÓã_ÇáØÇáÈ = '" & Me.xxx & "'") <> 0 Then
Call Undo
    MsgBox "ÇÓã ÇáßÊÇÈ ãæÌæÏ ÓÇÈÞÇ"
  DoCmd.CancelEvent

منع تكرار الاسم.accdb 656 kB · 2 downloads

اخي @ازهر عبد العزيز لما تعمل نسخ اتأكد انه الكيبورد لغة عربية

رح تطلع النتيجة صحيحة عند اللصق

اما اذا كان الكيبورد انجليزي رح تطلع حروف كما في المثال اعلاه

اتمنى منك اعادة الكود 

[ازهر عبد العزيز]

2 ساعات مضت, عبد اللطيف سلوم said:

اخي @ازهر عبد العزيز لما تعمل نسخ اتأكد انه الكيبورد لغة عربية

رح تطلع النتيجة صحيحة عند اللصق

شكرا جزبلا اخي 

ملاحظة كان لدي سؤال نقريبا قبل  ثلاثة سنوات لنفس سؤالك الطريف بالامر انة انت من قام بالاجابة عن السؤال بنفس الكود لاجابتي حاولت اجده لم افلح لكثرة مشاركاتي

[jjafferr]

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

 

مثل ما يقول المثل: اشلك بالبحر وأهواله و رزق اللَّه على السيف 🙂

 

وبدون كود: في جدول "الطالب" ، اجعل حقل "اسم_الطالب" : مفهرس (لا يقبل التكرار) 🙂

 

جعفر

[Foksh]

7 دقائق مضت, jjafferr said:

وبدون كود: في جدول "الطالب" ، اجعل حقل "اسم_الطالب" : مفهرس (لا يقبل التكرار) 🙂

 

إلا أن الفكرة هي بالرد العائد من آكسيس بأن القيمة موجودة في الجدول

[ازهر عبد العزيز]

21 دقائق مضت, jjafferr said:

وبدون كود: في جدول "الطالب" ، اجعل حقل "اسم_الطالب" : مفهرس (لا يقبل التكرار) 🙂

 

جدا صحيح استاذ لكن المشكلة في رسالة التنبية من اكسس التي لايمكن تغيررها

[عبد اللطيف سلوم]

26 دقائق مضت, jjafferr said:

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

 

مثل ما يقول المثل: اشلك بالبحر وأهواله و رزق اللَّه على السيف 🙂

 

وبدون كود: في جدول "الطالب" ، اجعل حقل "اسم_الطالب" : مفهرس (لا يقبل التكرار) 🙂

 

جعفر

حاولت اضع لايك على منشوركم الكريم ولم اتمكن

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

اتمنى تفتحوا التقييد 

خوفا انه البعض يقول لم يضع لي لايك لماذا ؟؟

[jjafferr]

3 ساعات مضت, عبد اللطيف سلوم said:

حاولت اضع لايك على منشوركم الكريم ولم اتمكن

كبير يا عبداللطيف كبير ، وعلى راسي 🙂

 

 

3 ساعات مضت, Foksh said:

إلا أن الفكرة هي بالرد العائد من آكسيس بأن القيمة موجودة في الجدول

 

3 ساعات مضت, ازهر عبد العزيز said:

جدا صحيح استاذ لكن المشكلة في رسالة التنبية من اكسس التي لايمكن تغيررها

سهله ، وخليني اعلمك كيف تصيد الخطأ 🙂

 

.

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

    'MsgBox DataErr
    If DataErr = 3022 Then
        Response = acDataErrContinue
        MsgBox "هذا الاسم موجود سابقا"
    End If
End Sub

1602.Data_Exists.accdb

[Foksh]

6 دقائق مضت, jjafferr said:

سهله ، وخليني اعلمك كيف تصيد الخطأ 🙂

 

كلامك سليم 10000% ، لأني استخدمتها في مشروعي حضور وانصراف الموظفين في كومبوبوكس عند حدث ليس في القائمة     Response = acDataErrContinue

[ازهر عبد العزيز]

12 ساعات مضت, jjafferr said:

سهله ، وخليني اعلمك كيف تصيد الخطأ 🙂

زادك الله علما وعافية