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

[elmozy525]

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

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

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

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

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

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

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

جمعية.rarFetching info...

تم تعديل يوليو 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]

  في 29‏/7‏/2023 at 12:14, 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

 

Expand  

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

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

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

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

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

[Eng.Qassim]

  في 29‏/7‏/2023 at 12:14, Eng.Qassim said:

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

Expand  

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

[txtQawmi] يصبح 

[txtQawmi2]

[elmozy525]

  في 29‏/7‏/2023 at 17:47, Eng.Qassim said:

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

[txtQawmi] يصبح 

[txtQawmi2]

Expand  

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

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

كود الاب

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.rarFetching info...

[AbuuAhmed]

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

جمعية_03.accdbFetching info...

[elmozy525]

  في 30‏/7‏/2023 at 04:16, ابوخليل 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

Expand  

 

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

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

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

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

[elmozy525]

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

 

[ابوخليل]

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

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

myQwmiNum = Nz(txt_Qawmi)

 

  في 30‏/7‏/2023 at 19:47, elmozy525 said:

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

 

Expand  

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

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

جمعية3.rarFetching info...

[ابوخليل]

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

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

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

[elmozy525]

  في 30‏/7‏/2023 at 20:05, ابوخليل said:

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

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

myQwmiNum = Nz(txt_Qawmi)

 

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

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

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

Expand  

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

اى حقل فارغ

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

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

  في 30‏/7‏/2023 at 20:18, ابوخليل said:

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

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

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

Expand  

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

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

 

[ابوخليل]

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

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

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

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

[ابوخليل]

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

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

جمعية4.rarFetching info...

[elmozy525]

  في 30‏/7‏/2023 at 20:05, ابوخليل said:

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

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

myQwmiNum = Nz(txt_Qawmi)

 

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

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

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

Expand  

 

  في 30‏/7‏/2023 at 20:27, ابوخليل said:

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

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

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

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

Expand  

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

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

[elmozy525]

  في 30‏/7‏/2023 at 20:39, ابوخليل said:

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

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

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

Expand  

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

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

وهذا ما اريد 

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

 

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

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

 

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

[elmozy525]

  في 30‏/7‏/2023 at 05:50, AbuuAhmed said:

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

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

Expand  

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

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

تعبت حضرت 

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

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

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

 

[elmozy525]

اخى الفاضل 

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

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

 

 

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

[AbuuAhmed]

  في 30‏/7‏/2023 at 21:27, elmozy525 said:

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

تعبت حضرت 

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

Expand  

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

[elmozy525]

  في 30‏/7‏/2023 at 22:34, AbuuAhmed said:

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

Expand  

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

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

تحياتى لك 

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

[AbuuAhmed]

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

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

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

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

جمعية_05.accdbFetching info...

[شايب]

  في 31‏/7‏/2023 at 08:06, AbuuAhmed said:

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

Expand  

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

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

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

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

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

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

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

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

الاخ شايب 🌹

[elmozy525]

  في 31‏/7‏/2023 at 08:06, AbuuAhmed said:

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

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

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

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

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

Expand  

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

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

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

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

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

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

فعذرا

 

[elmozy525]

  في 31‏/7‏/2023 at 09:21, شايب said:

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

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

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

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

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

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

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

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

الاخ شايب 🌹

Expand  

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

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

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

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

اشكر الجميع 

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

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

 

 

[شايب]

  في 31‏/7‏/2023 at 09:35, elmozy525 said:

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

Expand  

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

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

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

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

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

اخونا شايب