gavan قام بنشر نوفمبر 16, 2023 مشاركة قام بنشر نوفمبر 16, 2023 مرحبا بكم , سوال يراودني كثيرا , كيف نتعامل مع الاكسس عندما نريد ان يظهر لنا مانريده وليس كما يريده الاكسس انا لدي جدول رئيسي و جدول فرعي يتم ملئه بواسطة استعلام الحاقي من الجدول الرئيسي الجدولين به 3 مفتاح اساسي وكلها ارقام عند تشغيل الاستعلام الالحاقي اذا كانت القيم موجودة ظهر رسالة تقول ذلك واذا لم تكن موجودة رسالة هل تريد القيام بذلك ok و يخلص الموضوع تحياتي لكم رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر نوفمبر 16, 2023 مشاركة قام بنشر نوفمبر 16, 2023 تفضل أخي محاولتي حسب ما فهمت ، ووافني بالرد . DD409.accdb رابط هذا التعليق شارك More sharing options...
دروب مبرمج قام بنشر نوفمبر 16, 2023 مشاركة قام بنشر نوفمبر 16, 2023 استخدم دالة التجميع الشرطية 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 يجب عليك الغاء المفاتيح الاساسية لكي تستطيع تنفيذ الشروط اعلاه رابط هذا التعليق شارك More sharing options...
gavan قام بنشر نوفمبر 17, 2023 الكاتب مشاركة قام بنشر نوفمبر 17, 2023 مشكور جدا اخي kkhalifa1960 ارفقت مثالك من جديد وبه القليل من التحوير في النموذج , ولكن عند اظافة سجل مغاير يقول انه تم اظافته مع العلم الجدول 2 لايحتويه اقتباس DD409.accdb كل الهلا بيك اخي العالي دروب مبرمج ولكن فائدة المفاتيح الاساسية هي لعدم تكرار البيانات الثلاثة (المفاتيح الاساسية الثلاث) عند الالحاق, حيث تظهر رسالة بان السجل موجود ولن يتم الاظافة , كل الشكر و التقدير لك يالغالي رابط هذا التعليق شارك More sharing options...
gavan قام بنشر نوفمبر 17, 2023 الكاتب مشاركة قام بنشر نوفمبر 17, 2023 و سويت مثل هذا المثال ايظا ماظبط معي 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 كومبوبوكس للشهر و السنة , فاذا كانت موجودة الشهر و السنة يعطي ايعاز بانها موجودة, و اذا لا, يظاف الى الجدول رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر نوفمبر 17, 2023 مشاركة قام بنشر نوفمبر 17, 2023 تفضل أخي @gavan المثال بعد التعديل . ززافني بالرد DD409-1.accdb 1 رابط هذا التعليق شارك More sharing options...
gavan قام بنشر نوفمبر 17, 2023 الكاتب مشاركة قام بنشر نوفمبر 17, 2023 شكرا اخي kkhalifa1960 المثال الذي ارفقته يلحق فقط شخص , وبعدها يقول ان المعلومات مرفعة مسبقا , مع العلم انها ليست موجودة في الجدول الثاني اليك مرفقي لو سمحت ان تعدل فيه اكون شاكرا لك , تحياتي اقتباس اقتباس DD409.accdb رابط هذا التعليق شارك More sharing options...
شايب قام بنشر نوفمبر 17, 2023 مشاركة قام بنشر نوفمبر 17, 2023 منذ ساعه, gavan said: اليك مرفقي لو سمحت ان تعدل فيه اكون شاكرا لك , تحياتي جرب المرفق مع عدم الاقتناع بثلاث حقول مفتاح اساسي الشايب DD409.accdb رابط هذا التعليق شارك More sharing options...
أفضل إجابة دروب مبرمج قام بنشر نوفمبر 17, 2023 أفضل إجابة مشاركة قام بنشر نوفمبر 17, 2023 وتفضل هذه مشاركة مع الاخوان DD409.accdb رابط هذا التعليق شارك More sharing options...
ابووحيد قام بنشر نوفمبر 17, 2023 مشاركة قام بنشر نوفمبر 17, 2023 شكرا لحضرتك اخى الكريم لو ادخلت رقم فى حقل مفتاح ةالرقم مكرر اريد كود يقول الرقم شبق ادخاله ولا يسمح بذاك ويضع التركيز مره اخرى على الحقل مع شكرى لحضرتك 1 رابط هذا التعليق شارك More sharing options...
gavan قام بنشر نوفمبر 17, 2023 الكاتب مشاركة قام بنشر نوفمبر 17, 2023 شكرا لكم جميعا بالاخص الاخ دروب مبرمج و الاخ شايب والله شيبتني هههه , ولا ننسى الاخ خليفة (اعزكم الله جميعا) بالرجوع الى المرفقات وخاصة مرفق الاخ دروب مبرمج , حيث عملت على الكود المخصص ل Add وحورته ليناسب برنامجي ووفقت في ذلك و الحمد لله . و بالنسبة الى سوال الاخ ابو وحيد اعتقد انك بحاجة الى كود Docmd.cancelEvent Me.Undo وعلى بركة الله تحياتي لكم جميعا رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر نوفمبر 18, 2023 مشاركة قام بنشر نوفمبر 18, 2023 في 16/11/2023 at 20:30, gavan said: انا لدي جدول رئيسي و جدول فرعي يتم ملئه بواسطة استعلام الحاقي من الجدول الرئيسي الجدولين به 3 مفتاح اساسي وكلها ارقام في حل الاستاذ @دروب مبرمج هل لاحظت أن الجدول الثاني ليس به مفاتيح 1 رابط هذا التعليق شارك More sharing options...
شايب قام بنشر نوفمبر 18, 2023 مشاركة قام بنشر نوفمبر 18, 2023 20 ساعات مضت, gavan said: الاخ شايب والله شيبتني هههه بسم الله عليك 48 دقائق مضت, kkhalifa1960 said: في حل الاستاذ @دروب مبرمج هل لاحظت أن الجدول الثاني ليس به مفاتيح ههههه انا انتبهت من امس بس ماعلقت 😃 الشايب رابط هذا التعليق شارك More sharing options...
ابووحيد قام بنشر نوفمبر 19, 2023 مشاركة قام بنشر نوفمبر 19, 2023 اخى الكريم الاستاذ gavan اعتقد لابد من البحث اولا عن الرقم وفى حاله وجوده تظهر رساله بذلك ويتم رفض ادخل الرقم ويضع التركيز على الحقل لادخل غيره ولكنى لا اتسطيع كتابه الكود رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان