midomashakel قام بنشر فبراير 9, 2019 مشاركة قام بنشر فبراير 9, 2019 شكرا على الاضافة والتوضيحات هل من الممكن من الاخ خعفر شرح هذا الكود بالتفصيل ملحوظة للاستاذ / جعفر ازاي التواصل مع حضرتك بالرسائل الخاصة بخصوص موضوعي الذي تم غلقه؟؟؟ في ٨/٢/٢٠١٩ 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 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 9, 2019 مشاركة قام بنشر فبراير 9, 2019 منذ ساعه, 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. افتح موضوع جديد لكل سؤال 🙂 جعفر رابط هذا التعليق شارك More sharing options...
محمد التميمي قام بنشر فبراير 10, 2019 مشاركة قام بنشر فبراير 10, 2019 (معدل) في ٩/٢/٢٠١٩ 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 تم تعديل فبراير 10, 2019 بواسطه محمد التميمي رابط هذا التعليق شارك More sharing options...
midomashakel قام بنشر فبراير 10, 2019 الكاتب مشاركة قام بنشر فبراير 10, 2019 (معدل) 28 دقائق مضت, محمد التميمي said: السلام عليكم استاذ جعفر لقد قمت بتطبيق الاكواد حسب المثال ولاكن باسماء انكليزي حسب البرنامج لدي ولاكن ماحدث هو ان عند الضغط على yes لايذهب الى السجل المكرر بل يذهب دائماً الى السجل الاول وبصراحة لم لتمكن من معرفة المشكلة مع فائق الشكر والتقدير السلام عليكم ورحمه الله وبركاته الملف بعد التعديل المشكلة في اسم الحقل First Name تصحيحه First_Name Simply.mdb تم تعديل فبراير 10, 2019 بواسطه midomashakel 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 10, 2019 مشاركة قام بنشر فبراير 10, 2019 وعليكم السلام اخي @محمد التميمي 🙂 الاجابة هي مثل ما تفضل بها اخي @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 جعفر 1 رابط هذا التعليق شارك More sharing options...
محمد التميمي قام بنشر فبراير 10, 2019 مشاركة قام بنشر فبراير 10, 2019 شكرأ اخي midomashakel على الاجابة شكراً اخي استاذ جعفر على الاجابة بارك الله في جهودكم الطيبة وجعله الله في ميزان حسناتكم . 1 رابط هذا التعليق شارك More sharing options...
midomashakel قام بنشر فبراير 11, 2019 الكاتب مشاركة قام بنشر فبراير 11, 2019 اخي محمد التميمي جزاك الله خير الجزاء على كلماتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان