ايناس قام بنشر ديسمبر 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
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
ايناس قام بنشر ديسمبر 20, 2023 الكاتب قام بنشر ديسمبر 20, 2023 لا جربت من قبل و ماشتغلت شكرا و هذه ايضا لم تنجح و اذا حذفت الشرط الثاني تصبح صحيحة و انا ارد الشرطين If DCount("*", "ADHERENTS", "NICHE = """ & Me.NICHE & """ AND NUMERO_REGION = """ & Me.NUMERO_REGION & """") <> 0 Then
Foksh قام بنشر ديسمبر 20, 2023 قام بنشر ديسمبر 20, 2023 بداية أخي الكريم ، اختيار الإجابة الأفضل في حال كانت الإجابة هي الحل الصحيح ، ثانياً ارسل مرفق للمتابعة
ايناس قام بنشر ديسمبر 20, 2023 الكاتب قام بنشر ديسمبر 20, 2023 انا اسفة انا جديدة و لغة العربية صعبة احاول الفهم 3 دقائق مضت, Foksh said: بداية أخي الكريم ، اختيار الإجابة الأفضل في حال كانت الإجابة هي الحل الصحيح ، ثانياً ارسل مرفق للمتابعة مامعنى مرفق للمتابعة
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
ايناس قام بنشر ديسمبر 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 نفس المشكل يطبق الشرط الاول و الثاني لا
Foksh قام بنشر ديسمبر 20, 2023 قام بنشر ديسمبر 20, 2023 1 دقيقه مضت, ايناس said: نفس المشكل يطبق الشرط الاول و الثاني لا اختي الكريمة ارفقي ملف يضم النموذج والجدول الذي تريدين تحقيق الشروط فيه .
ايناس قام بنشر ديسمبر 20, 2023 الكاتب قام بنشر ديسمبر 20, 2023 3 دقائق مضت, Foksh said: اختي الكريمة ارفقي ملف يضم النموذج والجدول الذي تريدين تحقيق الشروط فيه . Database21.accdb الان, ايناس said: الف شكر Database21.accdb 572 kB · 0 downloads
ابوخليل قام بنشر ديسمبر 20, 2023 قام بنشر ديسمبر 20, 2023 الأخ / الأخت الكريمة نأمل في مشاركاتك القادمة الاهتمام باختيار عنوان مناسب مختصر يصف الموضوع تم تعديل العنوان ،،،
Foksh قام بنشر ديسمبر 20, 2023 قام بنشر ديسمبر 20, 2023 (معدل) أختي الكريمة يبدو أن الملف المرفق فيه مشكلة في الـ VBA ، فعند وضع أي كود عن طريق الـ VBA فإنه لا يعمل. تفضلي هذا الحل في النموذج Form1 Database21.accdb تم تعديل ديسمبر 20, 2023 بواسطه Foksh
ايناس قام بنشر ديسمبر 20, 2023 الكاتب قام بنشر ديسمبر 20, 2023 (معدل) 6 دقائق مضت, Foksh said: أختي الكريمة يبدو أن الملف المرفق فيه مشكلة في الـ VBA ، فعند وضع أي كود عن طريق الـ VBA فإنه لا يعمل. في حل ثاني استغنى عن هذه المشكل الرجاء لو ممكن مساعدة اريد في النموذج عند ادخال الباينات اضيف اول حرف من بيان اخر لكي اتفادى التكرار NICHEمثال اسم المكان مصر و NICHE م مع كتابة الرقم يعني م1 م2 م3 تم تعديل ديسمبر 20, 2023 بواسطه ايناس
Foksh قام بنشر ديسمبر 20, 2023 قام بنشر ديسمبر 20, 2023 2 دقائق مضت, ايناس said: في حل ثاني استغنى عن هذه المشكل بالنسبة للحل الثاني ، فهو سهل ، فقط احذفي النموذج وأنشئي نموذج آخر جديد ، أما بخصوص :- 3 دقائق مضت, ايناس said: الرجاء لو ممكن مساعدة اريد في النموذج عند ادخال الباينات اضيف اول حرف من بيان اخر لكي اتفادى التكرار NICHEمثال اسم المكان مصر و NICHE م مع كتابة الرقم يعني م1 م2 م3 لم أفهم ما المطلوب ولكن في الحل الذي قدمته لك الشرطين يعملان في نفس الوقت لمنع التكرار .
ايناس قام بنشر ديسمبر 20, 2023 الكاتب قام بنشر ديسمبر 20, 2023 1 دقيقه مضت, Foksh said: بالنسبة للحل الثاني ، فهو سهل ، فقط احذفي النموذج وأنشئي نموذج آخر جديد ، أما بخصوص :- لم أفهم ما المطلوب ولكن في الحل الذي قدمته لك الشرطين يعملان في نفس الوقت لمنع التكرار . If DCount("*", "ADHERENTS", "NICHE = '" & Me.NICHE & "'") وجدت هذا فقط و هذا شرط واحد
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
ابوبسمله قام بنشر ديسمبر 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 بالتوفيق
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
ابوبسمله قام بنشر ديسمبر 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 بواسطه ابوبسمله
شايب قام بنشر ديسمبر 22, 2023 قام بنشر ديسمبر 22, 2023 3 ساعات مضت, ابوبسمله said: بالاضافه الى ان الحقل NUMERO REGION حقل رقمى وانت لم تقم بتعديله بما يتناسب مع الحقول الرقميه تعدد الشروط يسبب ربكه للكثير عند كتابة المعايير لذا يمكن جمع اكثر من معيار واكثر من حقل وبالتالي نكتفي باستخدام المعيار النصي حتى لو كان احد الحقلين رقمي والاخر نصي 1
Foksh قام بنشر ديسمبر 22, 2023 قام بنشر ديسمبر 22, 2023 6 ساعات مضت, ابوبسمله said: معذره اخى @Foksh وبماذا يفيد هذا التعديل وانت لم تنوه عن التعديلات واسبابها حتى تقوم الاخت السائله بالتعديل بالجدول لديها باضافه الشرطه السفليه بالاضافه الى ان الحقل NUMERO REGION حقل رقمى وانت لم تقم بتعديله بما يتناسب مع الحقول الرقميه أشكر مداخلتك أخي العزيز @ابوبسمله ، ولكن اسمح لي بسؤال ؛ هل قمت بتجربة الكود على الملف المرفق من الأخت صاحبة الموضوع 😅 !! انتقلنا من فكرة التوضيح إلى فكرة التصحيح بالدرجة الأولى فقط لا غير ، وأشكرك للتوضيح هذه النقطة المهمة
Eng.Qassim قام بنشر ديسمبر 22, 2023 قام بنشر ديسمبر 22, 2023 If DCount("[ID]", "[ADHERENTS]", "[NICHE] ='" & Me.NICHE & "' And NUMERO_REGION =" & Me.NUMERO_REGION & " ") <> 0 Then
ابوبسمله قام بنشر ديسمبر 22, 2023 قام بنشر ديسمبر 22, 2023 4 ساعات مضت, شايب said: تعدد الشروط يسبب ربكه للكثير عند كتابة المعايير لذا يمكن جمع اكثر من معيار واكثر من حقل وبالتالي نكتفي باستخدام المعيار النصي حتى لو كان احد الحقلين رقمي والاخر نصي هذا صحيح معلمى واخى العزيز خالد جزاك الله عنا كل خير 56 دقائق مضت, Foksh said: ولكن اسمح لي بسؤال ؛ هل قمت بتجربة الكود على الملف المرفق من الأخت صاحبة الموضوع 😅 !! انتقلنا من فكرة التوضيح إلى فكرة التصحيح بالدرجة الأولى فقط لا غير ، وأشكرك للتوضيح هذه النقطة المهمة نعم قمت بتجربته بالاستعلام وليس بالنموذج لان النموذج مبنى وهو ع لغه فرنسيه ولذلك لن نستطيع تجربته الا عندما نقوم بضبط اجهزتنا ع اللغه الفرنسيه لا اعلم ماذا تقصد بالشطر الثانى من كلامك ولكن دعنى اوضح لك شيئا مهما اخى الفاضل نحن جميعا نتعلم من بعضنا البعض ونخدم اخواننا بما نتعلم لوجه الله تقبل تحياتى ومرورى واعتذر ان كنت سببت لك اى مضايقه بمداخلتى بالتوفيق
Foksh قام بنشر ديسمبر 22, 2023 قام بنشر ديسمبر 22, 2023 2 ساعات مضت, ابوبسمله said: هذا صحيح معلمى واخى العزيز خالد جزاك الله عنا كل خير نعم قمت بتجربته بالاستعلام وليس بالنموذج لان النموذج مبنى وهو ع لغه فرنسيه ولذلك لن نستطيع تجربته الا عندما نقوم بضبط اجهزتنا ع اللغه الفرنسيه لا اعلم ماذا تقصد بالشطر الثانى من كلامك ولكن دعنى اوضح لك شيئا مهما اخى الفاضل نحن جميعا نتعلم من بعضنا البعض ونخدم اخواننا بما نتعلم لوجه الله تقبل تحياتى ومرورى واعتذر ان كنت سببت لك اى مضايقه بمداخلتى بالتوفيق بارك الله فيك اخي ومعلمي @ابوبسمله ، وبالعكس أنا طالب هنا وبتعلم من الخبرات العظيمة عند أخواني في المنتدى. وبالعكس لم أتضايق بقدر ساعدتي لمناقشتك 🥰
karamaujlay قام بنشر ديسمبر 23, 2023 قام بنشر ديسمبر 23, 2023 بالنسبة للحل الثاني ، فهو سهل ، فقط احذفي النموذج وأنشئي نموذج آخر جديد ،
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.