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

[midomashakel]

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

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

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

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

  في 7‏/2‏/2019 at 20:13, عبد اللطيف سلوم said:

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

Expand  

 

[jjafferr]

  في 9‏/2‏/2019 at 10:58, midomashakel said:

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

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

Expand  

 

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

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

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

    End If
    
End Sub

.

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

 

جعفر

[محمد التميمي]

  في 9‏/2‏/2019 at 12: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. افتح موضوع جديد لكل سؤال 🙂

 

جعفر

Expand  

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

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

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

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

Simply.mdbFetching info...

تم تعديل فبراير 10, 2019 بواسطه محمد التميمي

[midomashakel]

  في 10‏/2‏/2019 at 16:35, محمد التميمي said:

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

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

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

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

Expand  

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

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

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

Simply.mdbFetching info...

تم تعديل فبراير 10, 2019 بواسطه midomashakel

[jjafferr]

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

 

الاجابة هي مثل ما تفضل بها اخي @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

 

جعفر

[محمد التميمي]

شكرأ اخي midomashakel على الاجابة

شكراً اخي استاذ جعفر على الاجابة

بارك الله في جهودكم الطيبة وجعله الله في ميزان حسناتكم .

[midomashakel]

اخي محمد التميمي   جزاك الله خير الجزاء على كلماتك