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

Foksh

الخبراء
  • Posts

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

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

  • Days Won

    211

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

  1. تم الإنتهاء من ضبط جميع خصائص لعبة الشبكة ، وإتمام حل مشكلة الإتصال للـ Host من أي جهاز دون الحاجة لربط قاعدة بيانات اللعبة بقاعدة بيانات الجداول في كل مرة 😈 . حيث كانت المشكلة الرئيسية هي أن جميع الأجهزة ستتصل بقاعدة بيانات خلفية واحدة ؛ ولكن ماذا لو كان هذا الجهاز غير متاح في هذه اللحظة !!!!!!! وبفضل الله تم الحل بنجاح وإيجاد حل لهذه المشكلة . وهذا تجسيد للعب 4 لاعبين .
  2. وعليكم السلام ورحمة الله وبركاته .. على ما يبدو إصدار الملف هو مايكروسوفت 97 ، صحيح ؟؟ من خلال أداتي القيد العمل والتطوير .. كانت النتيجة عندي :- والبرامج كثيرة التي يمكن أن تساعد في استخراج كلمة المرور من الهاش الخاص بالملف . وبحكم أنه ليس لدي إصدار قديم من أوفيس .. سأضطر لسؤال مشرفي المنتدى عن ما إذا كانت إجابتي ستعتبر مخالفة أم لا . وبعدها سأرفق لك كلمة المرور ما لم تكن مخالفة . مع العلم أن مكونات الملف المرفق تقريباً 109 جدول ، و استعلامين اثنين فقط ، صحيح ؟؟
  3. ما شاء الله أخي @منتصر الانسي .. فعلاً التفكير خارج الصندوق يلعب دوراً مهماً في الإنتاج أبدعت ما شاء الله ..
  4. انا فقط قمت بإضافة PtrSafe إلى جميع الوظائف والدوال في المديولين .. الخطأ الأول عند تحميل النموذج :- pb.ImageControl = Me.Image0 بعد فتح النموذج وتجاهل الخطأ السابق ، يظهر الخطأ التالي عند الزر :- Private Sub Command30_Click() pb.DIBFlipHorizontal End Sub وهكذا في جميع الأزرار التي تستدعي pb. انا شرحت المشكلة التي قد تواجه بعض المستخدمين الذي قاموا بتحميل الملف والعمل على بيئة 64 وليس 32 . فالملف يعمل بشكل سليم على أوفيس 32
  5. وعليكم السلام ورحمة الله وبركاته .. واجهتني مشكلة بخصوص الملف A2KPictureBoxVer35 وهو أنه لم يعمل على الإصدار 64 للأسف 🙂 .. وظهر عندي الخطأ التالي عند تحميل النموذج ، بعد تعديل التوافق بإضافة Ptrsafe كتجربة ..
  6. إحدى الإضافات التي قمت بإضافتها على اللعبة .. إتاحة إمكانية اللعب ضد 3 لاعبين كمبيوتر أو انت وصديقك وكمبيوتر أو كمبيوترين ... إلخ وسيتم طرح النسخة التي تمت عليها التحديثات السابقة ، قريباً إن شاء الله ..
  7. وعليكم السلام ورحمة الله وبركاته أخي الكريم .. نرجو منك تعديل العنوان بحيث يكون ذو صلة مثل "فلترة البيانات حسب المادة" أيضاً شرح المطلوب شرحاً كافياً و وافياً .
  8. هذا الذي كنت أقصده .. بعد تحميلي للملف المرفق قرأت السطر بشرط واحد فقط .. ولا أعتقد أنني كنت غافلاً 😅 لا عليك ، قد تكون الأمور اختلطت على ذهني وتسرعت 😜
  9. بالنسبة للمطلوب الأول ، اعتقد أنه من خلال الاستعلام نسطيع تعديل الشرط ليصبح الإستعلام :- SELECT tblMyTable.*, [ActivityMount]-[ActivityDel] AS ActivitySafi FROM tblMyTable WHERE (((tblMyTable.EmpNo)<=[حدد عدد السجلات المطلوبة ، إذا لم التحدد فسيتم عرض جميع السجلات])) OR ((([حدد عدد السجلات المطلوبة ، إذا لم التحدد فسيتم عرض جميع السجلات]) Is Null)); جربه أولاً ومن ثم انتقل الى المطلوب الثاني ، المطلب الثاني أمره يسير .. حيث في الدالة SbEndLines في المديول .. يوجد الشرط :- ElseIf (CountTot Mod MyRec) = 0 Then فقط عدله ليصبح :- ElseIf (CountTot Mod MyRec) = 0 And CountTot < TotGrp Then
  10. فيديو تجسيد لفكرة اللعب على الشبكة المحلية :- طبعاً الفكرة قيد التطوير لإيجاد بدائل لموضوع الربط والجداول في القاعدة الخلفية للجداول ..
  11. 🤦🏻‍♂️ في العجلة الندامة فعلاً .. عدم تغيير والتنقل في السجلات عند تحريك العجلة !!!! وكان قد تبادر لذهني هو فعلاً أن المطلوب = التنقل بين السجلات في عجلة الماوس . لأن الماوس فعلاً لا يتنقل عندي بالعجلة 😅
  12. سؤال حتى تتوضح الفكرة عندي بشكل أكبر .. من هاتين العبارتين فهمت أن العجلة تعمل على التنقل بين السجلات بشكل تلقائي في اوفيس 2007 وما فوق ، هل هذا صحيح فعلاً ؟؟ أنا عندي اوفيس 2019 ولم تنجح الفكرة دون أي تدخل برمجي.
  13. ما شاء الله ، تبارك الرحمن .. عمل جميل وخفيف ويقوم بمهام خدمية لهذه الفئة التي فعلاً قد تحتاج إليه .. والتطويرات القادمة يبدو أنها جميلة ومفيدة .. ننتظرها بفارغ الصبر
  14. شكراً لك مرورك العطر هذا بعض ما عندكم 😇 من إنجازات وأعمال قيمة .. موضوع الترميش هو نفس الدالة التي طرحتها سابقاً في هذا الموضوع هنا .. والحركة تم بنائها لتتوافق مع دالة الترميش والحمد لله ..
  15. وعليكم السلام ورحمة الله وبركاته .. يمكن تحقيق ذلك باستخدام حدث MouseWheel في النموذج ، كمثال :- If Not Me.Dirty Then If (count < 0) And (Me.CurrentRecord > 1) Then DoCmd.GoToRecord , , acPrevious ElseIf (count > 0) And (Me.CurrentRecord <= Me.Recordset.RecordCount) Then DoCmd.GoToRecord , , acNext End If End If جربه وأخبرنا بالنتيجة ..
  16. يسعدني مرورك أولاً أخي الكريم .. وأسعدني أكثر أنها نالت إعجابك ... وسيتم التحديث عليها لدعم اللعب الجماعي من خلال شبكة ، أو من خلال الإنترنت فيما بعد 😁
  17. في الواقع ، لم أفهم علاقة التقرير بالنموذج 😅
  18. بالنسبة للطلب الأول والذي سيبنى عليه الطلب الثاني .. جرب الفكرة المرفقة بالنقر على الزر Show/Hide &Fields 1.zip
×
×
  • اضف...

Important Information