اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Foksh

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2,794

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    103

 نوع المحتوي 

كل منشورات العضو Foksh

  1. Foksh
    وعليكم السلام ورحمة الله وبركاته ,, اخي الكريم انت استخدمت الدالة DLookup لجلب رقم المقترض ( على ما أعتقد ) بناءً على اسم الموظف في الكومبوبوكس ، هل هذا صحيح ؟؟ وبإمكانك بدلاً من ذلك استخدام نفس مصدر الكومبوبوكس com1 ولكن هنا سنختار العمود رقم 2 حيث :- ( العمود 0 = اسم الموظف ، والعمود 1 = الجهة ، والعمود 2 = رقم المقترض ) ، لذا تم استبدال الجملة التالية :- Me.n2 = DLookup("[num]", "karz", "nam LIKE '*" & Me.com1 & "*'") بالجملة :- Me.n2 = com1.Column(2) أيضاً تم إجراء تعديل بسيط على عدد الأعمدة في الكومبوبوكس com1 وعرض كل عمود ؛ كما في الصورة :- الملف بعد التعديل القرضة الحسنة اصدار 31.zip
  2. Foksh
    ومشاركة مع أستاذي الجليل @jjafferr Me.YourTextBox = UCase(Me.YourTextBox)
  3. Foksh
    وعليكم السلام ورحمة الله وبركاته .. ارفق ملف أخي الكريم ( وهذا مهم جداً ) ، وكمحاولة جرب التعديل البسيط التالي :- Me.n2 = DLookup("[num]", "karz", "nam LIKE '*" & Me.com1 & "*'") سيبحث التعديل السابق عن أي جزء من النص ، وبالتالي قد يكون أكثر دقة إذا كانت هناك تباينات في الكتابة أو أخطاء بسيطة في البيانات .
  4. Foksh
    تم الاطلاع مسبقاً اخي الكرم .. Cal error.accdb
  5. Foksh
    أخي الكريم مؤيداً لما تفضل به معلمينا ، و وجهة نظر أخرى .. فإذا كانت القيمة المطلوبة هي نتيجة قسمة حقلين مختلفين استناداً إلى شروط معينة ، يمكننا تعديل كودك بحيث يستخدم دالة DLookup للحصول على القيمتين ثم يقسمهما مباشرةً ، ومن ثم يقوم بتقريب الناتج وحفظه في الحقل المطلوب. جرب الكود التالي :- Private Sub Command7_Click() Dim value1 As Variant Dim value2 As Variant Dim result As Variant value1 = DLookup("result", "Table1", "[code] = 33") value2 = DLookup("result", "Table1", "[code] = 36") If Not IsNull(value1) And Not IsNull(value2) And value2 <> 0 Then result = Round(value1 / value2, 3) Me.C = result Else MsgBox "قيم غير صحيحة" End If End Sub جرب وأخبرنا بالنتيجة ..
  6. Foksh
    بسم الله ، ما شاء الله على الجمال والحركات الرهيبة .. إناء العسل لا يعطي طعم غير العسل ، وهذه نقطة من ابداعاتك مهندسنا الأستاذ @Moosak
  7. Foksh
    وعليكم السلام ورحمة الله وبركاته ،، جرب استخدام هذا الكود في محرر الأكواد VBA اضغط ( ctrl + G ) ، ثم اكتب السطر التالي :- CommandBars("Property Sheet").Enabled = True
  8. Foksh
    رحم الله والديك ، وجعل لهم من الجنات نصيبا .. عمل جميل أستاذنا @SEMO.Pa3x
  9. Foksh
    لا اعلم ما هي تسلسل الأحداث في مشروعك ، ولكن هذه الطريقة التي اعتمدها من زمااان ولم أواجه بها أي مشكلة ؛ كما وجدت أنها تغنيني عن أكواد أو دوال كثيرة قد لا يكون لها ضرورة
  10. Foksh
    وعليكم السلام ورحمة الله وبركاته ، من وجهة نظري قد يكون هناك أكثر من فكرة ! ولكن رأيت أفضلها ما يلي :- دالة تقوم بالبحث عن آخر رقم فاتورة ( مثل Dmax أو أكواد الـ VBA ) تعمل فقط بإنشاء رقم الفاتورة عند الضغط على زر الحفظ فقط !! وليس عند تحميل النموذج أو أي حدث آخر . بمعنى أوضح ، لنفترض انك قمت بفتح سجل فاتورة جديدة وتم إضافة الأصناف .... إلخ . وفي جهاز مستخدم آخر نفس الفكرة ، وكان رقم آخر فاتورة 99 ، أنت على جهازك على النقر على زر دفع فاتورة أو حفظ فاتورة ... إلخ سيتم انشاء رقم الفاتورة في مربع نص رقم الفاتورة قبل عملية الحفظ للفاتورة ( وهنا سنستغل البطئ اللحظي في الشبكة الداخلية على سبيل المثال ) لإنشاء رقم الفاتورة الجديد 100 . ✔ وللتجربة جرب انشاء فاتورة على جهازين مختلفين على الشبكة لديك ، وبنفس اللحظة 🕕 قم بالنقر على الزرين حفظ أو دفع للفاتورة ( بنفس الوقت ) ولاحظ ارقام الفاتورة بين السجلين
  11. Foksh
    اخي الكريم ، بدايةً أهلا وسهلاً بك معنا في عالمنا المتواضع .. هناك عدة نقاط يجب أن تنتبه لها كي تبدأ بداية طيبة وسليمة وصحيحة ، أساعدك في فهمها :- وجوب وجود حقل مفتاح أساسي وهنا تم التعديل على ملفك بانشاء جدول مستقل للمستخدمين ، وربطه بمفتاح UserID مع الجداول .. اذا كان الهدف هو تسجيل التعديلات لكل مستخدم ، فهنا سيكون لديك جدول لتسجيل رقم واسم المستخدم ليتم بعدها التفرع بالجدول الخاص بتسجيل الحركات . وهنا سيكون الحذف مقرون برقم الموظف كونه مفتاح أساسي . في التقرير ما الهدف من تحقيق المطلوب ان كان وظيفة التقرير هو عرض البيانات وتهيئتها للطباعة أو للمتابعة !!!! قم بتصويب الأمور بشكل صحيح وستجد ان مشكلتك تم حلها ببساطة .
  12. Foksh
    تأكد من أن خصائص المربعات النصية ان اتجاه النص أو المحاذاة لا تساوي "Distribute"
  13. Foksh
    وعليكم السلام ورحمة الله وبركاته ,, ارسل ملف مرفق يحتوي المشكلة للإطلاع عليه أخي الكريم
  14. Foksh
    أهلا يا دكتور ,, الله يسلمك ، و أشكرك يا غالي
  15. Foksh
    مشاركة مع ملف الأستاذ موسى ، جرب هذا التعديل البسيط تم عمل الموضوع بطريقتين ، الأولى زرين للتحديد والغاء التحديد للكل والثانية زر واحد فقط يقوم بالمهمتين دون الحاجة لزرين اثنين .. db1 (Moosak).mdb
  16. Foksh
    ما شاءالله ،، تبارك الله مهندسنا @ابو جودي ,, عمل رائع ومتكامل جداً وخفيف ، وشغل نظيف ومجهود يستحق الإحترام
  17. Foksh
    إن شاء الله لها حل ، قول يا رب 💖
  18. Foksh
    ليها حل إن شاء الله ، إن كان في العمر بقية ليوم غد سنحاول فك هذا الطلسم 😁
  19. Foksh
    بارك الله فيك مهندسنا الكبير ,, وجزاك الله خيراً على المجهود الرائع .. اعتذر عن التأخر في المتابعة ولكن لظرف قاهر ليس إلا ، كيث كنت أتابع من الجوال
  20. Foksh
    وعليكم السلام ورحمة الله وبركاته.. بسبب بعدي عن الكمبيوتر ، هذه مشاركة متصورة . مفترضاً ان لديك العناصر التالية:- 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 لم أقم بالتنفيذ على الملف المرفق لعدم وجودي عند الكمبيوتر 😅 .
  21. Foksh
    كلامك صحيح وسليم .. فقط سالب ستة ريالات والسبب هو أن كلمة فقط تأتي بعد العدد أو القيمة لتحديدها أو حصرها، أما سالب فهي صفة تصف العدد نفسه . لذا الترتيب الصحيح يكون فقط تأتي بعد العدد مباشرة 😅 هذا حسب فهمي في اللغة العربية
  22. Foksh
    اليس من المفترض ان لكل منتج مواده الخاصه به ؟ وعليه فإن افضل طريقة هي ربط كود المنتج بالمكونات ، أي وجود حقل كود المنتج في الجدولين والربط بينهم بواسطة هذا الكود . إلا إذا كانت الفكرة غير ذلك 🤔 . وهذا ما حاولت في مشاركتي الأولى فعله بإضافة حقل كود المنتج لجدول المكونات ، وبالتالي ربط النموذج الفرعي بالرئيسي من خلال كود المنتج .
  23. 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 اجاب عن السؤال ببساطة. اتابع من الجوال ولم اطلع على المرفق الذي ارسله الأستاذ موسى .
  24. Foksh
    انا ما استوعبت فكرة النسبة المئوية هذه تعتمد على ماذا بالضبط !!!! 🤔 .
  25. Foksh
    هههه انا قلت اعمل حاجة ولا محتاجة ولا اعمل أي شي 😂 وهي الفكرة كانت ان الشرح ما شاء الله طويل نوعاً ما 😅 هحاول أتفاهم معاها ، وعلى الله تيجي معانا 😅
×
×
  • اضف...

Important Information

  I accept