Foksh

تأكد من أن خصائص المربعات النصية ان اتجاه النص أو المحاذاة لا تساوي "Distribute"

وعليكم السلام ورحمة الله وبركاته ,, ارسل ملف مرفق يحتوي المشكلة للإطلاع عليه أخي الكريم

أهلا يا دكتور ,, الله يسلمك ، و أشكرك يا غالي

مشاركة مع ملف الأستاذ موسى ، جرب هذا التعديل البسيط تم عمل الموضوع بطريقتين ، الأولى زرين للتحديد والغاء التحديد للكل والثانية زر واحد فقط يقوم بالمهمتين دون الحاجة لزرين اثنين .. db1 (Moosak).mdb

ما شاءالله ،، تبارك الله مهندسنا @ابو جودي ,, عمل رائع ومتكامل جداً وخفيف ، وشغل نظيف ومجهود يستحق الإحترام

إن شاء الله لها حل ، قول يا رب 💖

ليها حل إن شاء الله ، إن كان في العمر بقية ليوم غد سنحاول فك هذا الطلسم 😁

بارك الله فيك مهندسنا الكبير ,, وجزاك الله خيراً على المجهود الرائع .. اعتذر عن التأخر في المتابعة ولكن لظرف قاهر ليس إلا ، كيث كنت أتابع من الجوال

وعليكم السلام ورحمة الله وبركاته.. بسبب بعدي عن الكمبيوتر ، هذه مشاركة متصورة . مفترضاً ان لديك العناصر التالية:- 1. كومبوبوكس مكون من عامودين الأول ترقيم من 1 الى 12 ومقابلها اسماء الأشهر حسبما تريد وترغب . 2. مربع نص أو كومبوبوكس لكتابة السنة كمثال ( 2024 , 2025 , 2026 .... إلخ ) 3. مربعات نص عدد 31 ويتم تسميتها ترتيباً كما يلي ( txday1 ,txday2, txday3 .... txday31 ) . 4. زر لتنفيذ المطلوب يحتوي الكود التالي :- private sub btn_getdays_click() dim i as integer dim monthnumber as integer dim yearnumber as integer dim daydate as date dim totaldays as integer dim dayname as string dim txtcontrol as textbox if isnull(me.comboboxname) or isnull(me.txtyears) then msgbox "يرجى التأكد من اختيار الشهر أو السنة", , "" exit sub end if monthnumber = me.comboboxname.column(0) yearnumber = me.txtyears.value totaldays = day(dateserial(yearnumber, monthnumber + 1, 0)) for i = 1 to 31 set txtcontrol = me.controls("txday" & i) if i <= totaldays then daydate = dateserial(yearnumber, monthnumber, i) dayname = format(daydate, "dddd") txtcontrol.value = i & " / " & dayname else txtcontrol.value = null end if next i end sub لم أقم بالتنفيذ على الملف المرفق لعدم وجودي عند الكمبيوتر 😅 .

كلامك صحيح وسليم .. فقط سالب ستة ريالات والسبب هو أن كلمة فقط تأتي بعد العدد أو القيمة لتحديدها أو حصرها، أما سالب فهي صفة تصف العدد نفسه . لذا الترتيب الصحيح يكون فقط تأتي بعد العدد مباشرة 😅 هذا حسب فهمي في اللغة العربية

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

يا حبيبي انا عرفت ان كتلة الجسم تساوي الوزن بالكيلو مقسوم على مربع طول الجسم ، صحيح ؟ الآن حسب بياناتك في المثال أعلاه :- 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 هل هذا صحيح ؟!؟!