Foksh

بسم الله ، ما شاء الله على الجمال والحركات الرهيبة .. إناء العسل لا يعطي طعم غير العسل ، وهذه نقطة من ابداعاتك مهندسنا الأستاذ @Moosak

وعليكم السلام ورحمة الله وبركاته ،، جرب استخدام هذا الكود في محرر الأكواد VBA اضغط ( ctrl + G ) ، ثم اكتب السطر التالي :- CommandBars("Property Sheet").Enabled = True

رحم الله والديك ، وجعل لهم من الجنات نصيبا .. عمل جميل أستاذنا @SEMO.Pa3x

لا اعلم ما هي تسلسل الأحداث في مشروعك ، ولكن هذه الطريقة التي اعتمدها من زمااان ولم أواجه بها أي مشكلة ؛ كما وجدت أنها تغنيني عن أكواد أو دوال كثيرة قد لا يكون لها ضرورة

وعليكم السلام ورحمة الله وبركاته ، من وجهة نظري قد يكون هناك أكثر من فكرة ! ولكن رأيت أفضلها ما يلي :- دالة تقوم بالبحث عن آخر رقم فاتورة ( مثل Dmax أو أكواد الـ VBA ) تعمل فقط بإنشاء رقم الفاتورة عند الضغط على زر الحفظ فقط !! وليس عند تحميل النموذج أو أي حدث آخر . بمعنى أوضح ، لنفترض انك قمت بفتح سجل فاتورة جديدة وتم إضافة الأصناف .... إلخ . وفي جهاز مستخدم آخر نفس الفكرة ، وكان رقم آخر فاتورة 99 ، أنت على جهازك على النقر على زر دفع فاتورة أو حفظ فاتورة ... إلخ سيتم انشاء رقم الفاتورة في مربع نص رقم الفاتورة قبل عملية الحفظ للفاتورة ( وهنا سنستغل البطئ اللحظي في الشبكة الداخلية على سبيل المثال ) لإنشاء رقم الفاتورة الجديد 100 . ✔ وللتجربة جرب انشاء فاتورة على جهازين مختلفين على الشبكة لديك ، وبنفس اللحظة 🕕 قم بالنقر على الزرين حفظ أو دفع للفاتورة ( بنفس الوقت ) ولاحظ ارقام الفاتورة بين السجلين

اخي الكريم ، بدايةً أهلا وسهلاً بك معنا في عالمنا المتواضع .. هناك عدة نقاط يجب أن تنتبه لها كي تبدأ بداية طيبة وسليمة وصحيحة ، أساعدك في فهمها :- وجوب وجود حقل مفتاح أساسي وهنا تم التعديل على ملفك بانشاء جدول مستقل للمستخدمين ، وربطه بمفتاح UserID مع الجداول .. اذا كان الهدف هو تسجيل التعديلات لكل مستخدم ، فهنا سيكون لديك جدول لتسجيل رقم واسم المستخدم ليتم بعدها التفرع بالجدول الخاص بتسجيل الحركات . وهنا سيكون الحذف مقرون برقم الموظف كونه مفتاح أساسي . في التقرير ما الهدف من تحقيق المطلوب ان كان وظيفة التقرير هو عرض البيانات وتهيئتها للطباعة أو للمتابعة !!!! قم بتصويب الأمور بشكل صحيح وستجد ان مشكلتك تم حلها ببساطة .

تأكد من أن خصائص المربعات النصية ان اتجاه النص أو المحاذاة لا تساوي "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

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

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