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

نجوم المشاركات

  1. Ali Mohamed Ali

    Ali Mohamed Ali

    المشرفين السابقين


    • نقاط

      28

    • Posts

      11641


  2. Eng.Qassim

    Eng.Qassim

    الخبراء


    • نقاط

      6

    • Posts

      2384


  3. Moosak

    Moosak

    أوفيسنا


    • نقاط

      5

    • Posts

      2206


  4. omar elhosseini

    omar elhosseini

    المشرفين السابقين


    • نقاط

      4

    • Posts

      1950


Popular Content

Showing content with the highest reputation on 07/06/22 in all areas

  1. وعليكم السلا-فقط استخدم هذه المعادلة =COUNTIF($A$2:$A$150,">0") عد الخانات التي تحتوي على ارقام عدا التي تحتوي على صفر و الفراغ1.xlsx
    5 points
  2. وعليكم السلام أخي بلال 🙂 بعد العديد من المحاولات نجحت ولله الحمد Count Down Timer.accdb
    3 points
  3. برنامج توزيع الكتروني للطلاب حسب المجموع بما اننا على ابواب عام دراسي جديد .. كل عام وانتم بخير هذا البرنامج يفيد المدارس الفنية " زراعي _ صناعي _ تجاري _ فندقي _ مهني " وكذلك المدارس العامة . حيث يتم توزيع الطلاب على التخصصات المختلفة او الفصول حسب المجموع البرنامج مفتوح المصدر . وقابل للتعديل وكذلك الاضافة . وهو عمل خالص لوجه الله تعالى برنامج تنسيق مدارس.xlsb
    2 points
  4. 1 point
  5. تفضل اخي الكريم تم عمل فورم يعرض لك ما تريد حسب الاختيارات ولكن لم انتهي من البرمجة سنرى ان اعجبك بهذه الطريقة ان اعجبك نتابع الموضوع ....... تحياتي داتا-1.xlsm
    1 point
  6. الله وحده الكريم ... ان حصلت على اجابتك اخي ابو الحسن ...فضع افضل اجابة حتى يفهم الاخوة ان الموضوع قد انتهى تحياتي لك
    1 point
  7. بارك الله لك وكل عام وانتم بخير وصحة وسعادة تم تغيير الامتداد لتقليل الحجم وإعادة رفع الملف
    1 point
  8. يا استاذ عمر هذا امر مختلف عن الطلب الاساسي في الموضوع لذا الافضل عمل موضوع جديد وضع فيه مثال مصغر واشرح المشكلة لعلك تحصل على الحل المناسب مع الاحاطة بانه للحصول على نتائج فلترة ما بين تاريخين وعرض كافة النتائج بدون فلترة لا نحتاج الى دالة الشرط ولكن نستخدم Between و and وللحصول على كافة السجلات نضع معهما دالة nz وبدلا من الصفر نسند القيمة الخالية الى تاريخين مثلا من 1-1-1900 والاخر 1-1-2100 ولكن هذا موضوع اخر حسب ضوابط الموقع سؤال واحد في كل موضوع 11. ممنوع طرح أكثر من سؤال في موضوع واحد ليسهل البحث عن المواضيع لاحقا. تحياتي
    1 point
  9. الله يبارك فيك أخي بلال .. 🙂 بالنسبة للتاريخ فأموره سهلة وبسيطة .. لكن الوقت للأسف لم تعمل مايكروسوفت له نموذج منبثق لاختياره ففي جميع الأحوال يتم كتابته يدويا .. إلا إن تم عمل أزرار للزيادة أو النقصان أو قوائم منسدلة بدل الكتابة اليدوية مثل الويندوز .. وفي النهاية على حقول العداد جميعها أن تقرأ الوقت من حقل واحد أو أن تحصل على الوقت من مصدر واحد لكي تعمل مع بعضها .. ومن لديه فكرة تحسينية فلينورنا بها 🙂
    1 point
  10. نعم صحيح اخي ابو الحسن ..لان فلترة النموذج الرئيسي على اساس التاريخ من /الى وعلى اساس السنة المالية اما فلترة التقرير على اساس التاريخ من/الى ولهذا تظهر جميع القيود بين هذين التاريخ...وبصراحة انا لا افهم بالامور المالية وقلت في نفسي انك ربما وضعت السنة المالية 2020 على سبيل التجربة ولهذا لن تظهر بالنموذج وانما في التقرير...لاحظ هذين السجلين فهم لايظهرون بالنموذج رغم ان التاريخ 24/1/2022 هو ضمن تاريخ الفلترة لكن السنة المالية تختلف فهل السنة المالية للسجلين فيهما خطأ ام هو هكذا ؟ حتى اقوم بأضافة معيار السنة المالية للتقرير
    1 point
  11. اخي ما هو العمود الذي سيحدد اذا كان الصف فارغ ام لا املئ بعض الجداول بالبيانات لعمل اختبار لها
    1 point
  12. السلام عليكم تفضل اخوي عمر حسب طلبك استخدمت مربعي نص من اجل تحقيق الفكرة يمكنك التحكم بعرض الشريط يدويا مع مراعاة العرض داخل الكود Private Sub Form_Open(Cancel As Integer) Me.box2.Width = 6600 End Sub Private Sub Form_Timer() On Error Resume Next If Me.box2.Width = 0 Then Me.TimerInterval = 0 Else Me.box2.Width = Me.box2.Width - Me.box1.Width \ Me.lx End If End Sub Private Sub أمر3_Click() Me.box2.Width = 6600 Me.TimerInterval = 50 End Sub 88 _2.accdb
    1 point
  13. 1 point
  14. اخي قم بتسطير الهيكل الرئيسي لكل الاسئلة حتي تسهل الامر علي من يريد المساعدة من الاخوة خليك مظنش وانا كمان هطنش ...شاهد المرفق Test_1.xlsm
    1 point
  15. ايوه ... انزل شوية 5 مرات في الموقع دة ..هتلاقي ان الدالة تبعي تنفعك Between Date() And DateAdd("d";-6;Date())
    1 point
  16. وعليكم السلام ورحمة الله استاذ Jehad.93 ذكرت انك تريد الاستعلام بشروط معينة ولكن ملفك ينقصه شيء والله أعلم والله حاولت افهم الموضوع في اي خلية او خلايا نضع او نكتب الشرط وفي اي شيت حاول وضع بعض البيانات كما تريدها او تتصورها في التقرير وللاستعلام لابد من خلية او تيكستبوكس او كومبوبوكس اعد تصميم للملف واشرح ما تريد بلغة الاكسيل . مثلا اريد الاستعلام بشرط عند ادخال تاريخ او اسم او كود في الخلية b2 شيت data
    1 point
  17. إخوتي الفضلاء كانت لي مساهمة مع الاخ حسين العربي بخصوص مسار التطبيق وحماية التطبيق بقراءة هذا المسار بالكود ... http://www.officena.net/ib/index.php?showtopic=54485 وتطور النقاش لنصل لمحور حماية جديد يتمثل بالطريقة المعروفة بزراعة ملف في الجهاز وفي مكان محدد ، للبحث عنه وتفقده قبل تشغيل النظام وفي حال العثور عليه يتم تشغيل النظام ، وخلاف ذلك يتم اشعار المستخدم بوجود خطأ رئيسي يتمثل بخلل يتعلق بفقدان هذا الملف وبالتالي الخروج من التطبيق واشعرنا الاخ حسين بانه قد هدي لتطبيق الفكرة بفضل من الله وحيث انني كنت قد بدأت بالتطبيق لأجيب على تساؤله ، رأيت ان اعدل به قليلاً بفكرة راودتني تتمثل باخفاء ملف text في مكان ما من الجهاز وتحريك مسألة الحماية حول هذا الملف ( المخفي ) ، وفكرة الاخفاء تهمني لغايات ابعاد هذا الملف عن الايدي العابثة ، او الخطأ المتمثل بحذف الملف ، وتنحصر الامور هنا غالبا بما بقي من الاحتمالات القائمة لضرورة الحماية ، ومنها إجراء اعادة تنصيب لنظام التشغيل ( الويندوز - فورمات ) ، ومنها أيضا نقل التطبيق بدون علم المبرمج او مدير النظام لجهاز آخر ، وحيث ان المستخدم لا يعلم بشأن هذا الملف المخفى ، ولا يراه بالعادة ، فلن يقوم بنقله و التعامل معه وبالتالي يتوقف النظام عن العمل ، ويضطر المستخدم للرجوع لمدير النظام او المبرمج سيحمل المرفق ملف التطبيق و مجلد باسم AccTxt يحتوي على ملف مخفي باسم 123 يتم نسخ هذا المجلد او قصه ولصقه على القرص c في المجلد Program Files وبذلك يصبح مسار ملفنا المخفي هو C:\Program Files\AccTxt\123.txt وللحديث بقية ... ...........
    1 point
  18. السلام عليكم اخى ازهر معلش الاجابه متاخره هذه الرساله خاصه بصلاحيات الويندوز ويمكن حلها كالتالى ادخل ع C:\Program Files وقف ع الفولدر AccTxt كليك يمين وبروبيرتز ثم سكيورتى ثم ادفانسد ثم اتشينج بريميشن ثم قف ع اليوزر المستخدم للويندوز واضغط على زر ايديت ثم فعل اختيار Allow ثم اوك للاخر ثم جرب التطبيق ان شاء الله يعمل معك بالتوفيق ع ما اعتقد نعم ولكن اهل الذكر فى منتدى الاكسيل قم بنسخ رابط الموضوع وافتح موضوع جديد فى قسم الاكسيل بامكانيه تطبيق هذا العمل بالرابط التالى وضع الرابط على الاكسيل وان شاء الله اخوانا واساتذتنا فى قسم الاكسيل سوف يقوموا بمساعدتك ان شاء الله بالتوفيق
    1 point
  19. وعليكم السلام عليك بإستخدام خاصية البحث بالمنتدى فبه طلبك تعديل كود حذف الهمزة من الألف والنقطة من التاء المربوطة
    1 point
  20. شكرا على مجهودك استاذ @Moosak واثراء للموضوع ..كنت ابحث عن طريقة لعدم ظهور المسافات الفارغة ..وبطريق الصدفة عملت stacked للحقول ثم عملت removed layout فرأيت ان المسافات الفارغة اختفت ..هكذا طبعا يجب ان تعمم على بقية الحقول ..
    1 point
  21. شكرا عمي @Eng.Qassim معلومة استفدت منها شخصيا ☺️ وأنا طبقتها على الجزء الأيسر من التقرير ونجحت ولله الحمد .. والباقي عليك أخي @elghoultk 🙂 Access Database.zip
    1 point
  22. تفضل لا يمكن عمل أكثر من هذا .. وبكده يبقى لديك طريقتان لطلب يمكنك الإختيار منهما حتى يتم غلق الموضوع .طريقة للأستاذ محمد صالح وطريقتى هذه قائمة منسدلة1.xlsx
    1 point
  23. بارك الله فيك استاذ محمد وكل عام وانتم بخير
    1 point
  24. بعد ان الاستاذ ابراهيم وزيادة فى الخير تفضل الشيت لعله يفى بالغرض أفواج العطلة.xlsm
    1 point
  25. السلام عليكم ورحمة الله اليك الملف بعد التعديل بدلا من ذكر المعادلة فقط لادراجها بنفسك لاحتمال صعوبة تعاملك مع المعادلة المستخدمة و متغيراتها أفواج العطلة.xlsx
    1 point
  26. ممكن تجرب هذا ملف 1 & ملف 2.rar
    1 point
  27. السلام عليكم ..مرحبا بكى فى منتدانا الكريم ...ممكن تجربى هذا أستاذ البنوك.xlsx وهذا أيضا شيتات مجمعة لتعاملات البنوك -ونظراً لكبر حجم الملف فانه مرفوع على موقع خارجى : http://www.mediafire.com/file/c3ma5lofslorxr9/البنك.rar
    1 point
  28. وعليكم السلام ...هل هذا الملف الذى تريده الوارد_اولا_صادر_اولا_&الوارد_اولا_صادر_اخيرا.xls
    1 point
  29. مرحبا بك أخى العزيز فارس أنا لدى ملف به كود لوضع الصور كصور الموظفين ويمكنه أيضا وضع الشهادات واذا أردت الطباعة يقوم بطبعها بالتأكيد وهو يعمل كالأتى : بمجرد ادخال الصورة التى تريدها فى هذا الولدر المخصص للصور فى الملف المرسل اليك واعطائها رقما مثلا وعندما تذهب إلى شيت الإكسيل وتكتب هذا الرقم فى الخلية المخصصة لذلك وهى فى العمود A فأنه سوف يحضر الصورة لك هل أعتقد هذا يفيدك اظهار صورة الموظف في الخلايا بناء علي رقمه.rar
    1 point
  30. أعتذر أخى على التأخر تفضل لك ماتريد تجربة 1.xls
    1 point
  31. جرب أخى هذا تجربة 1.xls
    1 point
  32. تفضل هذا شرح بسيط للكود أتمنى أن يفيدك
    1 point
  33. جزاك الله كل خير أستاذ أحمد هو مجرد ما تكتب أى رقم فى عمود الوارد يزود على عمود الموجود فى نفس الصف وكذك بالنسبة لعمود الصادر بمجرد ما تكتب أى رقم ينقص من عمود الموجود لنفس الصف وشكراً
    1 point
  34. وعليكم السلام ولإثراء الموضوع ممكن تجرب ده مساعدة محتاج عمل شيت جمع وطرح من عمود واحد.xlsm
    1 point
  35. تفضل هذا الكود من أعمال أستاذنا الغالى ومعلمنا الكبير الأستاذ ياسر خليل جلب بيانات بين تاريخين.xls
    1 point
  36. أهلا بك فى منتدانا الكريم شرفت المنتدى ممكن تجرب هذا الرابط لعله يفيدك ويقدم لك المساعدة https://www.officena.net/ib/topic/82162-نقل-اسماء-من-الاكسل-الى-الهاتف/?tab=comments#comment-523373
    1 point
  37. تفضل أخى محمد لك ما تريد وأعتذر عن التأخر لكثرة انشغالى جلب بيانات بين تاريخين.xls
    1 point
  38. السلام عليكم أقدم لكم برنامج لإدارة المشتريات والمبيعات والمخازن لعله ينال إعجابكم برنامج لإدارة المشتريات والمبيعات والمخازن.xls
    1 point
  39. تفضل جرب هذا بالمعادلات TEXT.xlsx
    1 point
  40. ممكن تجرب هذان نموذجان للفاتورة لأساتذم كبار تصميم فاتورة11.xlsm فاااااااتورة خبورية 2.xls
    1 point
  41. السلام عليكم هناك مشكلة فى تحميل الملف ممكن ترسله تانى
    1 point
  42. عند تحميل النموذج الرئيسي تتم الاجراءات التالية إظهار الملف المخفي ، كي يتمكن التطبيق من البحث عنه HideUnhideFile "C:\Program Files\AccTxt\123.txt", True اذا كان الملف غير موجود سواء أكان السبب عدم وجوده أصلا أو تغيير اسمه او تغيير اسم المجلد تظهر رسالة بذلك ويتم اغلاق التطبيق If Len(Dir("C:\Program Files\AccTxt\123.txt")) = 0 Then MsgBox " التطبيق ضمن مسار غير مصرح به من مدير النظام" & vbNewLine & " أتصل بمدير النظام ", vbCritical, "خطأ في مسار النظام " DoCmd.Quit وحال وجوده يتم تشغيل النظام و إشعار المستخدم ( إن شئت ) بذلك يتم إعادة إخفاء الملف HideUnhideFile "C:\Program Files\AccTxt\123.txt", False
    1 point
  43. السلام عليكم هذه فكرة للتكملة التلقائية يمكن تطويرها او استعمالها في مجال البحث التكملة التلقائية.rar
    1 point
  44. نتابع .... أثناء عملي بالتطبيق ، ورغم محاولاتي الحثيثة من التخلص من هاجس " ماذا لو" الذي يستفزني دائماً لتطوير وتعقيد التطبيقات والاضافة عليها ، لم أتمكن من التخلص منه ، ودفعني نحو : ماذا لو أردنا التحكم بخيارات الطباعة بعد تحديد الطابعة لتقريرنا ؟؟ وهنا ننتقل لمنظومة أخرى " مرتبطة " بفكرتنا ، تمكننا من السيطرة على خيارات الطباعة من خلال الطابعة التي إخترناها لتقريرنا. وهذه نرى فيها رأينا ، فإما أن نستمر بها في موضوعنا هذا أو ننتقل بها لموضوع جديد. هذا التطبيق يمكن الإستفادة منه في أي تطبيق ، كل ما عليك هو إستيراد النموذج frmSetPrinter والله من وراء القصد ... وهو حسبي ........... NA_ReportPrenter.rar
    1 point
×
×
  • اضف...

Important Information