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

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

  1. ابو ياسين المشولي

    • نقاط

      3

    • Posts

      1,746


  2. kanory

    kanory

    الخبراء


    • نقاط

      2

    • Posts

      2,189


  3. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      2

    • Posts

      8,723


  4. Elsayed Bn Gemy

    Elsayed Bn Gemy

    الخبراء


    • نقاط

      2

    • Posts

      1,162


Popular Content

Showing content with the highest reputation on 28 ينا, 2019 in all areas

  1. السلام عليكم ورحمة الله وبركاته كثيرا منا يحتاج الى عرض الصور فى مجلد محدد عن طريق الاكسس بحث عن طرق عدة وكل الطرق كانت مثل الصورة التالية والتى كانت لا تروقنى فقلت ارخم عليكم واعمل انا طريقة تانية لانى دى احد عيوبها نى لو عندى الف صورة هفضل اعمل اسكرول لحد ما اصل الى الف سجل وهو عدد المسارات الخاصة بالصور فقلت اعمل طريقة خاصة بينا احنا اوفيسنا مش عارف موجودة ولا لا اهو بالبركة وزيادة الخير خيرين زى طريقة عرض الصور فى الويندوز الية العمل كلها تكمن فى مصدر عنصر تحكم كل كائن من كائنات الصور -------------- بعد الضغط على زر تحديد المجلد ثم الضغط عزر الذهاب الى المجلد سيقوم البرنامج تلقائيا بجلب جميع مسارات الصور داخل البرنامج مع اعطاء كل مسار رقم وعن طريق هذا الرقم ساقوم باستدعاء كل صورة حيث عن المعادلة ( رقم السجل * 8 - 7 ) = 1 ( رقم السجل * 8 - 6 ) = 2 ( رقم السجل * 8 - 5 ) = 3 ةهكذا حيث رقم السجل هو الترقيم التلقائى لكل سجل الذى يعطيه البرنامج تلقائيا عند جلب المسارات فيديو للشرح المرفق Gallary.rar
    2 points
  2. السلام عليكم ورحمة الله أخواني الكرام وعلمائنا وأساتذتنا العباقرة في هذا الصرح العملاق والأكثر من رائع بعد إنتهاء ولله الحمد من برمجة برنامج شؤون الموظفين والمرتبات ونشره في الموقع منذ فترة وجيزة على هذا الرابط برنامج شؤون وإدارة الموظفين بحلته وشكله الجديد أحببت اليوم بعد طلبات من الاصدقاء أن أقوم برفع البرنامج مفتوح المصدر لكي تتم الفائدة منه في كافة النواحي العلمية والعملية وذلك من (خلال الكودات وطريقة التصميم) ماعليكم سوا فك الضغط عن الملف المرفق وتنصيب البرنامج بكل سهولة وفي الاخير تفعيل الماكرو يعمل البرنامج على كافة أنظمة ويندوز وكافة نسخ أوفيس من 2007 ومافوق لاتنسونا من الدعاء بظهر الغيب في هذه الايام المباركة الملف بامتداد zip هو الملف كاملا Office Soft.Employ & Salary-Source.zip Office Soft.Employ _ Salary-Source.rar
    1 point
  3. السلام عليكم زملائى جارى الان برمجة برنامج لكشف و اصلاح ملفات اكسيل المعطوبة و بإذن من الله سيكون اقوى من اى برنامج قد نكونوا قد جربتموه من قبل و سيشمل اصلاح كافة الاعطال التى قد تطرأ على ملفات XLSX و تمنعها من الفتح فى الايكسيل العمل يمر بمراحل سيتم اطلاعكم عليها اولا بأول ستسعدنى آراؤكم و مشوراتكم و نصائحكم يشرفنى ان اخبركم بأن العمل قد بدأ ببرنامج XLX Studio و بالعربى "اكس ال اكس ستوديو" سيكون ستوديو او معمل كامل للتعامل مع ملفات الاكسيل المعطوبة لتقف على ادق تفاصيل العطب و اقوى طرق العلاج مهما كان الخلل انتهيت من المرحلة الاولى و هى مرحلة الكشف و التشخيص مشاهدة ممتعة منتظر مقترحاتكم مع خالص تحياتى
    1 point
  4. بارك الله فيك استاذ سليم عمل رائع ولإثراء الموضوع هذا ملف بالمعادلات المصنف1.xlsm
    1 point
  5. جرب هذا الشيء الكود Option Explicit Sub transform_To_Table() With Salim Dim My_rg As Range Dim I%, R%, Col%, M%: M = 5 Dim ro%: ro = 5 Col = .[M2] .Range("e5").CurrentRegion.ClearContents R = .Cells(Rows.Count, 1).End(3).Row For I = 2 To Range("a2:a" & R).Rows.Count - 1 .Cells(ro, M) = .Range("a" & I) M = M + 1 If M > Col + 4 Then M = 5: ro = ro + 1 Next End With End Sub الملف مرفق My_table.xlsm
    1 point
  6. الحمد لله رب العالمين ......
    1 point
  7. جرب هذا الملف بعد اذن الاخ علي Split Text_salim.xlsm
    1 point
  8. ما شاء الله عليك المطلوب بالضبط فجزاك الله خيراً تحياتي
    1 point
  9. نزل الملف مشان نساعدك طلباتك سهلة لكن نظريا صعب
    1 point
  10. للاسف ما استخدم الماكرو كثير
    1 point
  11. قد يكون هذا طلبك .... تفضل Db1.rar
    1 point
  12. الله يسعدك شكرا لك استاذي ودائما ما نستغني عن خبراتكم اسف على الاطالة
    1 point
  13. بعد اذن اخي عبد اللطيف جرب هذا شوف المرفق 11حسابات الصندوق.accdb
    1 point
  14. الملف المضغوط فيه مشكلة ما فتح على كل اشرح لك الطريقة نظريا تقوم باخفاء الجدولين من الفورم -- خصائص مرئي لا ثم تدخل على الزر الاول بعد التحديث ...... وتكتب الكود التالي if me.***** = true then me. ******.visible = true end if السطر الاول يعود على اسم الزر الاول السطر الثاني يعود على اسم النموذج او التابع المخفي اتمنى تكو نالفكرة وصلت
    1 point
  15. جرب هذا On Error Resume Next If Screen.ActiveForm.Name Then Forms!frm1!txt = 1 DoCmd.Close acForm, "frm" End If If Screen.ActiveForm.Name Then Forms!frm2!txt = 1 DoCmd.Close acForm, "frm" End If
    1 point
  16. السلام عليكم حياك الله يا أستاذ @سعيد صوابيا منارة المنتدى هذه طريقة أخرى أضعها بين أيديكم البحث.rar
    1 point
×
×
  • اضف...

Important Information