Foksh

اخي الكريم ما تم تعديله بسيط وهو :- 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% 🤗 وهنا سيكون كل سجل بمثابة يوم في الشهر وليس يوم في الأسبوع. حتى أن نتائج الإستعلامات ستكون أكثر دقة وسلاسة.

وعليكم السلام ورحمة الله وبركاته.. حاول اعمل "ضغط وإصلاح قاعدة البيانات"

وعليكم السلام ورحمة الله وبركاته اخي الكريم.. الحقل المحسوب A ، هل هو حقل محسوب في نفس جدوله ، أم من معادلة داخل الاستعلام مصدر بيانات النموذج الفرعي ؟؟ لا ضرر في إرفاقك ملف صغير كدعم للمساعدة 🤗

وعليكم السلام ورحمة الله وبركاته ،، أعتقد أن الفكرة تتمثل بخطوات بسيطة ، مثل :- 1. حساب Google Drive للمختبر ( على سبيل المثال لا الحصر ) . 2. ملفات التقارير Pdf ، ويتم رفعها على الموقع بشكل يدوي ( الفكرة المرجحة ) . 3. وجود نموذج يقوم بتحويل النص ( الرابط بعد رفع الملف ) الى QR ويتم حفظ الصورة باسم المربض او رقمه الطبي .... إلخ ، لتسهيل الوصول إليه لاحقاً . ومن ثم ارساله للمريض أو طباعته ( حسب الطريقة التي تراها مناسبة أو سياسة المختبر ) . هذا تصوري لكيفية عمل النظام .

تم تعديل الخطأ في مسميات الكود 😬

دون تحميل المرفق ، وحسب ما فهمت ، جرب هذا المديول :- public function foksh(class as string, gender as string, total_t as string) as string if class = "الأول" then if gender = "ذكر" then if total_t = "غ" then foksh = "منقول للصف الثاني" else foksh = "منقول للصف الثاني" end if elseif gender = "انثي" then if total_t = "غ" then foksh = "منقولة للصف الثاني" else foksh = "منقولة للصف الثاني" end if end if end if end function وفي الاستعلام انشىء حقل جديد واكتب فيه السطر التالي :- status: foksh([class], [gender], [total_t]) هذا تصوري للحقول والأسماء ، اذا كانت الأسماء غير ذالك فاستبدلها حسب اسماء الحقول لديك 🤗

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