كيف امنع التكرار بشرطين

ايناس · ديسمبر 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

جرب هذا التعديل ، فقط أعتقد أن المشكلة كانت بوجود اشارة + بين الشرطين .

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

لا جربت من قبل و ماشتغلت شكرا

و هذه ايضا لم تنجح و اذا حذفت الشرط الثاني تصبح صحيحة و انا ارد الشرطين

If DCount("*", "ADHERENTS", "NICHE = """ & Me.NICHE & """ AND NUMERO_REGION = """ & Me.NUMERO_REGION & """") <> 0 Then

**Foksh** · ديسمبر 20, 2023

بداية أخي الكريم ، اختيار الإجابة الأفضل في حال كانت الإجابة هي الحل الصحيح ،

ثانياً ارسل مرفق للمتابعة

ايناس · ديسمبر 20, 2023

انا اسفة انا جديدة و لغة العربية صعبة احاول الفهم

في 20‏/12‏/2023 at 15:50, Foksh said:

بداية أخي الكريم ، اختيار الإجابة الأفضل في حال كانت الإجابة هي الحل الصحيح ،

ثانياً ارسل مرفق للمتابعة

Expand

مامعنى مرفق للمتابعة

**Foksh** · ديسمبر 20, 2023

في 20‏/12‏/2023 at 15:52, ايناس said:

انا اسفة انا جديدة و لغة العربية صعبة احاول الفهم

مامعنى مرفق للمتابعة

Expand

ما في مشكلة ، جربي هذا الكود .

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‏/12‏/2023 at 15:56, 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
Expand

نفس المشكل يطبق الشرط الاول و الثاني لا

**Foksh** · ديسمبر 20, 2023

في 20‏/12‏/2023 at 15:58, ايناس said:

نفس المشكل يطبق الشرط الاول و الثاني لا

Expand

اختي الكريمة ارفقي ملف يضم النموذج والجدول الذي تريدين تحقيق الشروط فيه .

ايناس · ديسمبر 20, 2023

في 20‏/12‏/2023 at 16:00, Foksh said:

اختي الكريمة ارفقي ملف يضم النموذج والجدول الذي تريدين تحقيق الشروط فيه .

Expand

Database21.accdbFetching info...

في 20‏/12‏/2023 at 16:05, ايناس said:

الف شكر

Database21.accdb 572 kB · 0 downloads

Expand

**ابوخليل** · ديسمبر 20, 2023

الأخ / الأخت الكريمة

نأمل في مشاركاتك القادمة الاهتمام باختيار عنوان مناسب مختصر يصف الموضوع

تم تعديل العنوان ،،،

ايناس · ديسمبر 20, 2023

هل من مساعدة منفظلكم

**Foksh** · ديسمبر 20, 2023

أختي الكريمة يبدو أن الملف المرفق فيه مشكلة في الـ VBA ، فعند وضع أي كود عن طريق الـ VBA فإنه لا يعمل.

تفضلي هذا الحل في النموذج Form1

Database21.accdbFetching info...

تم تعديل ديسمبر 20, 2023 بواسطه Foksh

ايناس · ديسمبر 20, 2023

في 20‏/12‏/2023 at 17:42, Foksh said:

أختي الكريمة يبدو أن الملف المرفق فيه مشكلة في الـ VBA ، فعند وضع أي كود عن طريق الـ VBA فإنه لا يعمل.

Expand

في حل ثاني استغنى عن هذه المشكل

الرجاء لو ممكن مساعدة اريد في النموذج عند ادخال الباينات اضيف اول حرف من بيان اخر لكي اتفادى التكرار NICHEمثال اسم المكان مصر و NICHE م مع كتابة الرقم يعني م1 م2 م3

تم تعديل ديسمبر 20, 2023 بواسطه ايناس

**Foksh** · ديسمبر 20, 2023

في 20‏/12‏/2023 at 17:48, ايناس said:

في حل ثاني استغنى عن هذه المشكل

Expand

بالنسبة للحل الثاني ، فهو سهل ، فقط احذفي النموذج وأنشئي نموذج آخر جديد ،

أما بخصوص :smile2: :-

في 20‏/12‏/2023 at 17:48, ايناس said:

الرجاء لو ممكن مساعدة اريد في النموذج عند ادخال الباينات اضيف اول حرف من بيان اخر لكي اتفادى التكرار NICHEمثال اسم المكان مصر و NICHE م مع كتابة الرقم يعني م1 م2 م3

Expand

لم أفهم ما المطلوب :biggrin2:

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

ايناس · ديسمبر 20, 2023

في 20‏/12‏/2023 at 17:54, Foksh said:

بالنسبة للحل الثاني ، فهو سهل ، فقط احذفي النموذج وأنشئي نموذج آخر جديد ،

أما بخصوص :-

لم أفهم ما المطلوب

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

Expand

If DCount("*", "ADHERENTS", "NICHE = '" & Me.NICHE & "'")

وجدت هذا فقط و هذا شرط واحد

**Foksh** · ديسمبر 20, 2023

في 20‏/12‏/2023 at 17:56, ايناس said:

وجدت هذا فقط و هذا شرط واحد

Expand

أختي الكريمة يجوز خطأ مطبعي ، على العموم سبق أن ارفقت لك الكود في مشاراكة سابقة ،،

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

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

مشاركه مع اخى @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‏/12‏/2023 at 11:16, ابوبسمله 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
بالتوفيق
Expand

جزاك الله كل خير أخي @ابوبسمله

فعلاً كلامك ما تفضلت به ، وقد تم التعديل في الكود الأخير فعلاً 😊

في 20‏/12‏/2023 at 17: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

Expand

**أبوبسمله** · ديسمبر 22, 2023

في 22‏/12‏/2023 at 11:50, Foksh said:
وقد تم التعديل في الكود الأخير فعلاً 😊
في 20‏/12‏/2023 at 17: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
Expand
Expand

معذره اخى @Foksh وبماذا يفيد هذا التعديل وانت لم تنوه عن التعديلات واسبابها حتى تقوم الاخت السائله بالتعديل بالجدول لديها باضافه الشرطه السفليه

بالاضافه الى ان الحقل NUMERO REGION حقل رقمى وانت لم تقم بتعديله بما يتناسب مع الحقول الرقميه

تم تعديل ديسمبر 22, 2023 بواسطه ابوبسمله

شايب · ديسمبر 22, 2023

في 22‏/12‏/2023 at 12:09, ابوبسمله said:

بالاضافه الى ان الحقل NUMERO REGION حقل رقمى وانت لم تقم بتعديله بما يتناسب مع الحقول الرقميه

Expand

تعدد الشروط يسبب ربكه للكثير عند كتابة المعايير

لذا يمكن جمع اكثر من معيار واكثر من حقل وبالتالي نكتفي باستخدام المعيار النصي حتى لو كان احد الحقلين رقمي والاخر نصي

**Foksh** · ديسمبر 22, 2023

في 22‏/12‏/2023 at 12:09, ابوبسمله said:

معذره اخى @Foksh وبماذا يفيد هذا التعديل وانت لم تنوه عن التعديلات واسبابها حتى تقوم الاخت السائله بالتعديل بالجدول لديها باضافه الشرطه السفليه

بالاضافه الى ان الحقل NUMERO REGION حقل رقمى وانت لم تقم بتعديله بما يتناسب مع الحقول الرقميه

Expand

أشكر مداخلتك أخي العزيز @ابوبسمله ، ولكن اسمح لي بسؤال ؛ هل قمت بتجربة الكود على الملف المرفق من الأخت صاحبة الموضوع 😅 !!

انتقلنا من فكرة التوضيح إلى فكرة التصحيح بالدرجة الأولى فقط لا غير ، وأشكرك للتوضيح هذه النقطة المهمة :fff:

**Eng.Qassim** · ديسمبر 22, 2023

If DCount("[ID]", "[ADHERENTS]", "[NICHE] ='" & Me.NICHE & "' And NUMERO_REGION =" & Me.NUMERO_REGION & " ") <> 0 Then

**أبوبسمله** · ديسمبر 22, 2023

في 22‏/12‏/2023 at 15:32, شايب said:

تعدد الشروط يسبب ربكه للكثير عند كتابة المعايير

لذا يمكن جمع اكثر من معيار واكثر من حقل وبالتالي نكتفي باستخدام المعيار النصي حتى لو كان احد الحقلين رقمي والاخر نصي

Expand

هذا صحيح معلمى واخى العزيز خالد جزاك الله عنا كل خير

في 22‏/12‏/2023 at 18:42, Foksh said:

ولكن اسمح لي بسؤال ؛ هل قمت بتجربة الكود على الملف المرفق من الأخت صاحبة الموضوع 😅 !!

انتقلنا من فكرة التوضيح إلى فكرة التصحيح بالدرجة الأولى فقط لا غير ، وأشكرك للتوضيح هذه النقطة المهمة

Expand

نعم قمت بتجربته بالاستعلام وليس بالنموذج لان النموذج مبنى وهو ع لغه فرنسيه ولذلك لن نستطيع تجربته الا عندما نقوم بضبط اجهزتنا ع اللغه الفرنسيه

لا اعلم ماذا تقصد بالشطر الثانى من كلامك ولكن دعنى اوضح لك شيئا مهما اخى الفاضل نحن جميعا نتعلم من بعضنا البعض ونخدم اخواننا بما نتعلم لوجه الله

تقبل تحياتى ومرورى واعتذر ان كنت سببت لك اى مضايقه بمداخلتى

بالتوفيق

**Foksh** · ديسمبر 22, 2023

في 22‏/12‏/2023 at 19:43, ابوبسمله said:

هذا صحيح معلمى واخى العزيز خالد جزاك الله عنا كل خير

نعم قمت بتجربته بالاستعلام وليس بالنموذج لان النموذج مبنى وهو ع لغه فرنسيه ولذلك لن نستطيع تجربته الا عندما نقوم بضبط اجهزتنا ع اللغه الفرنسيه

لا اعلم ماذا تقصد بالشطر الثانى من كلامك ولكن دعنى اوضح لك شيئا مهما اخى الفاضل نحن جميعا نتعلم من بعضنا البعض ونخدم اخواننا بما نتعلم لوجه الله

تقبل تحياتى ومرورى واعتذر ان كنت سببت لك اى مضايقه بمداخلتى

بالتوفيق

Expand

بارك الله فيك اخي ومعلمي @ابوبسمله ، وبالعكس أنا طالب هنا وبتعلم من الخبرات العظيمة عند أخواني في المنتدى.

وبالعكس لم أتضايق بقدر ساعدتي لمناقشتك 🥰

karamaujlay · ديسمبر 23, 2023

بالنسبة للحل الثاني ، فهو سهل ، فقط احذفي النموذج وأنشئي نموذج آخر جديد ،

تسجيل الدخول

كيف امنع التكرار بشرطين

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

ايناس

Foksh

ايناس

Foksh

ايناس

Foksh

ايناس

Foksh

ايناس

ابوخليل

ايناس

Foksh

ايناس

Foksh

ايناس

Foksh

أبوبسمله

Foksh

أبوبسمله

شايب

Foksh

Eng.Qassim

أبوبسمله

Foksh

karamaujlay

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information