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

[الحلبي]

السلام عليكم 

نموذج رئيسى به نموذج فرعى لكل منهما جدول (الرئيسى مصدره جدول t1  ـ الفرعى مصدره جدول t2)

المطلوب : عند الضغط على زر الالحاق الموجود فى الرئيسى يتم الحاق جميع البيانات من الرئيسى الى الفرعى وتظهر البيانات في الفرعى بمجرد الضغط على زر الالحاق

ويتم الالحاق اذا كانت البيانات بتاريخ مختلف لنفس الموظف اما اذا كانت البيانات بنفس التاريخ تظهر رسالة بالتكرار

مثلا : الموظف محمد تابع قسم الاداري تاريخه 01/11/2019 يتم الالحاق وعند الضغط مرة اخرى علي زر الالحاق لا يتم الالحاق لانه بنفس التاريخ

اي ان  الموظف محمد تابع قسم الادارى تاريخه 02/11/2019 (اي تاريخ مختلف) يتم الالحاق 

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

مرفق مثال مبسط

جزاكم الله خيرا

عدم التكرار.accdb

[ابوصلاح]

اجعل التاريخ والاسم معا مفتاح اساسي في جدول t2

[الحلبي]

اولا اشكرك على مرورك

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

[ابو ياسين المشولي]

استخدم هذا المعيار عند التاريخ

Not In (SELECT t2.xdate
FROM t2;)

 

عدم التكرار (1).accdb

تم تعديل نوفمبر 7, 2019 بواسطه ابو ياسين المشولي

[ابوصلاح]

عادي الاسم يكون مكرر مفيش مشكلة لكن لا يكرر الاسم والتاريخ معا

[الحلبي]

جزاك الله خير خبيرنا / محمد ياسين

توضيح اكثر للمطلوب : 

اذا كانت الحقول الاربعة ( اسم الموظف + القسم + التاريخ + كود الموظف)  غير موجود في النموذج الفرعى يتم الالحاق

اذا تغير حقل احدى الحقول الاربعة يتم الالحاق اما اذا كانت نفس الحقول الاربعة لا يتم الالحاق وتظهر رسالة بانه مكرر

 

جزاك الله خيرا اخى الفاضل / ابو صلاح 

طب شوف التوضيح في اعلاه يمكن يوضح لحضرتك شويه

[ابوصلاح]

اجعل الاربعة حقول مفتاح اساسي وجرب

 

[الحلبي]

جعلت الاربع حقول مفتاح اساسى لم يتم اي الحاق 

جرب على المثال المرفق وشوف بنفسك 

[ابوصلاح]

انت عامل SR نص مختصر في جدول T1 والجدول الاخر ترقيم تلقائي

[ابو ياسين المشولي]

30 دقائق مضت, حلبي said:

جزاك الله خير خبيرنا / محمد ياسين

توضيح اكثر للمطلوب : 

اذا كانت الحقول الاربعة ( اسم الموظف + القسم + التاريخ + كود الموظف)  غير موجود في النموذج الفرعى يتم الالحاق

اذا تغير حقل احدى الحقول الاربعة يتم الالحاق اما اذا كانت نفس الحقول الاربعة لا يتم الالحاق وتظهر رسالة بانه مكرر

 

جزاك الله خيرا اخى الفاضل / ابو صلاح 

طب شوف التوضيح في اعلاه يمكن يوضح لحضرتك شويه

طيب ليه ماتخلي الاحاق من النموذج

[الحلبي]

مش فاهم 

الالحاق يتم من النموذج 

[ابو ياسين المشولي]

شوف هذا

Dim db As DAO.Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("t2")
 If DCount("*", "t2", "[nume]='" & Me.nume & "'" & "AND [xdate]=#" & Format(Me.xdate, "yyyy/mm/dd") & "#") > 0 Then
    MsgBox " الاسم مكرر  ", vbExclamation, " : خطــــــــأ "
Exit Sub
Else
    rs.AddNew
    rs!sr = Me.sr
    rs!xdate = Me.xdate
    rs!nume = Me.nume
    rs!xpart = Me.part
    rs.Update
rs.Close
db.Close
    MsgBox " تم الترحيل بنجاح  ", vbInformation, " : رسالة "

End If

 

عدم التكرار (1).accdb

[الحلبي]

استاذنا الفاضل / ابو ياسين

جزاكم الله خيرا وجعله في ميزان حسناتكم 

بعد الضغط علي زر الترحيل يتم الترحيل وعند اغلاف النموذج وفتحه تظهر رسالة خطأ 

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

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

اسف لتعبك معي 

تم تعديل نوفمبر 8, 2019 بواسطه الحلبي

[الحلبي]

استاذي وخبيرنا الفاضل / ابو ياسين 

لقد توصلت الى الحل بعد عدة محاولات والفضل يرجع لله ثم لحضرتك 

استعرت الكود الجميل الرائع جدا جدا جدا جدا جدا من حضرتك دون باقى الكود

 If DCount("*", "t2", "[nume]='" & Me.nume & "'" & "AND [xdate]=#" & Format(Me.xdate, "yyyy/mm/dd") & "#") > 0 Then
    MsgBox " الاسم مكرر  ", vbExclamation, " : خطــــــــأ "

واضفت له شرط  حقل (القسم)  ايضا واصبح كالتالي

 If DCount("*", "t2", "[nume]='" & Me.nume & "'" & "AND [xdate]=#" & Format(Me.xdate, "yyyy/mm/dd") & "#" & "and xpart='" & Me.part & "'") > 0 Then

وعملت استعلام الحاق وغيرت خصائص الحقل sr في الجدول t2 وجعلته رقم حتى يقبل التكرار

وارفقت المثال للافادة لكل من ياتى بعدنا بعد عمل بعد التغيرات عليه وبمجرد الضغط على زر الالحاق اصبح يظهر في النموذج الفرعى بمجرد الضغط

حاول ان تغير القسم او التاريخ ترى ماذا يحدث 

طبعا هذا والله العظيم بفضل الله ثم فضلكم علىٌ 

ربنا يزيدك علما ينتفع به ويكثر من امثالك ويرحم والديك في الدنيا والاخره

لك كل احترام وتقدير لشخصكم الكريم

عدم التكرار (1).accdb

تم تعديل نوفمبر 8, 2019 بواسطه الحلبي

[Ali Sadiq]

السلام عليكم اخي محمد

جرب الملف الان واخبرني بالنتيجة مع العلم لم اغير اي شيئ في كود الاستاذ @ابو ياسين المشولي 

بالتوفيق

عدم التكرار (3).accdb

[الحلبي]

الاخ الفاضل / على   وعليكم السلام

اولا شكرا لك للمشاركة للمساعدة جزاك الله خيرا

اخى الحبيب انت قمت فقط بتعديل الربط بين الرئيسى والفرعى وجعلته حقل التاريخ (xdate) بدل من حقل (sr)

وهذا لا يفى بالغرض حيث انى اريد كل موظف على حده بين بياناته في الرئسي والفرعى فيلزم الربط بالحقل (sr)

بمعنى ان كل موظف فى الرئيسي له اكثر من سجل فى الفرعى

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

جعله الله في ميزان حسناتك

انا اكتفيت بالحل الذي قمت به في المشاركة السابقة ولكم جزيل الشكر

تم تعديل نوفمبر 8, 2019 بواسطه الحلبي

[Ali Sadiq]

أخي العزيز محمد

بامكانك ايضا عدم الربط بين الرئيسي والفرعي اتركه فارغا وستحصل على نفس النتيجة  كل موظف فى الرئيسي له اكثر من سجل فى الفرعى.

على العموم أنت اعلم ببرنامجك. بالتوفيق ان شاءالله

 تحياتي