بعد التحية ربط بين ثلاثة حقول في جدولين لمنع التكرار

[elmozy525]

برنامج ادون به اسماء الاسر 

عبارة عن جدولين 

الاول به حقلين بهما الرقم القومى للاب والرقم القومى للام 

التانى به حقل الرقم القومى لابن 

هل ممكن الربط بين الثلاثة حقول من الجدولين حتى لا يتكرر الرقم القومى 

بحيث لو كتبتة فى اى حقل من الثلاثة وكان مسجل قبل ذلك يعطينى رسالة انه مسجل

وشكرا لحضارتكم 

جمعية.rar

تم تعديل يوليو 29, 2023 بواسطه elmozy525

[Eng.Qassim]

ان فهمت سؤالك ..انسخ الكود التالي في حقل الرقم القومي للابن في حدث قبل التحديث

وطبقه مع بقية حقول الرقم القومي للاب والام ..مع تغيير اسماء الحقول

If Nz(DCount("Qawmi", "tbl_Sons", "[txtQawmi]= [Qawmi]"), 0) = 0 Then
Else
    MsgBox "الرقم مسجل من قبل.."
    Me.Undo
    DoCmd.CancelEvent
End If
If Nz(DCount("Qawmi", "Show_Familys", "[txtQawmi]= [Qawmi]"), 0) = 0 Then
Else
    MsgBox "الرقم مسجل من قبل.."
    Me.Undo
    DoCmd.CancelEvent
End If
If Nz(DCount("Qawmi2", "Show_Familys", "[txtQawmi]= [Qawmi2]"), 0) = 0 Then
Else
    MsgBox "الرقم مسجل من قبل.."
    Me.Undo
    DoCmd.CancelEvent
End If

 

[elmozy525]

36 دقائق مضت, Eng.Qassim said:

ان فهمت سؤالك ..انسخ الكود التالي في حقل الرقم القومي للابن في حدث قبل التحديث

وطبقه مع بقية حقول الرقم القومي للاب والام ..مع تغيير اسماء الحقول

If Nz(DCount("Qawmi", "tbl_Sons", "[txtQawmi]= [Qawmi]"), 0) = 0 Then
Else
    MsgBox "الرقم مسجل من قبل.."
    Me.Undo
    DoCmd.CancelEvent
End If
If Nz(DCount("Qawmi", "Show_Familys", "[txtQawmi]= [Qawmi]"), 0) = 0 Then
Else
    MsgBox "الرقم مسجل من قبل.."
    Me.Undo
    DoCmd.CancelEvent
End If
If Nz(DCount("Qawmi2", "Show_Familys", "[txtQawmi]= [Qawmi2]"), 0) = 0 Then
Else
    MsgBox "الرقم مسجل من قبل.."
    Me.Undo
    DoCmd.CancelEvent
End If

 

بارك الله فيكم 

بس بيظهر خطا فى كود الابناء لانه مش على نفس الصفحة مرفق صورة الخطأ

لانهم اربع نماذح بيعمل الكود الاول والثانى لانهم فى صفحة واحدة امام الابناء فهى فى صفحة اخرى لذلك لايعمل الكود وهذه هى المشكلة 

وفى الابناء لا يعمل الكود الاول والثانى ويعمل الثالث فقط

وهذه هى مشكلتى 

[Eng.Qassim]

5 ساعات مضت, Eng.Qassim said:

وطبقه مع بقية حقول الرقم القومي للاب والام ..مع تغيير اسماء الحقول

انت في صفحة الاب والام ..وانا قلت لك ان تغير بأسماء الحقول 

[txtQawmi] يصبح 

[txtQawmi2]

[elmozy525]

4 ساعات مضت, Eng.Qassim said:

انت في صفحة الاب والام ..وانا قلت لك ان تغير بأسماء الحقول 

[txtQawmi] يصبح 

[txtQawmi2]

انا فعلت غيرت علشان كدا المشكلة ظهرت فى كود الابن بس مع انه سليم  وهو اللى عليه العلامة الصفراء 

انا ارسلت لحضرتك نسخة فى اول الموضوع جرب عليها

كود الاب

If Nz(DCount("Qawmi", "Show_Familys", "[txt_Qawmi]= [Qawmi]"), 0) = 0 Then
Else
    MsgBox "الرقم مسجل من قبل.."
    Me.Undo
    DoCmd.CancelEvent
End If

كود الام
If Nz(DCount("Qawmi2", "Show_Familys", "[txt_Qawmi2]= [Qawmi2]"), 0) = 0 Then
Else
    MsgBox "الرقم مسجل من قبل.."
    Me.Undo
    DoCmd.CancelEvent
End If

كود الابن

If Nz(DCount("Qawmi", "tbl_Sons", "[txtQawmi]= [Qawmi]"), 0) = 0 Then
Else
    MsgBox "الرقم مسجل من قبل.."
    Me.Undo
    DoCmd.CancelEvent
End If

 

 

كله تمام 

ومع ذلك بيعطى هذه الرسالة 

كمان بيدى الرسالة حتى لو غيرت الرقم 

 

[ابوخليل]

مشاركة مع اخي قاسم

Public myQwmiNum As String
Public Function funDublCate()
Dim rs As dao.Recordset
Dim strSql As String
Set rs = CurrentDb.OpenRecordset("SELECT Show_Familys.Qawmi " & vbCrLf & _
"FROM Show_Familys; " & vbCrLf & _
"UNION SELECT Show_Familys.Qawmi2 " & vbCrLf & _
"FROM Show_Familys; " & vbCrLf & _
"UNION SELECT tbl_Sons.Qawmi " & vbCrLf & _
"FROM tbl_Sons")
rs.MoveLast
rs.MoveFirst
Do Until rs.EOF
If rs!Qawmi = myQwmiNum Then
MsgBox " الرقم القومي مكرر   ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه"
DoCmd.CancelEvent
Exit Do
End If
rs.MoveNext
Loop
rs.Close
End Function

 

جمعية2.rar

[AbuuAhmed]

وهذه مساهمة مني كذلك بنفس فكرة أبو خليل مع بعض الاختلافات البسيطة.

جمعية_03.accdb

[elmozy525]

15 ساعات مضت, ابوخليل said:

مشاركة مع اخي قاسم

Public myQwmiNum As String
Public Function funDublCate()
Dim rs As dao.Recordset
Dim strSql As String
Set rs = CurrentDb.OpenRecordset("SELECT Show_Familys.Qawmi " & vbCrLf & _
"FROM Show_Familys; " & vbCrLf & _
"UNION SELECT Show_Familys.Qawmi2 " & vbCrLf & _
"FROM Show_Familys; " & vbCrLf & _
"UNION SELECT tbl_Sons.Qawmi " & vbCrLf & _
"FROM tbl_Sons")
rs.MoveLast
rs.MoveFirst
Do Until rs.EOF
If rs!Qawmi = myQwmiNum Then
MsgBox " الرقم القومي مكرر   ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه"
DoCmd.CancelEvent
Exit Do
End If
rs.MoveNext
Loop
rs.Close
End Function

 

جمعية2.rar 98.23 kB · 1 download

 

بارك الله فيك اخى الفاضل ابو خليل 

عارف انى تعبتكم معاى 

ولكن الكود لم يعمل 

ويظهر هذه الرسائل ويتجمد البرنامج 

[elmozy525]

هو ليه حضرتك حاطط الكود فى exit 

 

[ابوخليل]

المشكلة بسبب لما يكون الحقل فارغ

استخدم الدالة NZ

myQwmiNum = Nz(txt_Qawmi)

 

12 دقائق مضت, elmozy525 said:

هو ليه حضرتك حاطط الكود فى exit 

 

من اجل لا يتمكن من مغادرة الحقل حتى يقوم بتعديل الرقم ،،، حيث undo لا تعمل الا من خلال سجلات النموذج ، والكود المسؤول عبارة عن وحدة نمطية

جرب وحاول تغير الحدث الى ما يناسبك .. قبل التحديث او بعد التحديث .. 

جمعية3.rar

[ابوخليل]

المقارنة تتم  عبر استعلام توحيد في الوحدة النمطية

المثال يعمل لدي 100% .. انا اعمل على اكسس 2019

اذا لم يعمل عندك يمكننا الغاء الوحدة النمطية ونعمل استعلام توحيد ظاهر يضم الحقول الثلاث . ونستخدم  اكواد الاستاذ قاسم  للمقارنة من مصدر بيانات واحد الذي هو الاستعلام

[elmozy525]

10 دقائق مضت, ابوخليل said:

المشكلة بسبب لما يكون الحقل فارغ

استخدم الدالة NZ

myQwmiNum = Nz(txt_Qawmi)

 

من اجل لا يتمكن من مغادرة الحقل حتى يقوم بتعديل الرقم ،،، حيث undo لا تعمل الا من خلال سجلات النموذج ، والكود المسؤول عبارة عن وحدة نمطية

جرب وحاول تغير الحدث الى ما يناسبك .. قبل التحديث او بعد التحديث .. 

جمعية3.rar 98.38 kB · 0 downloads

لازلت المشكة قائمة مع فراغ الحقل 

اى حقل فارغ

ولو عملت نسخ للرقم وضغط على التالى تاتى رسالة الرقم مكرر

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

2 دقائق مضت, ابوخليل said:

المقارنة تتم  عبر استعلام توحيد في الوحدة النمطية

المثال يعمل لدي 100% .. انا اعمل على اكسس 2019

اذا لم يعمل عندك يمكننا الغاء الوحدة النمطية ونعمل استعلام توحيد ظاهر يضم الحقول الثلاث . ونستخدم  اكواد الاستاذ قاسم  للمقارنة من مصدر بيانات واحد الذي هو الاستعلام

انا اعمل على اكسس 365

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

 

[ابوخليل]

مادام الرقم المكرر موجود ستظهر الرسالة

هل مسحت الرقم بعد ظهور الرسالة ... او عدلت على الرقم

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

يجب ان تجرب على مثالي الاخير المرفق

[ابوخليل]

تفضل تعديل طفيف على الكود وعلى الحدث

اتمنى ان يعمل عندك

جمعية4.rar

[elmozy525]

منذ ساعه, ابوخليل said:

المشكلة بسبب لما يكون الحقل فارغ

استخدم الدالة NZ

myQwmiNum = Nz(txt_Qawmi)

 

من اجل لا يتمكن من مغادرة الحقل حتى يقوم بتعديل الرقم ،،، حيث undo لا تعمل الا من خلال سجلات النموذج ، والكود المسؤول عبارة عن وحدة نمطية

جرب وحاول تغير الحدث الى ما يناسبك .. قبل التحديث او بعد التحديث .. 

جمعية3.rar 98.38 kB · 0 downloads

 

42 دقائق مضت, ابوخليل said:

مادام الرقم المكرر موجود ستظهر الرسالة

هل مسحت الرقم بعد ظهور الرسالة ... او عدلت على الرقم

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

يجب ان تجرب على مثالي الاخير المرفق

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

بس لازم اغير الرقم لو مسحته تظل المشكلة قائمة وكانه مسجل فى القاعدة مع انى لو بحث عنه لا يوجد 

[elmozy525]

2 ساعات مضت, ابوخليل said:

تفضل تعديل طفيف على الكود وعلى الحدث

اتمنى ان يعمل عندك

جمعية4.rar 97.68 kB · 0 downloads

ممتاز سلمت يمينك 

دا حل المشكلة لانه بيمسح الرقم ولا يسجل فى القاعدة 

وهذا ما اريد 

ربنا يحفظكم جميعا ويجعلة فى ميزان حسناتك 

 

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

اللى هو مربع بحث بالرقم القومى الموجود فى اعلى النموذج

 

تم تعديل يوليو 30, 2023 بواسطه elmozy525

[elmozy525]

15 ساعات مضت, AbuuAhmed said:

وهذه مساهمة مني كذلك بنفس فكرة أبو خليل مع بعض الاختلافات البسيطة.

جمعية_03.accdb 1.06 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 3 downloads

جزاك اله خير اخى الفاضل

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

تعبت حضرت 

والحمد لله تم حل المشكلة بواسطة اخونا ابو خليل 

فشكرا لكم جميعا 

سعيد انى معكم وبينكم

 

[elmozy525]

اخى الفاضل 

لما نقلت الكود والموديول الى القاعد لم يعمل

هو فيه اى كود لازم ينقل

 

 

تم تعديل يوليو 30, 2023 بواسطه elmozy525

[AbuuAhmed]

منذ ساعه, elmozy525 said:

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

تعبت حضرت 

والحمد لله تم حل المشكلة بواسطة اخونا ابو خليل

🙂 جميل، استفدنا منكم. المرات الجاية أحاول تكون حلولي صحيحة. 

[elmozy525]

3 دقائق مضت, AbuuAhmed said:

🙂 جميل، استفدنا منكم. المرات الجاية أحاول تكون حلولي صحيحة. 

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

حضرتك استاذنا وفوق الرأس 

تحياتى لك 

ارجوك متزعلش منى 

[AbuuAhmed]

من مشكلاتنا هي ملاحقة الفشل لنا في ما نقدم من حلول بسبب السائلين وبعض الزملاء "المنافسين 🙂"، وهذه متكررة بشكل كبير وأنا أعاني منها كثيرا وربما أكثر من غيري،
بعض السائلين يجسد قول أدونيس: "مشكلتنا أننا لا نقرأ النص بل نقرأ كاتب النص!"

من اليوم وصاعدا لن أقدم حلا ضمن مثال السائل، بل سأقطع الجزء الخاص بالسؤال ليكون الحل واضحا ولأستطيع أن ألجم به كل مدع بعدم حصوله على الحل المطلوب.

أنا أتحدث بشكل عام ولمشكلة عامة أخي @elmozy525 ولا أوجه هذا الكلام لشخصك الكريم بشكل خاص، فلا تشغل نفسك بالرد والإسهاب بالتفاصيل.

مرفق المثال مرة أخرى بالطريقة التي اعتمدتها من اليوم، فهل من مخطئ لحلي؟.

جمعية_05.accdb

[شايب]

منذ ساعه, AbuuAhmed said:

مرفق المثال مرة أخرى بالطريقة التي اعتمدتها من اليوم، فهل من مخطئ لحلي؟.

السلام عليكم استاذي ابو احمد

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

ثم وجدت حلك السابق وكلكم اساتذة كبار مع اعجابي بطريقتك في كتابة الاكواد والتي تشير بوضوح الى تمكن تام ماشاء الله

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

الحقيقة وانا لا اتحدث بشكل خاص عن صاحب الموضوع ولكن بعض الزملاء يطرح موضوع ثم لا يكلف نفسة عناء الرد على من اقتطع من وقته الكثير لتقديم العون

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

هذا الرد من تجارب سابقة لهذا المعرف وثلاث معرفات سابقة تخليت عنها خلال فترة انتسابي للموقع

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

الاخ شايب 🌹

[elmozy525]

منذ ساعه, AbuuAhmed said:

من مشكلاتنا هي ملاحقة الفشل لنا في ما نقدم من حلول بسبب السائلين وبعض الزملاء "المنافسين 🙂"، وهذه متكررة بشكل كبير وأنا أعاني منها كثيرا وربما أكثر من غيري،
بعض السائلين يجسد قول أدونيس: "مشكلتنا أننا لا نقرأ النص بل نقرأ كاتب النص!"

من اليوم وصاعدا لن أقدم حلا ضمن مثال السائل، بل سأقطع الجزء الخاص بالسؤال ليكون الحل واضحا ولأستطيع أن ألجم به كل مدع بعدم حصوله على الحل المطلوب.

أنا أتحدث بشكل عام ولمشكلة عامة أخي @elmozy525 ولا أوجه هذا الكلام لشخصك الكريم بشكل خاص، فلا تشغل نفسك بالرد والإسهاب بالتفاصيل.

مرفق المثال مرة أخرى بالطريقة التي اعتمدتها من اليوم، فهل من مخطئ لحلي؟.

جمعية_05.accdb 684 kB · 0 downloads

بداية اخى الفاضل اعتذر مرة اخرى ان كنت أسأت الادب فى الرد 

ولكن اقسم بالله العظيم  انى لم اقصد ان اقلل من علمك ولا عملك ولا خبرتك ولم انظر للاسماء لانى جديد فى المنتدى ولا اعرف الاشخاص

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

فلايمكن ابدأ ان اقلل من تعب احد وكلكم فوق رأسى 

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

ووضحت وجهة نظرى فيما احتاج ايه ليس الا 

فعذرا

 

[elmozy525]

6 دقائق مضت, شايب said:

السلام عليكم استاذي ابو احمد

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

ثم وجدت حلك السابق وكلكم اساتذة كبار مع اعجابي بطريقتك في كتابة الاكواد والتي تشير بوضوح الى تمكن تام ماشاء الله

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

الحقيقة وانا لا اتحدث بشكل خاص عن صاحب الموضوع ولكن بعض الزملاء يطرح موضوع ثم لا يكلف نفسة عناء الرد على من اقتطع من وقته الكثير لتقديم العون

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

هذا الرد من تجارب سابقة لهذا المعرف وثلاث معرفات سابقة تخليت عنها خلال فترة انتسابي للموقع

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

الاخ شايب 🌹

اخى الفاضل سعيد بكم جميع 

والله العظيم انا رددت عليه احتراما وادبا حتى لا أكون من هولاء  ( ثم لا يكلف نفسة عناء الرد على من اقتطع من وقته الكثير لتقديم العون)

لانى رايت المثال بعد الحل وانا اراجع الصفحة ولو كنت منهم ما رددت لانى وصلت الى ما احتاج ولكن تذكرت (من لا يشكر الناس لا شكر الله ) (ومن اسدى اليكم معروفا فكافئوه)

والله لست من هؤلاء ويعلم الله تعالى (والبعض يعتمد على الاسماء الكبيرة  او القروبات الخاصة ولا يهتم بالحل المقدم  ويتجاهل جهود الاخرين)

اشكر الجميع 

واحتاج الى حل بقية المشكلة لوجه الله تعالى 

وهى تشغيل مربع البحث الذى فى اعلى النموذج 

 

 

[شايب]

24 دقائق مضت, elmozy525 said:

والله العظيم انا رددت عليه احتراما وادبا حتى لا أكون من هولاء

اخي العزيز انا لا اتحدث عنك شخصيا وخصوصا انك عضو جديد بالموقع

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

وفي جميع الاحوال الامر ليس تصيد للاحطاء بقدر ماهو محاولة لتفادي السلبيات

قبل سنوات كنت و مجموعة من المبرمجين في واحد من اكبر مواقع برمجة php وهاكات منتديات vBulletin وكان الموقع الاول في هذا المجال

ثم مر الموقع بفترة خارج الزمن انتشرت فيها المجاملات والتكتلات مما دفع الكثير للابتعاد عن الموقع واتمنى الا نمر بمثل ذلك هنا

اخونا شايب