أخي الكريم أهلاً وسهلاً بك معنا في عالمنا المتواضع .. وأهلاً بكل الأشقاء في السودان .
بما أنك عضو جديد معنا - وهذا يسعدنا - دعني ألفت نظرك إلى قواعد المنتدى البسيطة والتي وضعت كي يحصل المنتسب على إجابة لطلبه بكل سهولة ويُسر .
1. ارفاق ملف بسيط من قاعدة البيانات ( دون بيانات حقيقية في الجداول إن كانت خاصة أو سرية ) تضم المشكلة ؛ مع شرح وافي لها .
2. تجنب استخدام أسماء للحقول والعناصر والكائنات باللغة العربية لأنها تربكك وتربك الشخص الذي يحاول المساعدة ولما لها من أثر سلبي في كتابة الأكواد .
3. اذكر الله يذكرك
على العموم بانتظار الملف المرفق للمحاولة
اخي الكريم ، انت جاوبت عن المشاركة قبل الأخيرة بمحاولتك بمنح الصلاحيات ,, وهذا جميل . أما موضوع انشاء المجلد داخل جوجل درايف فهو قيد التطوير ان شاء الله
اخي الكريم ما تم تعديله بسيط وهو :-
1. تم إضافة الحقل Odb_ItemCode في جدول النموذج الفرعي . كما هو موجود سابقاً في جدول النموذج الرئيسي.
2. تغيير حقل الربط الاساسي كما في الصورة في مشاركتي الاولى وجعله مشترك في الحقل Odb_ItemCode.
* التعديل ليس من خلال أكواد VBA ، قارن بين ملفك وملفي وستلاحظ الفرق 😅
جرب اكتب كود المنتج واضغط انتر وسيتم انزال المكونات التي لها نفس Odb_ItemCode الذي تم إضافته.
أخي @waleed907 ، قم باستبدال مصدر بيانات مربع النص "محول للمالك" في التقرير الى :-
=DSum("[mmoney]","sheb_edaa","[oprt] = 3 AND [هوية المالك] = " & [هوية المستثمر])
ليكون الشرط هو رقم هوية المالك في الجدول = مربع النص هوية المستثمر .
وأنصحك نصيحة أخوية ( ابتعد عن المسميات العربية للحقول والعناصر والكائنات لأنها ستربكك في كتابة الأكواد والإستعلامات ...... إلخ ) .
وعليكم السلام ورحمة الله وبركاته..
انشىء مربعي نص غير منضمة في تذييل النموذج واجعل مصدر بيانات الأول :-
=sum(iif([kind]=1, [totl], 0))
هذا لجمع المبالغ "نقداً" .
وهذا لجمع المبالغ "بنك" :-
=sum(iif([kind]=2, [totl], 0))
أهلا أخي الكريم @أمير ادم ،،
اعتقد أنه يجب أن يكون لديك حقل لكود المادة الرئيسي ( كود المنتج Odb_ItemCode ) في الجدولين ، وعليه سيكون الربط بين النموذج الرئيسي والفرعي هو حقل كود المنتج . تابع الصورة
TransBom.accdb
هناك العديد من المواضيع التي تحدثت عن هذا الطلب ، أو بدرجة كبيرة منه وتحتاج إعادة تعديل حسب متطلباتك ..
وهذا من أحد هذه المواضيع التي قد تغنيك ، والتي كنت قريباً منها في أحد محاولاتي ولكن دون وسيط 😉
هنا
ولو فيه ملف مرفق مبسط أكون مبسوط 😁😉
وكفكرة في رأسي ،
1. انشىء استعلام ومن خصائص الاستعلام على اليسار أو اليمين ( حسب لغة آكسيس ) ابحث عن خانة قيم فريدة - Unique Values ، واختر الحقل الذي تريد جلب بياناته الفريدة وهو حقل الإدارات في جدولك ، وسيتم جلبها دون تكرارات للقيم المكررة ، واحفظ الاستعلام بأي اسم تريد .
2. في مربع نص غير منضم ، اجعل مصدر بياناته:-
=DCount("*", "اسم_الاستعلام")
3. هذا استعلام افتراضي ( تخيلي ) :-
SELECT Count(*) AS عدد_الإدارات
FROM
(SELECT DISTINCT الادارة FROM اسم_الجدول) AS مميز_الإدارات;
على افتراض أن مربع نص الباسوورد اسمه txt_pass ، وأن العنصر chk_pass من نوع check box هو المسؤول عن إخفاء وإظهار الباسوورد ، اكتب الكود التالي :-
private sub chk_pass_afterupdate()
if me.chk_pass = true then
me.txt_pass.inputmask = ""
else
me.txt_pass.inputmask = "password"
end if
end sub
أما عن موضوع التصميم للنموذج فهذا يعود لك أخي @abouelhassan 🥰
اهااااا ، دي سهلة ،،
على سبيل المثال في جوجل درايف هنعمل فولدر برقم المريض في المختبر ،، ونديه للـ QR ، وطبعاً الفولدر فاضي ، وأما تطلع التحاليل نرفع النتيجة داخل الفولدر ده 😉
يبقى هنا هو معاه رابط الفولدر اللي بيضم جميع تحاليل السابقة واللاحقة فيما بعد.
ده رأيي والله أعلم 🤗