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

Moosak

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

  • Posts

    2211

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

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

  • Days Won

    56

 نوع المحتوي 

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

  1. Moosak
    شكرا لك عمي @ابوخليل 🙂 على هذا العطاء .. 🌹 شخصيا أنا أدعم وكذلك يعجبني التوجه الذي يقتضي استخدام نفس العنصر (نموذج/تقرير) بأكثر من طريقة ولأكثر من غرض بدل تصميم نموذج لكل حالة 🙂 وهذه واحدة من أروع الحيل لتحقيق ذلك .. 👍🙂 درة ثمينة تضاف للمكتبة العامرة 😊👌 جعلها الله شفيعة لك 😇🤲
  2. Moosak
    شكرا لك أخي محمد 🙂 للعلم تم إضافة تعديلات رائعة إضافية للأداة وسوف أقوم بطرحها في أقرب وقت إن شاء الله ..😉👌 إلى ذلك الوقت ممكن تحمل الاصدار الأخير من هنا 🙂 :
  3. Moosak
    التجربة الأولى ناجحة ولله الحمد 🙂 بس لما رجعت أجرب نفس الكود السابق حصلت على نفس النتيجة السابقة 😅 Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _ Long Private Const KEYEVENTF_KEYUP = &H2 ' Get the current state of the NumLock key Function GetNumLockKey() As Boolean GetNumLockKey = GetKeyState(vbKeyNumlock) End Function Sub SetNumLockKey(ByVal newState As Boolean) ' if the current state must be changed If CBool(GetKeyState(vbKeyNumlock)) <> newState Then ' programmatically press and release the NumLock key keybd_event vbKeyNumlock, 0, 0, 0 keybd_event vbKeyNumlock, 0, KEYEVENTF_KEYUP, 0 End If End Sub والنتيجة : '=================================================== ' API Code Converter for Dual Compatibility (32-bit & 64-bit) ' Developed By Foksh (Officena.Net) ' Generated on: 2025-06-10 17:43:10 ' Tool version: v1.3 '=================================================== Private Const KEYEVENTF_KEYUP = &H2 ' Get the current state of the NumLock key Function GetNumLockKey() As Boolean GetNumLockKey = GetKeyState(vbKeyNumlock) End Function Sub SetNumLockKey(ByVal newState As Boolean) ' if the current state must be changed If CBool(GetKeyState(vbKeyNumlock)) <> newState Then ' programmatically press and release the NumLock key keybd_event vbKeyNumlock, 0, 0, 0 keybd_event vbKeyNumlock, 0, KEYEVENTF_KEYUP, 0 End If End Sub #If VBA7 Then ' 64-bit declarations Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As LongPtr) Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _ Long #Else ' 32-bit declarations Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _ Long #End If الترتيب غير صحيح .. المفروض : الثوابت ثم -----> دالة ال API ثم -----> الدالة الفرعية
  4. Moosak
    شكرا لك عمي جعفر @jjafferr على الطرح المميز والأفكار الرائعة 😊🌹 في هذي النقطة وحسب ما هو ملاحظ في برامج الصور .. مساحة العمل على الصورة محددة ولها مكانها الخاص به .. ماتجي في الخلفية وخلف الأزرار والأدوات .. فلما يكون الصورة الملتقطة لها مكانها الخاص بيكون أفضل من وجهة نظري (وهو الحل الوسط) .. 🙂👌
  5. Moosak
    مزيد من المعلومات حول ""
    وعليك السلام ورحمة الله وبركاته أخي العزيز 🙂 كما ذكر لك أخي فادي @Foksh هذه هي الفكرة الأساسية من اللعبة أساسا .. أن تكون مركزا على أي زر تضغط .. وهذه هي روح المرح والمتعة في اللعبة .. أن تبقى الأزرار كما هي ولكن تختلف الأرقام التي تحملها .. مما يحفز مهارة التركيز لديك .. ويزيد الحماس بين المتنافسين .. 🙂 كمثال : للحصول على الرقم 6 ===(تضغط على الزر)==> 7 للحصول على الرقم 5 ===(تضغط على الزر)==> 2 ياريت لو ترفق صورة لهذا .. لم تمر علي ..
  6. Moosak
    إطلالة سريعة على هذا الموضوع قد تكون مفيده بدرجة كبيرة قد لا تتصورها : جدول بآيات القرآن الكريم كاملا.zip
  7. Moosak
    أنت اللي حاط الوقت .. تصرف !! 😂😅
  8. Moosak
    مزيد من المعلومات حول "📅📚🔥>> لعبة مطابقة الأرقام 2 :: لتنمية مهارة التركيز 😉👌 <<🧮🌟 :: الإصدار الثاني المطور 😎✌"

    Version 2.0.0

    7 تنزيل

    :: السلام عليكم ورحمة الله وبركاته 🙂 🖐🌷 :: عدنا إليكم بالإصدار المطور من اللعبة الجميلة 😊🎁 🧮📚>> لعبة مطابقة الأرقام 2.0 <<📚🧮 ملخص اللعبة هو : اللعبة تعطيك رقم عشوائي وكل ما عليك فعله هو إعادة كتابة الرقم من خلال لوحة الأزار التي أمامك أو من خلال أزرار الكيبورد في زمن محدد 😊🖐 .... أنتظر .. هذا ليس كل شيء .. !! 😉 ستخوض تحدي حقيقي هذه المرة خلال عبورك عشر مستويات من الإثارة والمتعة .. حيث أن في كل مستوى سوف يتم إعادة توزيع الأرقام في الأزرار بشكل عشوائي وكذلك عدد الأرقام يزداد والزمن المحدد يقل مما يزيد الإثارة في كل مستوى .. 😁👌 :: مميزات اللعبة والتحديثات الجديدة :: * يمكن اللعب بشكل فردي أو بشكل جماعي (أكثر من لاعب) * * مرحلة تدريبية قبل الشروع في المستوى الأول * * يمكن التنقل بين المستويات العشرة * * تصميم جميل وأنيق ولعبة شيقة تعينك على تمرين مهارة التركيز لديك * وهذه لقطات مختلفة من اللعبة : ::🌷 شكر وتقدير 🌷:: للأخالعزيز المهندس فادي @Foksh لتطويره اللعبة بالشكل الحالي وإضافة أفكاره النيرة ولمساته الرائعة 😊🌹 :: وختاما .. لا تنسونا من صالح دعواتكم 😊🤲::
  9. Moosak
    اعرض الملف 📅📚🔥>> لعبة مطابقة الأرقام 2 :: لتنمية مهارة التركيز 😉👌 <<🧮🌟 :: الإصدار الثاني المطور 😎✌ :: السلام عليكم ورحمة الله وبركاته 🙂 🖐🌷 :: عدنا إليكم بالإصدار المطور من اللعبة الجميلة 😊🎁 🧮📚>> لعبة مطابقة الأرقام 2.0 <<📚🧮 ملخص اللعبة هو : اللعبة تعطيك رقم عشوائي وكل ما عليك فعله هو إعادة كتابة الرقم من خلال لوحة الأزار التي أمامك أو من خلال أزرار الكيبورد في زمن محدد 😊🖐 .... أنتظر .. هذا ليس كل شيء .. !! 😉 ستخوض تحدي حقيقي هذه المرة خلال عبورك عشر مستويات من الإثارة والمتعة .. حيث أن في كل مستوى سوف يتم إعادة توزيع الأرقام في الأزرار بشكل عشوائي وكذلك عدد الأرقام يزداد والزمن المحدد يقل مما يزيد الإثارة في كل مستوى .. 😁👌 :: مميزات اللعبة والتحديثات الجديدة :: * يمكن اللعب بشكل فردي أو بشكل جماعي (أكثر من لاعب) * * مرحلة تدريبية قبل الشروع في المستوى الأول * * يمكن التنقل بين المستويات العشرة * * تصميم جميل وأنيق ولعبة شيقة تعينك على تمرين مهارة التركيز لديك * وهذه لقطات مختلفة من اللعبة : ::🌷 شكر وتقدير 🌷:: للأخالعزيز المهندس فادي @Foksh لتطويره اللعبة بالشكل الحالي وإضافة أفكاره النيرة ولمساته الرائعة 😊🌹 :: وختاما .. لا تنسونا من صالح دعواتكم 😊🤲:: صاحب الملف Moosak تمت الاضافه 06/04/25 الاقسام قسم الأكسيس  
  10. Moosak
    هي معموله علشان تتاخد ياباش مهندس 😅🖐
  11. Moosak
    فنان وبيعمل حاجات بتوع فنانين ربنا يديك العافية على الحركات الجميلة والأفكار الإبداعية .. قد أكون مش ملم بالموضوع دا فنيا وتقنيا لأني ماليش في الشبكات كثير !! .. 😅 بس هل زي مانا فهمت أنه يتم تخزين بيانات الاعتماد من خلال النموذج التالي ؟ .. يعني مش بيقراها الكود تلقائيا من إعدادات الويندوز ؟ أوعك تتريق عليه 👊
  12. Moosak
    الله الله على الفكر الإبداعي الجميل طبعا أنا خبرتي في مجال الألعاب محدودة .. لذلك كنت أفكر لو كانت اللعبة لها مراحل كيف شكل كل مرحلة بيكون ؟!! لكن صاحب الخبرة لما يتكلم ، علين أن ننصت بإمعان ✌ طبعا المهندس العزيز @Foksh قدم لي نسخة مطورة طبق فيها الأفكار اللي طرحها جزاه الله عنا كل خير 😊🌹🌷 .. وسيتم طرحها حالما تجهز .. 👍 وأنا سعيد جدا أن اللعبة لاقت استحسانكم .. ولله الحمد والفضل والشكر والمنّة . 🤲🌷 والشكر موصول لعمي العزيز @jjafferr 😊🌹
  13. Moosak
    عندي سؤال خاطف - ليش تحذف المتغير قبل تعيين قيمة جديدة له ؟ وسؤال آخر ؟ - لو خزنا آلاف السجلات في TempVars بيكون عندنا عدد كبير منها ومساحة لا بأس بها في الذاكرة .. ألن يؤثر هذا على الأداء ؟ 🙂
  14. Moosak
    جرب تعمل Compile وجرب مجددا .. وإذا انحلت معاك سأحدث الملف
  15. Moosak
    وعلى طاري صياد الأخطاء وأنا اكتب كود مرة بعد ما انتهيت تبادرت لذهني فكرة وسألت الذكاء الاصطناعي يعطيني جميع أرقام الأخطاء المحتملة للعملية اللي أشتغل عليها وصفلي في حدود 8 ال 9 أخطاء محتملة ما خطرت على بالي .. وريحني وكفاني من عناء التجارب .. 🙂👌 هذي العبارة ترد لي الشباب 😂✋🏻
  16. Moosak
    مزيد من المعلومات حول "🧮>> لعبة مطابقة الأرقام <<🧮 :: هدية خفيفة :: لتنمية مهارة التركيز 😉👌"

    Version 1.0.0

    16 تنزيل

    :: السلام عليكم ورحمة الله وبركاته 🙂 🖐🌷 :: اليوم جايب لكم هدية خفيفة وظريفة 😊🎁 🧮🧮>> لعبة مطابقة الأرقام <<🧮 وأنا جالس مع الأولاد قلت أعلمهم شوية أكسس وأحنا بنلطش فيه ( بنخبص فيه 😅) جات لنا فكرة هذي اللعبة وجلسنا نطور فيها أنا والأولاد بأفكارهم الجميلة وتنفيذي المتواضع 😊 لحد ما وصلنا للنتيجة هذي . وهذي صورة اللعبة : وكيفية اللعب : :: ولا تنسونا من صالح دعواتكم 😊🤲::
  17. Moosak
    اعرض الملف 🧮>> لعبة مطابقة الأرقام <<🧮 :: هدية خفيفة :: لتنمية مهارة التركيز 😉👌 :: السلام عليكم ورحمة الله وبركاته 🙂 🖐🌷 :: اليوم جايب لكم هدية خفيفة وظريفة 😊🎁 🧮🧮>> لعبة مطابقة الأرقام <<🧮 وأنا جالس مع الأولاد قلت أعلمهم شوية أكسس وأحنا بنلطش فيه ( بنخبص فيه 😅) جات لنا فكرة هذي اللعبة وجلسنا نطور فيها أنا والأولاد بأفكارهم الجميلة وتنفيذي المتواضع 😊 لحد ما وصلنا للنتيجة هذي . وهذي صورة اللعبة : وكيفية اللعب : :: ولا تنسونا من صالح دعواتكم 😊🤲:: صاحب الملف Moosak تمت الاضافه 05/30/25 الاقسام قسم الأكسيس  
  18. Moosak
    سلمت الأنامل ياصاحب اللمسات الذهبية 😊 بعد التعديل : المشكل الأول : المشكل الثاني (بعد إزالة الشرط السفلية يدويا) : وأعزوه إلى وجود دوال الAPI في الأسفل بدل وجودها في أعلى صفحة الموديول والله أعلم ، لأن المشكلة تختفي بعد رفعها في الأعلى
  19. Moosak
    التجربة الثانية : Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _ Long Private Const KEYEVENTF_KEYUP = &H2 ' Get the current state of the NumLock key Function GetNumLockKey() As Boolean GetNumLockKey = GetKeyState(vbKeyNumlock) End Function Sub SetNumLockKey(ByVal newState As Boolean) ' if the current state must be changed If CBool(GetKeyState(vbKeyNumlock)) <> newState Then ' programmatically press and release the NumLock key keybd_event vbKeyNumlock, 0, 0, 0 keybd_event vbKeyNumlock, 0, KEYEVENTF_KEYUP, 0 End If End Sub والناتج : '=================================================== ' API Code Converter for Dual Compatibility (32-bit & 64-bit) ' Developed By Foksh (Officena.Net) ' Generated on: 2025-05-29 09:11:57 ' Tool version: v1.2 '=================================================== Private Const KEYEVENTF_KEYUP = &H2 #If VBA7 And Win64 Then ' 64-bit declarations Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _ Long #Else ' 32-bit declarations Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _ Long #End If أولا : ما أضاف الدوال GetNumLockKey و SetNumLockKey في الناتج تماما ..! ثانيا : لا حظت أنه بعد نسخ الناتج يمسحه من النموذج (الأفضل أن يضل مكانه ) في ظل وجود الزر (مسح الحقول) :
  20. Moosak
    ماشاء الله عليك باش مهندس @Foksh 🙂🌹 اللي أجمل من التنفيذ هو الفكرة نفسها .. فتح الله عليك 😊 مبدأيا وأول تجربة للأداة .. شوف أنت واحكم بنفسك 😁: ' --------------------------<< المصدر >>---------------------- Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long ' --------------------------<< النــاتج >>---------------------- '=================================================== ' API Code Converter for Dual Compatibility (32-bit & 64-bit) ' Developed By Foksh (Officena.Net) ' Generated on: 2025-05-29 08:45:50 ' Tool version: v1.2 '=================================================== #If VBA7 And Win64 Then ' 64-bit declarations Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long #Else ' 32-bit declarations Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long #End If حاسس أنه ماشي تغير في دالة ال API أو فيه شي ناقص (PetrSafe) مثلا ؟؟!! 🤔 وللفائدة هذي مكتبات كبيرة لأكواد ال API ممكن تستفيد منها : https://binaryworld.net/Main/Api.aspx?L=3 http://vbnet.mvps.org/
  21. Moosak
    وعليكم السلام ورحمة الله وبركاته 🙂 خلاصة تجارب الخبراء .. هي كنوز لنا على طبق من ذهب 😊🌹 عندي ملاحظتين في بالي ( أفكار لا تزيد ولا تنقص من روعة الموضوع )😁 : 1- موضوع استخدام ال TempVars جميل جدا للسبب الذي ذكرته أنت (إفراغ الذاكرة عند حدوث خطأ ) ، ولكن كمجرد فضفضة .. موضوع استدعاء البيانات من الجداول مرة واحدة عند تشغيل البرنامج قد يؤثر على أنه لو تم تحديث البيانات بعد التشغيل فهذا لن يحدث البيانات التي في الذاكرة إلا إن تم تشغيل أكواد تخزين البيانات في حواصل المتغيرات مجددا ... وأضنك منتبه لهذه النقطة 🙂👌.. ويسترعي الانتباه أيضا إلى أنك حتى لو عملت لها تحديث بعد تغيير البيانات فإنها ستتحدث عندك في جهازك وقد لا تتحدث عند المستخدمين الآخرين الذين شغلوا أجهزتهم قبلك 😅🖐️ ... 2- روابط مواقع حفظ الملفات (Files Paths) عندما تكتب كاملة كما هي مع اسم القرص ( \:C أو \:D ) مثلا تجعل مواقع الملفات غير مقرؤة في حال تم نقل موقع المشروع .. لذلك يفضل أن يتم تخزين موقع هذه الملفات من قاعدة البيانات (سواء كانت تتبع ال FE أو ال BE ) والكود يكمل باقي الرابط بالمواقع المناسب .. مثال على ما أقصده لو كان الشعار في الرابط التالي : C:\Project Folder\Project BE\Images\LOGOs\CompanyLogo.PNG فأنت ستحتفظ في الجدول بالجزء البرتقالي فقط وتترك الباقي للبرنامج ليكمله .. وسلامتكم 🙂🌹
  22. Moosak
    طبعا طريقتي لا تختلف عن ما ذكره الإخوة المهندسين الأعزاء 🙂 ولكن لدي صورة للنموذج الذي أستخدمه لضبط هذه الإعدادات : والذي يستند بطبيعة الحال إلى جدول خاص بحفظ هذه البيانات يحتوي على سجل واحد فقط .. ومن ثم قمت يعمل موديول وبه عدة إجرائيات تقوم باختصار المسافة علي لاستدعاء هذه البيانات في أي مكان بالبرنامج .. مثال : Public Function AppSett_OrganizationName() As String ' اسم المؤسسة AppSett_OrganizationName = Nz(DLookup("OrganizationName", "[AppSettingesT]"), "") End Function Public Function AppSett_OrgBranch() As String ' الفرع AppSett_OrgBranch = Nz(DLookup("OrgBranch", "[AppSettingesT]"), "") End Function Public Function AppSett_Org_Adress() As String ' عنوان المؤسسة AppSett_Org_Adress = Nz(DLookup("Org_Adress", "[AppSettingesT]"), "") End Function Public Function AppSett_Show_Adress_In_Reports() As Boolean ' إظهار العنوان في التقارير AppSett_Show_Adress_In_Reports = Nz(DLookup("Show_Adress_In_Reports", "[AppSettingesT]"), 0) End Function Public Function AppSett_OrganizationLogoPath() As String ' رابط الشعار الأول AppSett_OrganizationLogoPath = Nz(DLookup("OrganizationLogoPath", "[AppSettingesT]"), "") End Function Public Function AppSett_OrganizationLogoPath2() As String ' رابط الشعار الثاني AppSett_OrganizationLogoPath2 = Nz(DLookup("[OrganizationLogoPath2]", "[AppSettingesT]"), "") End Function فلو أردت استدعاء رابط الشعار الأول في التقرير مثلا .. أعمل مربع صورة وأجعل مصدر بياناته كالتالي : = AppSett_OrganizationLogoPath() ولو بغيت أظهر عنوان المؤسسة في التقرير أعمل مربع نص وأخلي مصدر بياناته : = AppSett_Org_Adress() وسلامتكم 🙂🖐
  23. Moosak
    علشان فاضل ساعة على موعد الدوا بتاع الـ.................. 😂😂 أنتبهت لاحقا أنك ذاكرها بس مش حاطها من ضمن الأمثلة 😎✌ يا تحفة 😁👊
  24. Moosak
    أفكار لامعة أخي فادي @Foksh 😊👌🌷 .. لك أجمل تحية 😊🌹 ما أجمل هذي الأدوات اللي تسهل العمل وتضع الحلول الجذرية لأغلب المشاكل اللي تواجهنا .. ............ بصراحة أحاول أحشر نفسي في الموضوع لكن ما عندي شي أضيفة بعد ملاحظات فطاحلة الأكسس هنا 😅🖐 لذلك سألتزم المتابعة والاستفادة وجني الثمار بعد نضجها إن شاء الله 😄✌🌹🌟🌷
  25. Moosak
    ما شاء الله تبارك الله ... 😊🌹🌟 تحفة فنية نزين بيها المكتبة العامرة .. من واحد تحفة 😁👌🌷 الميزة هذي إنت ذاكرها من ضمن المميزات 😎☝
×
×
  • اضف...

Important Information

  I accept