mr steev

السلام عليكم الرجاء من الأخوة عباقرة البرمجة في الأكسس إعطاء الحل لهذه المسألة: لدي قاعدة بيانات لمتابعة قطيع الأبقار أريد استنتاج (تقرير مراقبة إنتاج الحليب الموسمي) بالاعتماد على عدة إدخالات للبيانات الواردة كما يلي: قاعدة البيانات مرفقة في الأسفل وفيها نموذج (الحليب اليومي) وفيه تتم عملية إدخال الحليب يومياً لجميع الأبقار ويتم التعرف على رقم البقرة والموسم من خلال رقم الولادة (الإدرار) والمطلوب تقرير نفرز فيه مجموع الحليب لكل شهر على حدى مع إعطاء الوسطي الشهري لإنتاج الحليب كما يوجد صورة بالمرفق عبارة عن مثال تقريبي لما أريد:. وهنا شرح للمعادلة المطلوبة لكل حقل في المثال الصورة : الحقل (م) أريد رقم مسلسل يبدأ من 1 وينتهي بعدد السجلات الواردة. الحقل (من) أريد تاريخ الإدرار ثم تواريخ بداية الأشهر التالية التي قمنا بإدخال الحليب فيها بنموذج الحليب اليومي لنفس رقم الولادة(الإدرار) إلى حين أن نعتمد (تاريخ بداية الشهر الذي يتم فيه التجفيف). الحقل (إلى) أريد تاريخ نهاية الشهر الذي تم فيه الإدرار ثم تواريخ نهاية الأشهر التالية (التي قمنا بإدخال الحليب فيها إلى آخر تاريخ قمنا بإدخاله بنموذج الحليب اليومي) والإنهاء عند تاريخ التجفيف عند الوصول إليه أو بعده في نموذج الحليب اليومي <لنفس رقم الولادة(الإدرار)> الحقل (الفاصل الزمني) = ((إلى) – (من)) + 1 الحقل (متوسط الحليب) = (كمية الإنتاج) بين التاريخين / (الفاصل الزمني) . الحقل (كمية الإنتاج) = مجموع الحليب بين التاريخين . الحقل (عدد الأيام) = الرقم الأول في الفاصل الزمني ومن ثم جمع حقول الفاصل الزمني على التوالي. الحقل (مجموع الإنتاج) = الرقم الأول في كمية الإنتاج ومن ثم جمع حقول كمية الإنتاج على التوالي. والمقصود بـ (على التوالي) على سبيل المثال: الفاصل الزمني عدد الأيام 21 --------------- 21+0=21 28 --------------- 28+21=50 --------------- (21) هو الرقم السابق 31 --------------- 31+50=81 --------------- (50) هو الرقم السابق وهكذا : : : والخلاصة: أريد متابعة استنتاج مجموع الحليب لكل شهر على حدى مع إعطاء الوسطي الشهري لإنتاج الحليب وهذا بالنسبة إلى التقرير الفرعي أما الأساسي يحوي: بيانات الأبقار (رقم البقرة, الموسم) المتابعة الموسمية (تاريخ الإدرار, الإخصاب اللاحق, تاريخ التجفيف, مدة الإدرار، الحليب 100 يــــوم : أي كمية الحليب في الـ 100 يوم الأولى من موسم الإنتاج \أريدها تلقائياً\ , الحليب 305 يــــوم : أي كمية الحليب في الـ 305 يوم الأولى من موسم الإنتاج \أريدها تلقائياً\ , إنتاج الحليب الـكـلي : مجموع كمية الحليب بين تاريخ الإدرار [Actual] وتاريخ التجفيف [Dryness] وذلك من خلال الكميات والتواريخ المدخلة في نموذج الحليب اليومي لرقم الولادة(الإدرار) نفسه.. مدة الإدرار : عدد الأيام بين تاريخ الإدرار [Actual] وتاريخ التجفيف [Dryness] ) مع جزيل الشكر لكل من يساهم بالمساعدة db1.rar

هل من طريق؟

هو لضرورة التنسيق ليس إلا، وإعطاء الجمالية في العرض لا أقل ولا أكثر فإن كان لا يمكن نبقيه كما هو وسأرسل لك ما هو لدي للتوضيح يمكنك المقارنة بين النموذجين جديد بعد التعديل السادس.rar

هل من أحد بساعدنا؟؟

وفي حال كان المربع النص تحرير وسرد فما الحل في ذلك يرجى مراجعة المرفق Medial Align 2.rar

في قاعاة البيانات المرفقة وفي النموذج الموجود كيف يمكننا محاذاة النص بحيث يتم توسيطه بين الجزئين العلوي والسفلي من الحقل A Medial Align.rar

جزاه الله عنا خيرا بارك الله بكم جميعاً

جزاك الله خيرا اظن ان الطريقة في الحل ليست عملية هل هناك من حل آخر؟

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

من يساعدنا؟؟

السلام عليكم لو فرضنا أنه لدينا قاعدة البيانات المرفقة وأريد منع التراجع عند اختيار صح أو إزالة صح في مربع خانة الاختيار للحقل a أي لايمكن التراجع بعد اختيار الخانة صح أو إزالة الصح Undo False.rar

هل من مجيب؟؟؟

السلام عليكم كيف يمكن إلغاء خيار التراجع بعد ادخال البيانات في أي حقل في النموذج وإلغاء الزر العلوي الموجود في برنامج أكسس وإلغاء خيار ctrl+z وجزاكم الله خير

السلام عليكم في قاعدة البيانات المرفقة المطلوب عندما تكون قيمة الحقل A تساوي 1 فيصبح لون الخط للحقول B , C , D في نفس السجل أحمر أما إذا كانت قيمة الحقل A تساوي 2 فيصبح لون الخط للحقول B , C , D في نفس السجل أزرق وجزاكم الله خيرا Conditional Continuous Forms.rar

ما رأيكم في هذا الحل :: (Private Sub A_Exit(Cancel As Integer Me.Refresh If Me.A <> 0 And (DCount("*", "tbl1", "[A]= form![A]") + DCount("*", "tbl2", "[A]= form![A]")) > 1 Then "هذا السجل مكرر" MsgBox Cancel = True Me.A = "" End If End Sub

جزاك الله خيرا أعتقد ان هناك خطأ في الحل

توضيح للسيد أسير الشروق لدي جدولين tbl1 , tbl2 فيهما نفس الحقل المطلوب أنه إذا أدخلنا قيمة رقم 1 في الجدول الاول لا يقبل إدخالها في الجدول الثاني أي لا أريد للأرقام الموجودة في جدول 1 أن تتطابق مع الأرقام الموجود في جدول 2 وجزاك الله خيرا

السلام عليكم لدي في قاعدة البيانات المرفقة جدولين tbl1 و tbl2 : المطلوب في frm2 عند إدخال قيمة في الحقل A التحقق من عدم تكرار قيمة حقل A في الجدولين معاً No Duplicates.rar

أحسن الله إليكم جميعا وجزاكم الله خيرأ سنعتمد حل الأستاذ رمهان جزاه الله خيراً إلى لقاء آخر في مواضيع جديدة ان شاء الله DMax function two table.rar

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

السلام عليكم في قاعدة البيانات المرفقة : أريد التعديل على الكود التالي في زر أمر ترقيم عند النقر المزدوج : Private Sub Cmd0_DblClick(Cancel As Integer) BornNo = Nz(DMax("[EarNo]", "AnimalsRecords" Or "BornsRecords", "[CowNo]= form![CowNo] and [Season]=form![Season]"), 0) + 1 End Sub وذلك ليقوم الكود بجعل قيمة الحقل BornNo تساوي (أعلى رقم في الحقل EarNo من الجدولين AnimalsRecords و BornsRecords) مضاف إليه 1 أو افادتنا بطريقة أخرى برمجيا لتنفيذ الأمر وجزاكم الله خيراً DMax function two table.rar

جزيت خيراً

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

جزاك الله خير نضع نفس كود دالة DCount السابق عند التراجع في النموذج هل هناك فجوات أخرى؟؟؟؟ شاكرين لك حس التعاون No Duplicates OK.rar

أعطاك الله عافية لا سقم بعدها سيد رمهان لقد قمت لك بتعطيل مفتاح سكيب esc فخذ مني هذا الحل وأعطيني فجوة أخرى وهذا من فضل ربي جزاك الله خيراً No Duplicates OK.rar