ايناس قام بنشر ديسمبر 20, 2023 مشاركة قام بنشر ديسمبر 20, 2023 كيف امنع التكرار بشرطين مع العلم اذا حذفت الشرط الثاني تشتغل و لو تركت الرشطين بتفشل الرجاء المساعدة If IsNull(Me.NICHE) Then Exit Sub If DCount("ID", "ADHERENTS", "NICHE = """ & Me.NICHE & """ + NUMERO_REGION = """ & Me.NUMERO_REGION & """") <> 0 Then MsgBox "Cet ajout ferait doublon !", vbCritical Cancel = True End If رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر ديسمبر 20, 2023 مشاركة قام بنشر ديسمبر 20, 2023 جرب هذا التعديل ، فقط أعتقد أن المشكلة كانت بوجود اشارة + بين الشرطين . If IsNull(Me.NICHE) Then Exit Sub If DCount("ID", "ADHERENTS", "NICHE = """ & Me.NICHE & """ AND NUMERO_REGION = """ & Me.NUMERO_REGION & """") <> 0 Then MsgBox "Cet ajout ferait doublon !", vbCritical Cancel = True End If رابط هذا التعليق شارك More sharing options...
ايناس قام بنشر ديسمبر 20, 2023 الكاتب مشاركة قام بنشر ديسمبر 20, 2023 لا جربت من قبل و ماشتغلت شكرا و هذه ايضا لم تنجح و اذا حذفت الشرط الثاني تصبح صحيحة و انا ارد الشرطين If DCount("*", "ADHERENTS", "NICHE = """ & Me.NICHE & """ AND NUMERO_REGION = """ & Me.NUMERO_REGION & """") <> 0 Then رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر ديسمبر 20, 2023 مشاركة قام بنشر ديسمبر 20, 2023 بداية أخي الكريم ، اختيار الإجابة الأفضل في حال كانت الإجابة هي الحل الصحيح ، ثانياً ارسل مرفق للمتابعة رابط هذا التعليق شارك More sharing options...
ايناس قام بنشر ديسمبر 20, 2023 الكاتب مشاركة قام بنشر ديسمبر 20, 2023 انا اسفة انا جديدة و لغة العربية صعبة احاول الفهم 3 دقائق مضت, Foksh said: بداية أخي الكريم ، اختيار الإجابة الأفضل في حال كانت الإجابة هي الحل الصحيح ، ثانياً ارسل مرفق للمتابعة مامعنى مرفق للمتابعة رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر ديسمبر 20, 2023 مشاركة قام بنشر ديسمبر 20, 2023 (معدل) 5 دقائق مضت, ايناس said: انا اسفة انا جديدة و لغة العربية صعبة احاول الفهم مامعنى مرفق للمتابعة ما في مشكلة ، جربي هذا الكود . If IsNull(Me.NICHE) Then Exit Sub If DCount("ID", "ADHERENTS", "NICHE = '" & Me.NICHE & "' AND NUMERO_REGION = '" & Me.NUMERO_REGION & "'") <> 0 Then MsgBox "Cet ajout ferait doublon !", vbCritical Cancel = True End If هذا التعديل يعني الآن أن الشرطين (NICHE وNUMERO_REGION) يجب أن يكونا متحققين معًا ليتم اعتبارهما تكرارًا. تم تعديل ديسمبر 20, 2023 بواسطه Foksh رابط هذا التعليق شارك More sharing options...
ايناس قام بنشر ديسمبر 20, 2023 الكاتب مشاركة قام بنشر ديسمبر 20, 2023 1 دقيقه مضت, Foksh said: ما في مشكلة ، جربي هذا الكود . If IsNull(Me.NICHE) Then Exit Sub If DCount("ID", "ADHERENTS", "NICHE = '" & Me.NICHE & "' AND NUMERO_REGION = '" & Me.NUMERO_REGION & "'") <> 0 Then MsgBox "Cet ajout ferait doublon !", vbCritical Cancel = True End If نفس المشكل يطبق الشرط الاول و الثاني لا رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر ديسمبر 20, 2023 مشاركة قام بنشر ديسمبر 20, 2023 1 دقيقه مضت, ايناس said: نفس المشكل يطبق الشرط الاول و الثاني لا اختي الكريمة ارفقي ملف يضم النموذج والجدول الذي تريدين تحقيق الشروط فيه . رابط هذا التعليق شارك More sharing options...
ايناس قام بنشر ديسمبر 20, 2023 الكاتب مشاركة قام بنشر ديسمبر 20, 2023 3 دقائق مضت, Foksh said: اختي الكريمة ارفقي ملف يضم النموذج والجدول الذي تريدين تحقيق الشروط فيه . Database21.accdb الان, ايناس said: الف شكر Database21.accdb 572 kB · 0 downloads رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 20, 2023 مشاركة قام بنشر ديسمبر 20, 2023 الأخ / الأخت الكريمة نأمل في مشاركاتك القادمة الاهتمام باختيار عنوان مناسب مختصر يصف الموضوع تم تعديل العنوان ،،، رابط هذا التعليق شارك More sharing options...
ايناس قام بنشر ديسمبر 20, 2023 الكاتب مشاركة قام بنشر ديسمبر 20, 2023 هل من مساعدة منفظلكم رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر ديسمبر 20, 2023 مشاركة قام بنشر ديسمبر 20, 2023 (معدل) أختي الكريمة يبدو أن الملف المرفق فيه مشكلة في الـ VBA ، فعند وضع أي كود عن طريق الـ VBA فإنه لا يعمل. تفضلي هذا الحل في النموذج Form1 Database21.accdb تم تعديل ديسمبر 20, 2023 بواسطه Foksh رابط هذا التعليق شارك More sharing options...
ايناس قام بنشر ديسمبر 20, 2023 الكاتب مشاركة قام بنشر ديسمبر 20, 2023 (معدل) 6 دقائق مضت, Foksh said: أختي الكريمة يبدو أن الملف المرفق فيه مشكلة في الـ VBA ، فعند وضع أي كود عن طريق الـ VBA فإنه لا يعمل. في حل ثاني استغنى عن هذه المشكل الرجاء لو ممكن مساعدة اريد في النموذج عند ادخال الباينات اضيف اول حرف من بيان اخر لكي اتفادى التكرار NICHEمثال اسم المكان مصر و NICHE م مع كتابة الرقم يعني م1 م2 م3 تم تعديل ديسمبر 20, 2023 بواسطه ايناس رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر ديسمبر 20, 2023 مشاركة قام بنشر ديسمبر 20, 2023 2 دقائق مضت, ايناس said: في حل ثاني استغنى عن هذه المشكل بالنسبة للحل الثاني ، فهو سهل ، فقط احذفي النموذج وأنشئي نموذج آخر جديد ، أما بخصوص :- 3 دقائق مضت, ايناس said: الرجاء لو ممكن مساعدة اريد في النموذج عند ادخال الباينات اضيف اول حرف من بيان اخر لكي اتفادى التكرار NICHEمثال اسم المكان مصر و NICHE م مع كتابة الرقم يعني م1 م2 م3 لم أفهم ما المطلوب ولكن في الحل الذي قدمته لك الشرطين يعملان في نفس الوقت لمنع التكرار . رابط هذا التعليق شارك More sharing options...
ايناس قام بنشر ديسمبر 20, 2023 الكاتب مشاركة قام بنشر ديسمبر 20, 2023 1 دقيقه مضت, Foksh said: بالنسبة للحل الثاني ، فهو سهل ، فقط احذفي النموذج وأنشئي نموذج آخر جديد ، أما بخصوص :- لم أفهم ما المطلوب ولكن في الحل الذي قدمته لك الشرطين يعملان في نفس الوقت لمنع التكرار . If DCount("*", "ADHERENTS", "NICHE = '" & Me.NICHE & "'") وجدت هذا فقط و هذا شرط واحد رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر ديسمبر 20, 2023 مشاركة قام بنشر ديسمبر 20, 2023 2 دقائق مضت, ايناس said: وجدت هذا فقط و هذا شرط واحد أختي الكريمة يجوز خطأ مطبعي ، على العموم سبق أن ارفقت لك الكود في مشاراكة سابقة ،، If IsNull(Me.NICHE) Then Exit Sub If DCount("ID", "ADHERENTS", "NICHE = '" & Me.NICHE & "' AND NUMERO_REGION = '" & Me.NUMERO_REGION & "'") <> 0 Then MsgBox "Cet ajout ferait doublon !", vbCritical Cancel = True End If رابط هذا التعليق شارك More sharing options...
ابوبسمله قام بنشر ديسمبر 22, 2023 مشاركة قام بنشر ديسمبر 22, 2023 السلام عليكم ورحمه الله وبركاته مشاركه مع اخى @Foksh جزاه الله خيرا يوجد ملاحظه فى كتابه اسماء الحقول فالجدول وهى تجنب وضع مسافه بين الاسماء مثل NUMERO REGION فيكتب NumeroRegion او NUMERO_REGION باستخدام الشرطه السفليه بين الاسماء ومع ذلك اتفضل التعديل التالى على الوضع الحالى مع ملاحظه ان الحقل NUMERO REGION حقل رقمى If IsNull(Me.NICHE) Then Exit Sub If DCount("*";"ADHERENTS";"NICHE = '" & [NICHE] & "' AND [NUMERO REGION]= " & [NUMERO REGION]) <> 0 Then MsgBox "Cet ajout ferait doublon !", vbCritical Cancel = True End If بالتوفيق رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر ديسمبر 22, 2023 مشاركة قام بنشر ديسمبر 22, 2023 32 دقائق مضت, ابوبسمله said: السلام عليكم ورحمه الله وبركاته مشاركه مع اخى @Foksh جزاه الله خيرا يوجد ملاحظه فى كتابه اسماء الحقول فالجدول وهى تجنب وضع مسافه بين الاسماء مثل NUMERO REGION فيكتب NumeroRegion او NUMERO_REGION باستخدام الشرطه السفليه بين الاسماء ومع ذلك اتفضل التعديل التالى على الوضع الحالى مع ملاحظه ان الحقل NUMERO REGION حقل رقمى If IsNull(Me.NICHE) Then Exit Sub If DCount("*";"ADHERENTS";"NICHE = '" & [NICHE] & "' AND [NUMERO REGION]= " & [NUMERO REGION]) <> 0 Then MsgBox "Cet ajout ferait doublon !", vbCritical Cancel = True End If بالتوفيق جزاك الله كل خير أخي @ابوبسمله فعلاً كلامك ما تفضلت به ، وقد تم التعديل في الكود الأخير فعلاً 😊 في 20/12/2023 at 20:59, Foksh said: If IsNull(Me.NICHE) Then Exit Sub If DCount("ID", "ADHERENTS", "NICHE = '" & Me.NICHE & "' AND NUMERO_REGION = '" & Me.NUMERO_REGION & "'") <> 0 Then MsgBox "Cet ajout ferait doublon !", vbCritical Cancel = True End If رابط هذا التعليق شارك More sharing options...
ابوبسمله قام بنشر ديسمبر 22, 2023 مشاركة قام بنشر ديسمبر 22, 2023 (معدل) 2 ساعات مضت, Foksh said: وقد تم التعديل في الكود الأخير فعلاً 😊 في 20/12/2023 at 19:59, Foksh said: If IsNull(Me.NICHE) Then Exit Sub If DCount("ID", "ADHERENTS", "NICHE = '" & Me.NICHE & "' AND NUMERO_REGION = '" & Me.NUMERO_REGION & "'") <> 0 Then MsgBox "Cet ajout ferait doublon !", vbCritical Cancel = True End If معذره اخى @Foksh وبماذا يفيد هذا التعديل وانت لم تنوه عن التعديلات واسبابها حتى تقوم الاخت السائله بالتعديل بالجدول لديها باضافه الشرطه السفليه بالاضافه الى ان الحقل NUMERO REGION حقل رقمى وانت لم تقم بتعديله بما يتناسب مع الحقول الرقميه تم تعديل ديسمبر 22, 2023 بواسطه ابوبسمله رابط هذا التعليق شارك More sharing options...
شايب قام بنشر ديسمبر 22, 2023 مشاركة قام بنشر ديسمبر 22, 2023 3 ساعات مضت, ابوبسمله said: بالاضافه الى ان الحقل NUMERO REGION حقل رقمى وانت لم تقم بتعديله بما يتناسب مع الحقول الرقميه تعدد الشروط يسبب ربكه للكثير عند كتابة المعايير لذا يمكن جمع اكثر من معيار واكثر من حقل وبالتالي نكتفي باستخدام المعيار النصي حتى لو كان احد الحقلين رقمي والاخر نصي 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر ديسمبر 22, 2023 مشاركة قام بنشر ديسمبر 22, 2023 6 ساعات مضت, ابوبسمله said: معذره اخى @Foksh وبماذا يفيد هذا التعديل وانت لم تنوه عن التعديلات واسبابها حتى تقوم الاخت السائله بالتعديل بالجدول لديها باضافه الشرطه السفليه بالاضافه الى ان الحقل NUMERO REGION حقل رقمى وانت لم تقم بتعديله بما يتناسب مع الحقول الرقميه أشكر مداخلتك أخي العزيز @ابوبسمله ، ولكن اسمح لي بسؤال ؛ هل قمت بتجربة الكود على الملف المرفق من الأخت صاحبة الموضوع 😅 !! انتقلنا من فكرة التوضيح إلى فكرة التصحيح بالدرجة الأولى فقط لا غير ، وأشكرك للتوضيح هذه النقطة المهمة رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر ديسمبر 22, 2023 مشاركة قام بنشر ديسمبر 22, 2023 If DCount("[ID]", "[ADHERENTS]", "[NICHE] ='" & Me.NICHE & "' And NUMERO_REGION =" & Me.NUMERO_REGION & " ") <> 0 Then رابط هذا التعليق شارك More sharing options...
ابوبسمله قام بنشر ديسمبر 22, 2023 مشاركة قام بنشر ديسمبر 22, 2023 4 ساعات مضت, شايب said: تعدد الشروط يسبب ربكه للكثير عند كتابة المعايير لذا يمكن جمع اكثر من معيار واكثر من حقل وبالتالي نكتفي باستخدام المعيار النصي حتى لو كان احد الحقلين رقمي والاخر نصي هذا صحيح معلمى واخى العزيز خالد جزاك الله عنا كل خير 56 دقائق مضت, Foksh said: ولكن اسمح لي بسؤال ؛ هل قمت بتجربة الكود على الملف المرفق من الأخت صاحبة الموضوع 😅 !! انتقلنا من فكرة التوضيح إلى فكرة التصحيح بالدرجة الأولى فقط لا غير ، وأشكرك للتوضيح هذه النقطة المهمة نعم قمت بتجربته بالاستعلام وليس بالنموذج لان النموذج مبنى وهو ع لغه فرنسيه ولذلك لن نستطيع تجربته الا عندما نقوم بضبط اجهزتنا ع اللغه الفرنسيه لا اعلم ماذا تقصد بالشطر الثانى من كلامك ولكن دعنى اوضح لك شيئا مهما اخى الفاضل نحن جميعا نتعلم من بعضنا البعض ونخدم اخواننا بما نتعلم لوجه الله تقبل تحياتى ومرورى واعتذر ان كنت سببت لك اى مضايقه بمداخلتى بالتوفيق رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر ديسمبر 22, 2023 مشاركة قام بنشر ديسمبر 22, 2023 2 ساعات مضت, ابوبسمله said: هذا صحيح معلمى واخى العزيز خالد جزاك الله عنا كل خير نعم قمت بتجربته بالاستعلام وليس بالنموذج لان النموذج مبنى وهو ع لغه فرنسيه ولذلك لن نستطيع تجربته الا عندما نقوم بضبط اجهزتنا ع اللغه الفرنسيه لا اعلم ماذا تقصد بالشطر الثانى من كلامك ولكن دعنى اوضح لك شيئا مهما اخى الفاضل نحن جميعا نتعلم من بعضنا البعض ونخدم اخواننا بما نتعلم لوجه الله تقبل تحياتى ومرورى واعتذر ان كنت سببت لك اى مضايقه بمداخلتى بالتوفيق بارك الله فيك اخي ومعلمي @ابوبسمله ، وبالعكس أنا طالب هنا وبتعلم من الخبرات العظيمة عند أخواني في المنتدى. وبالعكس لم أتضايق بقدر ساعدتي لمناقشتك 🥰 رابط هذا التعليق شارك More sharing options...
karamaujlay قام بنشر ديسمبر 23, 2023 مشاركة قام بنشر ديسمبر 23, 2023 بالنسبة للحل الثاني ، فهو سهل ، فقط احذفي النموذج وأنشئي نموذج آخر جديد ، رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان