اذهب الي المحتوي
أوفيسنا

Moosak

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2164

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

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

  • Days Won

    55

 نوع المحتوي 

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

  1. Moosak
    دكتورنا @الحلبي .. هذه العملية التي وضحتها لك تعملها فقط لو أنت مستخدم في برنامجك هذا النوع من الأكواد .. وإذا كنت مستخدمنها وموجودة في برنامجك فعلا .. إبحث في أكواد البرنامج عن الكلمة Declare .. وطبق على تلك الدوال نفس الشرح اللي وضحته لك سابقا .. 🙂
  2. Moosak
    وعليكم السلام ورحمة الله وبركاته .. 🙂 يمكنك تنفيذها عن طريق استعلام تجميعي .. ثم تقوم بتحويله لنموذج فرعي في النموذج الرئيسي : ملاحظة مهمة : - وجدت أنك سميت الحقول بأسماء محجوزة للأكسس ( Date - Name ) فبدلتها إلى ( MyDate - MyName ) .. 🖐🏻 Database4.accdb
  3. Moosak
    دكتور @الحلبي سأحاول تبسيط المسألة لك بأبسط شرح ممكن أن تحصل عليه 🙂 * لكي يعمل عندك البرنامج على النواتين في نفس الوقت ... في الأغلب أنت ستحتاج تغيير نوع محدد من الأكواد .. وهي الأكواد التي تأتي كلمة ......... Declare ............. في سياقها .. لكي يعمل الكود على النواة 32 يكتب الكود هكذا : .....................................Private Declare Function ولكي يعمل الكود على النواة 64 يتم إضافة كلمة واحدة وهي ptrsafe بعد كلمة Declare فيصبح الكود هكذا : ................................... Private Declare ptrsafe Function ولكي تجمع بين هذين الخيارين من أجل أن يعمل البرنامج على الأجهزة المختلفة مهما كانت النواة يتم كتابتهما معا هكذا : #If VBA7 And Win64 Then 'For :64 Private Declare PtrSafe Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long #Else 'For :32 Private Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long #End If وهذا هو مختصر المختصر 🙂
  4. Moosak
    أنت مبدع يا باش مهندس @ابو جودي 😀👌 وأنا طبعا ما قدمت إلا لمسات بسيطة والجهد كله من إبداعاتك يا فنان 😎🌹 ربنا يوفقك ويبارك فيك 👐🏻
  5. Moosak
    للعلم تم عمل تحديثات جديدة للواجهة : قمت بتطوير النموذج ليحمل أزرار فرعية وأزرار فرعية من الفرعية بناءا على طلب بعض الإخوة 🙂 كما تم إضافة خاصية إمكانية فتح الماكرو للأزرار .. وكذلك مع إمكانية فتح النماذج والتقارير في وضع التكبير Maximize .. وهذه صورة للوحة التحكم : ملاحظة : تم تحديث رابط التحميل في المشاركة الأولى 🙂
  6. Moosak
    تفضل أخي قمت بتطوير النموذج ليحمل أزرار فرعية وأزرار فرعية من الفرعية 🙂 وهذه لوحة التحكم : ملاحظة : تم تحديث رابط التحميل في أول مشاركة 🙂
  7. Moosak
    وعليكم السلام ورحمة الله وبركاته .. 🙂 الأفضل أن ترفق ملفك يابو الحسن علشان يتأكد الإخوة أنه حيضبط على ملفك صح ..
  8. Moosak
    فيه عندك حاجة اسمها الإرتساء الأفقي والإرتساء الرأسي .. ممكن تتحكم فيه بموقع العنصر ( يمين - يسار - كلاهما ) والإرتساء الرأسي ( للأعلى - للأسفل - كلاهما ) هذا ينطبق على جميع العناصر في النموذج .. جرب تضبطها بنفسك 🙂 النتيجة : ( ويمكنك نقل الأيقونات أيضا إلى اليسار ) 🙂 Modern Main Page With Main Menu ENGLISH.rar
  9. Moosak
    أنظر هنا : 🙂
  10. Moosak
    لله درك يا أبو جودي 🙂 إحنا ما لحقنا نفهم الأكود السابقة إلا ونلقاك غيرت التشكيلة الداخلية 😂🖐🏻 نحتاج سنة ثانية علشان نستوعب الصدمة الجديدة .. 👊🏻 فن وروعة وإبداع ما يكفوش لوصف هذي التحفة الفنية الفريدة 😊 بس باقي حتة ملاحظات صغننين وإن شاء الله تكون الأخيرة 😅✋🏻: في عندنا شح في (الواوات) هنا 😁 مثلا هذي في تفقيط الرقم : ألف (و) واحد .. ألفان (و) واحد محتاجة مسافة ==> عمانيبيسة ==> ومحتاجة واو بينهم الفواصل => صفر و صفر (و) واحد. معلش إستحملنا اليومين دول ( دا احنا واقفين لك وحنطلع عينك يا راجل ) أمااااااااااااااااااااااال 😂
  11. Moosak
    أسأ الله العظيم رب العرش العظيم أن يمن بالرحمة والغفران على جميع موتاكم وموتى المسلمين وأن يلبسكم ووالديكم وذويكم لباس الصحة والعافية.. يا الله يا رب العالمين 🙂👐🏻 أحسنت وأبدعت وأتقنت باش مهندس عمر .. موضوع جميل ويفتح بوابة لآفاق أوسع ما كنا نحسبها ممكنة في السابق .. 😊 فعلا العالم يتغير 😉👌🏻
  12. Moosak
    أخي @Foksh بقيت لدينا هذي النقطة بعد .. إذا لقيت لها حل 😊☝️🏻
  13. Moosak
    هذا ما توصلت إليه ولله الحمد ☺️ بعد الكثير من المحاولات وفك الطلاسم ( المحمد عصامية 😅) قمت بعمل التعديلات التالية : 1 - تفقيط القيم السالبة ( بالإشتراك مع الأخ العزيز @Foksh ) مع تعديل موضع كلمة "سالب" لتكون بعد كلمة "فقط". 2- ظهور كلمة صفر مكان القيم الصفرية. 3 - وهو التعديل الأكبر : إضافة متغير اختياري من نوع (True/False) في نهاية الدالة لإظهار الجملة "فقط ....... ريال عماني لاغير" أم لا ... بمعنى أنك هل تريد تحويل الأرقام فقط من غير العملة 😎 هذه هي صيغة الدالة بعد التعديل : ConvertNumberToWords(Number , language , ShowExtras ) Number = الرقم المراد تحويله إلى نص language = اللغة ("AR" / "En") ShowExtras = إظهار الإضافات (True / False) وبذلك أصبح استدعاء الدالة بهذه الأشكال (أنظر للنتيجة) : (1) ConvertNumberToWords(23.5,"Ar") فقط ثلاثة وعشرون ريالًا عمانيًا وخمسمائة بيسة لا غير ConvertNumberToWords(23.5,"En") Only twenty-three Omani Rials and five hundred Baisas No more (2) ConvertNumberToWords(23.5,"Ar",False) ثلاثة وعشرون فاصل خمسة ConvertNumberToWords(23.5,"En",False) twenty-three point five كل التعديلات تمت على نهج المهندس الكبير @ابو جودي بحيث لم يتم استخدام الحروف العربية في الكود ووو ... وهذه لقطة من الاستعلام لمعاينة الناتج النهائي 🙂 وهذا هو الملف المعدل : Convert currency numbers to words v 6(Moosak).accdb ملاحظة مهمة : واجهتني عدة مشكلات وتغلبت عليها بفضل الله ، ولكن بقيت مشكلة واحدة ما عرفت كيف أتصرف معها 😅 عند تحويل الأرقام إلى نصوص بدون ذكر العملة جعلته يتعامل مع الأرقام بعد الفاصل بكليتها بغض النظر عن طول السلسلة الرقمية ، مثال : ولكن المشكلة التي واجهتني هي عندما يكون هناك أصفار بعد الفاصل ، فبعد تحويلها لأرقام يتم تجاهل الأصفار التي على يسار الرقم هكذا: وهذا السؤال متروك حله لأهل الخبرة ؟؟؟
  14. Moosak
    تم حل هذه النقاط الثلاثة بنسبة 95% وباقي 5% وبدأت أشعر فعليا بعظيم الجهد اللي تم على هذي الأكواد والشغل الجبار وحسيت بمعاناة سيد المعلمين @ابو جودي 😅🖐🏻️ وشايف فيه أخطاء مع الخانات العشرية وجار العمل على إصلاحها .. وقد لاحظت أن النتيجة في بعض الأحيان تختلف في الاستعلام عن النتيجة عند تجربتها مباشرة في VBA .. وهذا تحدي لحاله.
  15. Moosak
    إذا تكون سبعة ريالات عمانية فقط لا غير أو سالب عشرون ريالا عمانيا فقط لا غير
  16. Moosak
    لو كنت أعلم لفعلت 😅 ولكن لا علم لي 🙂✋🏻
  17. Moosak
    باش مهندس فادي .. أقترح أن تكون كلمة "سالب" بعد كلمة فقط وليس قبلها .. هكذا : فقط سالب ستة ريالات …… بدلا من : سالب فقط سبعة ريالات… وأهل النحو أدرى 😁✋🏻
  18. Moosak
    أساس المشكلة عندك أخي أبو الحسن أنك تعمل على نسخة أكسس قديمة .. ( من 2007 فما قبل ) لذلك لن تعمل معك بعض المميزات المستخدمة في نموذج الرسائل .. أنا نقلت لك جميع العناصر على نسخة أحدث وأشتغلت تمام التمام .. 🙂 فإذا لم تعمل معك فعليك بإعادة النظر في تحديث نسخة الأكسس التي لديك .. DATA14.accdb
  19. Moosak
    تسألنا أم تخبرنا ؟ أهلا بك في عالم أوفيسنا أخي عامر .. شرفت وآنست 🙂🌹 الأفضل أنك ترفق ملفك أخي عامر وتوضح المطلوب بالشرح الكافي والوافي 🙂
  20. Moosak
    أرفق الملف هنا أخي @abouelhassan أبو الحسن 🙂
  21. Moosak
    أخي أبو الحسن ، أضن أن أفضل حل هو أن ترفق ملفك 🙂 أرفقه في هذا الموضوع :
  22. Moosak
    تعديل بسيط على نموذج العم فادي 🙂 : kg.accdb
  23. Moosak
    أنا متأكد أنك أنت من بين الناس كلها اللي تعرف تمام المعرفة كيف يتم أستدعائها ... لكنك تريد تعليم الناس الغلابة حالاتي .. مع أنه الباش مهندس ذكر الطريقة لما كان بيشرح الإجرائيات (الدوال) .. وهذي صورة توضيحية : والاستعلام اللي في الملف هو نموذج حي لطريقة استخدام الدوال ، وينطبق تماما على النماذج والتقارير والماكرو ووووو .. أنت لها يا وحش 💪🏻 .. لله درك .. وفاضل لنا أستخدام أكثر من عملة في نفس الوقت + تحويل الأرقام لنصوص بدون الفقط واللاغير واسماء العملات وبكده هينبسط عمنا @ابو جودي والدنيا هتحلو
  24. Moosak
    جربت ألطش وأضفت هذا السطر فانحلت مشكلة الصفر الرقمية 😎
  25. Moosak
    الله الله على العظمة ، والجمال ، والإبداع ، والتميز ، والشمولية ، والطفرة الجينية اللامتناهية في الروعة بصراحة لله درك يا عبقري .. ياجنون الإبداع 🖐🏻️ بسم الله .. ما شاء الله .. ما شاء الله .. صلاة النبي عليك .. الواحد يقف إجلالا واحتراما لك وتقديرا على هذي الهبة الربانية ☺️✋🏻 شكرا لك على هذي التحفة الجميلة الرائعة ، وأجمل قطعة فنية تحل ضيفة عزيزة على مكتبتنا العامرة .. 😇🌹 -------------------------------------------------------------------------- والحقيقة أن الأفكار في هذا الموضوع كثيرة ولا تنتهي 😅🖐🏻️ ومنها : 1 - عندنا جدول tblCurrencyInfo مليء بالعملات ، فممكن نستفيد من هذا الموضوع ونخلي الدالة تقرأ أكثر من عملة في نفس النموذج مثلا ، وذلك بإضافتها كمتغير للوظيفة ConvertNumberToWords لأن في بعض البلدان يتم التعامل مع أكثر من عملة في نفس الوقت . 2 - أحيانا نحتاج لتحويل الأرقام لحروف لغير العملات كمثال ( للعمر - للتواريخ - رقم المراجع في طابور الانتظار - رقم الصفحة - ......... الخ ) فممكن نعمل دالة إضافية Function لتحويل الأرقام بدون التفقيط واسماء العملات . -------------------------------------------------------------------------- لا تزال هناك ملاحظات الهدف منها التحسين والتطوير ، مش عشان نزهقك 😂🖐🏻️: 1 - القيم السالبة لايتم تفقيطها ! ، والمفروض أن يكتب أمامها كلمة " سالب .... كذا وكذا " وهي مهمة جدا في الحسابات المالية . 2- الصفر في الحقول الرقمية لا ترجع الدالة بكلمة "صفر" بل تعود فارغة . -------------------------------------------------------------------------- إحنا بصراحة شفقانين عليك من التعب يا حبيب الملايين @ابو جودي ، بس طمعانين في خبراتك والحلاوة الجاهزة ومن ناحية ثانية ( خايفين نبوظ التحفة الجميلة هذي ) 😂👌 كفاية عليه ساعتين وأنا بقرأ الأكواد علشان أفهمها بس 😂 -------------------------------------------------------------------------- وأخيرا وليس آخرا : أسأل الله العظيم أن يرضى عنك وعن والديك وأن يسكنك معهما ومن تحب في أعالي الجنان 🤲🏻😊🌷🌹
×
×
  • اضف...

Important Information

  I accept