Foksh

يا حبيبي انا عرفت ان كتلة الجسم تساوي الوزن بالكيلو مقسوم على مربع طول الجسم ، صحيح ؟ الآن حسب بياناتك في المثال أعلاه :- 130/(1.65*1.65) = 47.76 لنفترض ان w الوزن ، و t الطول BMI = الكتلة Dim BMI As Double Dim w As Double Dim t As Double w = Me.txtWeight.Value t = Me.txtHeight.Value If t <> 0 Then BMI = w / (t * t) Me.txtResult.Value = Format(BMI, "0.00") & " %" Else Me.txtResult.Value = "Invalid Height" End If جرب وخبرني بالنتيجة ، وأعتقد أن الأستاذ @Moosak اجاب عن السؤال ببساطة. اتابع من الجوال ولم اطلع على المرفق الذي ارسله الأستاذ موسى .

انا ما استوعبت فكرة النسبة المئوية هذه تعتمد على ماذا بالضبط !!!! 🤔 .

هههه انا قلت اعمل حاجة ولا محتاجة ولا اعمل أي شي 😂 وهي الفكرة كانت ان الشرح ما شاء الله طويل نوعاً ما 😅 هحاول أتفاهم معاها ، وعلى الله تيجي معانا 😅

اخي الكريم لم توضح أو تشرح اي معلومة مفيدة فيما يتعلق بالنسبة المئوية !!!! النسبة المئوية تعتمد على ماذا ؟؟؟؟؟؟؟؟ على العموم هذه فكرتي وجرب عدل كما يحلو لك kg.accdb

بسم الله ، ما شاء الله ، الله أكبر ، الله أكبر .. عيني عليك باردة يا معلم سؤال لولبي قد يخطر في ذهن الآخرين ، كيف يمكن استدعاء التفقيط في مربع نص داخل نموذج بعد ما قدرت أوصل للجزئية دي ن كنت محتاج أتعلم لغات هذه محاولتي المتواضعة في تعديل بسيط على هذه الدالة للتعرف على القيم السالبة كما طرحها الأستاذ @Moosak، وطبعاً ده بعد إذن البشمهندس @ابو جودي Function ConvertNumberToWords(number As Variant, Optional language As String = "ar") As String If Nz(number, "") = "" Or Len(number) = 0 Or number = Empty Then ConvertNumberToWords = "" Exit Function ElseIf IsNumeric(number) And number = 0 Then If language = "ar" Then ConvertNumberToWords = Chr(213) & Chr(221) & Chr(209) Else ConvertNumberToWords = "Zero" End If Exit Function ElseIf Not IsNumeric(number) Then If language = "ar" Then ConvertNumberToWords = Chr(222) & Chr(237) & Chr(227) & Chr(201) & Chr(32) & Chr(219) & Chr(237) & Chr(209) & Chr(32) & Chr(213) & Chr(199) & Chr(225) & Chr(205) & Chr(201) ' "قيمة غير صالحة" Else ConvertNumberToWords = "Invalid value" End If Exit Function End If Dim isNegative As Boolean isNegative = (number < 0) If isNegative Then number = Abs(number) End If Dim CurrencyUnits As Variant Dim CurrencySubUnits As Variant Dim PrefixText As String Dim SuffixText As String Dim currencyValues As Variant Dim NumberOfDecimalPlaces As Integer Dim isCurrencyFeminine As Boolean currencyValues = GetCurrencyValues(language) NumberOfDecimalPlaces = IIf(IsNumeric(currencyValues(11)), currencyValues(11), 2) isCurrencyFeminine = currencyValues(12) If language = "ar" Then CurrencyUnits = Array(currencyValues(0), currencyValues(1), currencyValues(2), currencyValues(3), currencyValues(4)) CurrencySubUnits = Array(currencyValues(5), currencyValues(6), currencyValues(7), currencyValues(8), isCurrencyFeminine) PrefixText = Chr(221) & Chr(222) & Chr(216) SuffixText = Chr(225) & Chr(199) & Chr(32) & Chr(219) & Chr(237) & Chr(209) Else CurrencyUnits = Array(currencyValues(0), currencyValues(1), currencyValues(2), currencyValues(3), currencyValues(4)) CurrencySubUnits = Array(currencyValues(5), currencyValues(6), currencyValues(7), currencyValues(8), currencyValues(9), isCurrencyFeminine) PrefixText = "Only" SuffixText = "No more" End If Dim fullNumber As Variant Dim integerPart As String Dim fractionalPart As String Dim integerWords As String Dim fractionalWords As String If IsNumeric(number) And number > 0 Then fullNumber = Split(IIf(InStr(number, ".") > 0, number, number & ".0"), ".") integerPart = IIf(Len(fullNumber(0)) > 21, Right(fullNumber(0), 21), fullNumber(0)) fractionalPart = Mid(fullNumber(1) & String(20, "0"), 1, NumberOfDecimalPlaces) integerWords = ConvertToWords(integerPart, CurrencyUnits, language) fractionalWords = ConvertToWords(fractionalPart, CurrencySubUnits, language) Dim ResultConvert As String ResultConvert = PrefixText & " " & integerWords & IIf(Len(integerWords) > 0 And Len(fractionalWords) > 0, IIf(language = "ar", Chr(32) & Chr(230), " and "), "") & fractionalWords & " " & SuffixText ResultConvert = Trim(Replace(ResultConvert, " ", " ")) If ResultConvert = Chr(221) & Chr(222) & Chr(216) & " " & Chr(225) & Chr(199) & Chr(32) & Chr(219) & Chr(237) & Chr(209) Then ResultConvert = "" If ResultConvert = "Only" & Space(1) & "No more" Then ResultConvert = "" If isNegative And language = "ar" Then ResultConvert = Chr(32) & Chr(211) & Chr(199) & Chr(225) & Chr(200) & " " & ResultConvert ElseIf isNegative And language <> "ar" Then ResultConvert = "Negative " & ResultConvert End If ConvertNumberToWords = ResultConvert Else ConvertNumberToWords = Chr(222) & Chr(237) & Chr(227) & Chr(201) & Chr(32) & Chr(219) & Chr(237) & Chr(209) & Chr(32) & Chr(213) & Chr(199) & Chr(225) & Chr(205) & Chr(201) End If End Function Convert currency numbers to words v 6.accdb

هي جمع ولا طرح جرب كده اذا كان طلبك ولا انا فهمت غلط tofee.accdb

علي النعمة الراجل ده بيتكلم صح ،، ما دام قال بالمصري يبقى بيتكلم صح 🤣😂

هل هو المطلوب ؟؟؟

أخي الكريم أهلاً وسهلاً بك معنا في عالمنا المتواضع .. وأهلاً بكل الأشقاء في السودان . بما أنك عضو جديد معنا - وهذا يسعدنا - دعني ألفت نظرك إلى قواعد المنتدى البسيطة والتي وضعت كي يحصل المنتسب على إجابة لطلبه بكل سهولة ويُسر . 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 🤗