التاكد من عدم تكرار المفتاح الاساسي عند تشغيل الاستعلام الالحاقي

[gavan]

مرحبا بكم , سوال يراودني كثيرا , كيف نتعامل مع الاكسس عندما نريد ان يظهر لنا مانريده وليس كما يريده الاكسس 

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

الجدولين به 3 مفتاح اساسي وكلها ارقام

عند تشغيل الاستعلام الالحاقي اذا كانت القيم موجودة ظهر رسالة تقول ذلك واذا لم تكن موجودة رسالة هل تريد القيام بذلك ok و يخلص الموضوع 

 

تحياتي لكم

[kkhalifa1960]

تفضل أخي محاولتي حسب ما فهمت ، ووافني بالرد .

DD409.accdb

[دروب مبرمج]

استخدم دالة التجميع الشرطية DCount

مثال على ذلك

DCount("*","Table_Name","[ID]=" & [Forms]![Forms_Name]![TextBox1])

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

و يمكن بهذا الطريقة اضافة شرط كما يلي

If DCount("*", "Table_Name", "[ID]=" & [Forms]![Forms_Name]![TextBox1]) <> 0 Then

    If MsgBox("تم تسجيل الصنف من قبل" & _
    vbNewLine & "هل تريد اضافة الصنف مرة أخرى؟" _
    , vbQuestion + vbMsgBoxRight + vbYesNo, "تنبيه") = vbYes Then
        DoCmd.RunCommand acCmdSave
        MsgBox "تم اضافة صنف مشابه بنجاح", vbInformation + vbMsgBoxRight, "تأكيد"
    Else
        DoCmd.RunCommand acCmdUndo
        MsgBox "تم التراجع عن الحفظ", vbCritical + vbMsgBoxRight, "تأكيد"
    End If
    
Else

    MsgBox "تم تسجيل الصنف بنجاح", vbInformation + vbMsgBoxRight, "تأكيد"

End If

يجب عليك الغاء المفاتيح الاساسية لكي تستطيع تنفيذ الشروط اعلاه

[gavan]

مشكور جدا اخي  kkhalifa1960

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

اقتباس

 

DD409.accdb

كل الهلا بيك اخي العالي دروب مبرمج

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

[gavan]

و سويت مثل هذا المثال ايظا ماظبط معي

If DCount("[ID]", "R_DependFromQ", "[MonthNumber] = " & "'" & Me!ComboMAdd & "'" & "And [YearNumber] = " & "'" & Me!ComboYAdd & "'") Then
   
   
     MsgBox "A contact with these details already exists:-" & vbCrLf, vbOKOnly + vbExclamation
        Cancel = True 'Cancel the update

حيث [id] , [momthNumber ] , [yearNumber]  مفاتيح اساسية , ويتم تزويد الجدول الالحاقي بواسطة الشهر و السنة من خلال 2 كومبوبوكس للشهر و السنة , فاذا كانت موجودة الشهر و السنة يعطي ايعاز بانها موجودة, و اذا لا, يظاف الى الجدول 

[kkhalifa1960]

تفضل أخي @gavan المثال بعد التعديل . ززافني بالرد 

DD409-1.accdb

[gavan]

شكرا اخي kkhalifa1960

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

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

اقتباس

اقتباس

 

 

 

DD409.accdb

[شايب]

منذ ساعه, gavan said:

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

جرب المرفق

مع عدم الاقتناع بثلاث حقول مفتاح اساسي

الشايب

 

DD409.accdb

[دروب مبرمج]

وتفضل هذه مشاركة مع الاخوان

 

DD409.accdb

[ابووحيد]

شكرا لحضرتك اخى الكريم

لو ادخلت رقم فى حقل مفتاح ةالرقم مكرر

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

مع شكرى لحضرتك

 

 

[gavan]

شكرا لكم جميعا بالاخص الاخ دروب مبرمج و الاخ شايب والله شيبتني هههه , ولا ننسى الاخ خليفة (اعزكم الله جميعا)

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

و بالنسبة الى سوال الاخ ابو وحيد اعتقد انك بحاجة الى كود 

Docmd.cancelEvent

Me.Undo

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

[kkhalifa1960]

في 16‏/11‏/2023 at 20:30, gavan said:

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

الجدولين به 3 مفتاح اساسي وكلها ارقام

في حل الاستاذ @دروب مبرمج هل لاحظت أن الجدول الثاني ليس به مفاتيح 

[شايب]

20 ساعات مضت, gavan said:

الاخ شايب والله شيبتني هههه

بسم الله عليك

48 دقائق مضت, kkhalifa1960 said:

في حل الاستاذ @دروب مبرمج هل لاحظت أن الجدول الثاني ليس به مفاتيح 

ههههه انا انتبهت من امس بس ماعلقت 😃

الشايب

[ابووحيد]

اخى الكريم الاستاذ  gavan

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

ويتم رفض ادخل الرقم ويضع التركيز على الحقل لادخل غيره 

ولكنى لا اتسطيع كتابه الكود