Foksh

أخي الكريم أهلاً وسهلاً بك معنا في عالمنا المتواضع .. وأهلاً بكل الأشقاء في السودان . بما أنك عضو جديد معنا - وهذا يسعدنا - دعني ألفت نظرك إلى قواعد المنتدى البسيطة والتي وضعت كي يحصل المنتسب على إجابة لطلبه بكل سهولة ويُسر . 1. ارفاق ملف بسيط من قاعدة البيانات ( دون بيانات حقيقية في الجداول إن كانت خاصة أو سرية ) تضم المشكلة ؛ مع شرح وافي لها . 2. تجنب استخدام أسماء للحقول والعناصر والكائنات باللغة العربية لأنها تربكك وتربك الشخص الذي يحاول المساعدة ولما لها من أثر سلبي في كتابة الأكواد . 3. اذكر الله يذكرك على العموم بانتظار الملف المرفق للمحاولة

انقل الحدث من الزر الى بعد التحديث لمربع النص فقط ، وهنا تستغني عن الزر كاملاً اذا أردت . أو استدعاء حدث في حدث آخر .. db1.mdb

اخي الكريم ، انت جاوبت عن المشاركة قبل الأخيرة بمحاولتك بمنح الصلاحيات ,, وهذا جميل . أما موضوع انشاء المجلد داخل جوجل درايف فهو قيد التطوير ان شاء الله

وعليكم السلام ورحمة الله وبركاته .. ارسل ملف مرفق اخي الكريم

تفضل DDTest11.accdb

بناءً على كلامك ، ستكون النتيجة 100 (10+10+10) = 30 30/30 =1 1*100 =100 هل هذا صحيح ؟!؟!

اخي الكريم ما تم تعديله بسيط وهو :- 1. تم إضافة الحقل Odb_ItemCode في جدول النموذج الفرعي . كما هو موجود سابقاً في جدول النموذج الرئيسي. 2. تغيير حقل الربط الاساسي كما في الصورة في مشاركتي الاولى وجعله مشترك في الحقل Odb_ItemCode. * التعديل ليس من خلال أكواد VBA ، قارن بين ملفك وملفي وستلاحظ الفرق 😅 جرب اكتب كود المنتج واضغط انتر وسيتم انزال المكونات التي لها نفس Odb_ItemCode الذي تم إضافته.

الحل كان في هذا الملف هنا

انت حملت الملف ولا لأ ؟؟؟

أخي @waleed907 ، قم باستبدال مصدر بيانات مربع النص "محول للمالك" في التقرير الى :- =DSum("[mmoney]","sheb_edaa","[oprt] = 3 AND [هوية المالك] = " & [هوية المستثمر]) ليكون الشرط هو رقم هوية المالك في الجدول = مربع النص هوية المستثمر . وأنصحك نصيحة أخوية ( ابتعد عن المسميات العربية للحقول والعناصر والكائنات لأنها ستربكك في كتابة الأكواد والإستعلامات ...... إلخ ) .

تفضل التالي المجموع ، اما النسبة فهي حسب ماذا ؟؟DDTest1.accdb

وعليكم السلام ورحمة الله وبركاته.. انشىء مربعي نص غير منضمة في تذييل النموذج واجعل مصدر بيانات الأول :- =sum(iif([kind]=1, [totl], 0)) هذا لجمع المبالغ "نقداً" . وهذا لجمع المبالغ "بنك" :- =sum(iif([kind]=2, [totl], 0))

ما هو الذي لم ولا يعمل بشكل صحيح ؟؟

أهلا أخي الكريم @أمير ادم ،، اعتقد أنه يجب أن يكون لديك حقل لكود المادة الرئيسي ( كود المنتج Odb_ItemCode ) في الجدولين ، وعليه سيكون الربط بين النموذج الرئيسي والفرعي هو حقل كود المنتج . تابع الصورة TransBom.accdb

أخي الكريم @dr_bioman ، هل هذا ما كنت تبحث عنه العمل ما زال قيد التطوير

أعتذر منك أختي @hanan_ms ، بس صدقيني لو قلتلك ما فهمت مقصد كلامك

هحاول إن شاء الله ، مع العلم أن الحل اقترحه الأستاذ الفاضل @SEMO.Pa3x 🤗

واضح انك لم تقرأ بعناية 😉

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

ولو فيه ملف مرفق مبسط أكون مبسوط 😁😉 وكفكرة في رأسي ، 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 ، وطبعاً الفولدر فاضي ، وأما تطلع التحاليل نرفع النتيجة داخل الفولدر ده 😉 يبقى هنا هو معاه رابط الفولدر اللي بيضم جميع تحاليل السابقة واللاحقة فيما بعد. ده رأيي والله أعلم 🤗

انا استغربت كمان موضوع ان الكل ناجح ، وقلت يمكن انه النجاح إجباري ( هتنجح يعني هتنجح ) في الصف الأول وما فيش طالب بيسقط في أول صف

وعليكم السلام ورحمة الله وبركاته ،، جرب هذا التعديل أخي ، وأخبرني بالنتيجة سريعاً .. Private Sub أمر8_Click() Dim sql As DAO.Recordset Dim rsInvoice As DAO.Recordset Dim strAmount As String Dim Amount As Double Dim i As Integer Dim exists As Boolean Dim rsCheck As DAO.Recordset Dim strSQL As String Dim invoiceNumber As Long Dim invoiceDate As Date Dim totalInstallments As Integer Dim currentInstallmentDate As Date Set rsInvoice = CurrentDb.OpenRecordset("SELECT * FROM g1", dbOpenDynaset) Set sql = CurrentDb.OpenRecordset("G2", dbOpenDynaset) Do Until rsInvoice.EOF invoiceNumber = rsInvoice![G1_NO] invoiceDate = rsInvoice![G1_DATE] totalInstallments = rsInvoice![G1_NO_PAYMENTS] Amount = Round(rsInvoice![G1_AMOUNT] / totalInstallments, 2) strAmount = NoToTxt(Amount, "فلس", "دينار") For i = 0 To totalInstallments - 1 exists = False currentInstallmentDate = DateAdd("m", i, invoiceDate) strSQL = "SELECT * FROM G2 WHERE [G2_NO] = " & invoiceNumber & " AND [G2_DATE] = #" & Format(currentInstallmentDate, "yyyy-mm-dd") & "#" Set rsCheck = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset) If Not rsCheck.EOF Then exists = True End If rsCheck.close Set rsCheck = Nothing If Not exists Then With sql .AddNew ![G2_NO] = invoiceNumber ![G2_DATE] = currentInstallmentDate ![G2_INSTALMENT_AMOUNT] = Amount ![G2_AMOUNT_WORDS] = strAmount ![G2_INSTALMENT_STATUS] = "لم يتم الدفع" .Update End With End If Next i rsInvoice.MoveNext Loop sql.close Set sql = Nothing rsInvoice.close Set rsInvoice = Nothing End Sub

كلام سليم ومنطقي 100% 🤗 وهنا سيكون كل سجل بمثابة يوم في الشهر وليس يوم في الأسبوع. حتى أن نتائج الإستعلامات ستكون أكثر دقة وسلاسة.