اذهب الي المحتوي
أوفيسنا

منع تكرار الاسم اكثر من مرة واحدة -2


midomashakel

الردود الموصى بها

شكرا على الاضافة والتوضيحات

هل من الممكن من الاخ  خعفر شرح هذا الكود بالتفصيل

ملحوظة للاستاذ / جعفر

ازاي التواصل مع حضرتك بالرسائل الخاصة  بخصوص موضوعي الذي تم غلقه؟؟؟

في ٨‏/٢‏/٢٠١٩ at 00:13, عبد اللطيف سلوم said:

Private Sub الاسم_BeforeUpdate(Cancel As Integer) If DCount("*", "العميل", "[الاسم]='" & Me.الاسم & "'") > 0 Then MsgBox "هذا الاسم موجود بالفعل", vbCritical, "التكرار ممنوع" Me.Undo Cancel = True End If End Sub

 

رابط هذا التعليق
شارك

منذ ساعه, midomashakel said:

1. هل من الممكن من الاخ  خعفر شرح هذا الكود بالتفصيل

2. ازاي التواصل مع حضرتك بالرسائل الخاصة  بخصوص موضوعي الذي تم غلقه؟؟؟

 

1. انت محتاج الى هذا الكود فقط

Private Sub الاسم_BeforeUpdate(Cancel As Integer)
    
    If DCount("*", "العميل", "[الاسم]='" & Me.الاسم & "'") > 0 Then

        MsgBox "هذا الاسم موجود بالفعل", vbCritical, "التكرار ممنوع"
        Me.Undo
        Cancel = True

    End If
    
End Sub

.

2. افتح موضوع جديد لكل سؤال 🙂

 

جعفر

رابط هذا التعليق
شارك

في ٩‏/٢‏/٢٠١٩ at 15:08, jjafferr said:

 

1. انت محتاج الى هذا الكود فقط


Private Sub الاسم_BeforeUpdate(Cancel As Integer)
    
    If DCount("*", "العميل", "[الاسم]='" & Me.الاسم & "'") > 0 Then

        MsgBox "هذا الاسم موجود بالفعل", vbCritical, "التكرار ممنوع"
        Me.Undo
        Cancel = True

    End If
    
End Sub

.

2. افتح موضوع جديد لكل سؤال 🙂

 

جعفر

السلام عليكم استاذ جعفر

لقد قمت بتطبيق الاكواد حسب المثال ولاكن باسماء انكليزي حسب البرنامج لدي

ولاكن ماحدث هو ان عند الضغط على  yes لايذهب الى السجل المكرر بل يذهب دائماً الى السجل الاول وبصراحة لم لتمكن من معرفة المشكلة

مع فائق الشكر والتقدير

Simply.mdb

تم تعديل بواسطه محمد التميمي
رابط هذا التعليق
شارك

28 دقائق مضت, محمد التميمي said:

السلام عليكم استاذ جعفر

لقد قمت بتطبيق الاكواد حسب المثال ولاكن باسماء انكليزي حسب البرنامج لدي

ولاكن ماحدث هو ان عند الضغط على  yes لايذهب الى السجل المكرر بل يذهب دائماً الى السجل الاول وبصراحة لم لتمكن من معرفة المشكلة

مع فائق الشكر والتقدير

السلام عليكم ورحمه الله وبركاته

الملف بعد التعديل

المشكلة في اسم الحقل  First Name  تصحيحه First_Name

Simply.mdb

تم تعديل بواسطه midomashakel
  • Like 1
رابط هذا التعليق
شارك

وعليكم السلام اخي @محمد التميمي 🙂

 

الاجابة هي مثل ما تفضل بها اخي @midomashakel :

Private Sub First_Name_BeforeUpdate(Cancel As Integer)
'    If DCount("*", "Table1", "[First_Name]='" & Me.First_Name & "'") > 0 Then
'
'        MsgBox "هذا الاسم موجود بالفعل", vbCritical, "التكرار ممنوع"
'        Me.Undo
'        Cancel = True
'
'    End If
  Dim ID As Integer
    Dim Msg, Style, Title, Response

    ID = Nz(DLookup("[key]", "Table1", "[First_Name]='" & Me.First_Name & "'"), 0)

    If ID <> 0 Then
    
        Me.Undo
        Cancel = True
        
        
        Msg = "هذا الاسم موجود بالفعل" & vbCrLf & _
               "رقم التسلسل" & ID & vbCrLf & vbCrLf & _
               "Yes : نعم اذهب الى ذلك السجل" & vbCrLf & _
               "No  : فقط الغي هذا السجل"
        Style = vbYesNo + vbCritical + vbDefaultButton2
        Title = "التكرار ممنوع"
                
        Response = MsgBox(Msg, Style, Title)
        If Response = vbYes Then
            
            DoCmd.FindRecord ID, , , , , acAll, True
        End If
 
 End If
 
 
End Sub

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information