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

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

  1. Ali Mohamed Ali

    Ali Mohamed Ali

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


    • نقاط

      27

    • Posts

      11643


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

    • نقاط

      5

    • Posts

      1755


  3. essam rabea

    essam rabea

    الخبراء


    • نقاط

      5

    • Posts

      634


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

    سليم حاصبيا

    أوفيسنا


    • نقاط

      4

    • Posts

      8723


Popular Content

Showing content with the highest reputation on 08/06/19 in مشاركات

  1. تفضل لك ما طلبت نسب العلاوة.xls
    2 points
  2. الصفحة salim من هذا الملف compaire.xlsx
    2 points
  3. السلام عليكم ورحمة الله وبركاتة هذا مثال يتم من خلاله ربط الجداول برمجيا بدون تدخل من المستخدم عند فتح قاعدة الواجهات kaser906 يتم ربط الجداول بقاعدة جداول kaser906_be والقاعدة الثانية kasr9062 وكلتا القاعدتين مغفلتين برقم سري 1234 ضع المجلد في أي مكان او غير أسم المجلد وفتح قاعدة بيانات الواجهات kaser906 ستجد أن ربط الجداول تم بدون تدخل منك ::بالتوفيق للجميع :: TablLinkind.rar
    1 point
  4. مبروك أستاذ محمد سلامة إنضمامك لعائلة الخبراء ,أسأل الله لك التوفيق والنجاح دائما ..وأعانك الله على هذه المسئولية الجديدة وسدد الله خطاك عن حق وجدارة بارك الله فيك وزادك الله من فضله
    1 point
  5. Dim queryName As String Dim fileName As String queryName = "إسم الإستعلام" fileName = Application.CurrentProject.Path & "\" & "إسم ملف الإكسيل" & ".xlsx" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, _ queryName, fileName, True
    1 point
  6. ابوعبدالله_1972 جرب هذا الكود عسى أن يفى بالمطلوب Dim queryName As String Dim fileName As String queryName = "sales" fileName = Application.CurrentProject.Path & "\" & queryName & ".xlsx" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, _ queryName, fileName, True
    1 point
  7. يمكنك تجربة هذا الملف Hide_sheets.xlsm
    1 point
  8. وهو كذلك استاذي @ابو ياسين المشولي الان اقوم بجيهز الملف
    1 point
  9. لو ترفع ملف يسهل عليك وعلى الاعضاء
    1 point
  10. العفو اخي الشربيني123 وكل سنه وانت بالف خير
    1 point
  11. اخى الفاضل / qathi شاهد هذه المشاركة وهى بعنوان النسبة المئوية فى التقرير لقد قمت بنشرها بدل اقتباسها عن طرييق الخطأ لربما تجد فيها مبتغاك
    1 point
  12. السلام عليكم تستطيع فتح ملف pdf في مستعرض الويب من خلال الكود التالي: Me.WebBrowser4.Navigate "C:\OneDayJavaTrip.pdf" بحيث WebBrowser4 هو اسم الأداة و "C:\OneDayJavaTrip.pdf" هو مسار ملف pdf
    1 point
  13. وعليكم السلام وذلك بعمل هايبر لينك بين الملفات للربط بينهم
    1 point
  14. لان قوائم التشغيل المنسدلة أسهل للمستخدم بعكس الإصدارات الأخرى تكون منفصلة
    1 point
  15. 1 point
  16. السلام عليكم آسف أخي ابو آمنة لأنني لم أدخل للمنتدى منذ يومين أو ثلاثة نعم يمكن حل مشكلتك بالطريقة التي أشار إليها الأخ أبو عارف فهي تكفيك عناء الذهاب للوورد لكني سوف أعطيك حلا بالطريقة التي تريدها أنت لتصبح لديك طريقتين و أنت إختار ما تشاء. لقد قمت بالتعديل على الملف ليقوم بإخراج ملف pdf لكل شخص و برقمه الوظيفي و يضعها في مجلد واحد اسمه ملف الشهادات طبعا عن طريق المرور بالوورد و يكون شكل الشهادة هكذا: export to word.rar
    1 point
  17. تفضل -عن طريق عمل تنسيق لهذا العمود كما بالصورة 1.xlsx
    1 point
  18. أخى ابوعبدالله_1972 ما هو الكود الذى تستخدمه للتحويل الى إكسيل وماذا تحول هل تحول تقرير أم إستعلام وماهو إصدار نسخة الأوفيس لديك .. 2003 - 2007 - 2010 - 2016 - 2019 ؟
    1 point
  19. وعليكم السلام-تفضل لك ما طلبت Map12.xlsm
    1 point
  20. http://arabteam2000-forum.com/index.php?/topic/245890-نقاش-نعم-لاكسس-2003-ولا-لاكسس-2007-لماذا/ نقاش ممتع
    1 point
  21. أخى الفاضل حربي العنزي هل هذا هو المطلوب؟ Prog121.rar
    1 point
  22. شكرا أستاذى @ابو عارف شكراً أستاذى @ابو ياسين المشولي
    1 point
  23. لا اخي الفاضل الكود ميه في الميه انت ادخل كل التواريخ في الجدول
    1 point
  24. انا محتاج حد بس يكسر لي كلمة السر اولا انا عندي برنامج استرجاع
    1 point
  25. الأمر في غاية البساطة كليك يمين على عمود الأرقام مثلا ثم اختيار Format Cells ثم اختيار Number ثم Ok كما بالصورة
    1 point
  26. بارك الله فيك وجزاك الله خير الثواب
    1 point
  27. أتمنى أن ينال اعجابك واذا ما أعجبتك الطريقة انتظر فزعة الأجاويد Database1.accdb
    1 point
  28. استكمالا هذه بعض المصطلحات المحجوزة من الكلمات المحجوزة: ADD - ALL - AND - BETWEEN - Count - CurrentUser - DATABASE - DATE - FROM - GROUP - INDEX - Level - Macro - Module - NAME - NUMBER - PRIMARY - Query - Refresh - Report - TABLE - Time - USER - Year - YES - YESNO.
    1 point
  29. وعليكم السلام اخى الكريم فقد تم عرض هذه المشاركة ومناقشتها من قبل على هذا الرابط https://www.officena.net/ib/topic/54296-حساب-مرتب-عنوان-معدل/ حساب الراتب الحالى للموظفين.xlsx
    1 point
  30. بارك الله فيك استاذ مجدى وزادك الله من فضله
    1 point
  31. 1 point
  32. السلام عليكم طالما انك لم تقم برفع ملف فيمكنك رؤية هذا الرابط ففيه ما تطلب https://www.officena.net/ib/topic/91345-سؤال-بخصوص-النسخ-واللصق-؟/
    1 point
  33. احسنت أستاذ عبد اللطيف بارك الله فيك
    1 point
  34. بارك الله فيكم جميعا كلها حلول ممتازة
    1 point
  35. وعليكم السلام -بعد اذن الأستاذ مصطفى ولإثراء الموضوع 1ملف العملاء.xlsx
    1 point
  36. احسنت أستاذ سليم كود ممتاز بارك الله فيك
    1 point
  37. أحسنت أستاذ سليم كود رائع جعله الله في ميزان حسناتك أخى الكريم dodo لا يمكنك التعلم الا اذا استجبت لكل هذه النصائح من اساتذتنا الكبار أمثال الأستاذ الكبير سليم حاصبيا له منا كل المحبة والإحترام
    1 point
  38. السلام عليكم, في السابق كنت استخدم خطوط معينة في برامجي وعند اعطاء البرنامج للعميل لاتظهر الخطوط التي قمت باستخدامها بل يظهر بمكانها الخط ( Arial ) وهذه مُشكلة. كت في وقتها الجأ الى ان اضع الخط بجانب قاعدة البيانات وفي داخل قاعدة البيانات اقوم بعمل تحقق لمجلد Fonts والبحث عن الخط في بداية تشغيل القاعدة, فإن لم يجده يعي رسالة للعميل بان الط مفقود وعليه ان يقوم بتثبيته من جانب البرنامج. بحثت طويلاً في الانترنت عن تثبيت خط من الاكسس فقط بدون مساعدة عامل خارجي ولكن لم اصل لنتيجة. اليوم بحمد الله قمت بحل المشكلة بإستخدام ( Visual .NET ) قمت بكتابة اداة بسيطة وظيفتها تثبيت الخط. يتم تمرير براميتر لها وهي بدورها ستقوم بتثبيته الدوال المستخدمة: AddFontResource CreateScalableFontResource ShellExecuteA للمزيد من المعلومات ، اضغط على اسم الدالة ارفقت لكم المصادر من MSDN شرح بسيط لمن لم يعرف ماذا اقصد بتثبيت الخط واستخدام الخط وانه لن يظهر في حال كان العميل لا يملكه. قمت بارفاق قاعدة بيانات لكم كـ مثال للشرح مع الخط المستخدم مع الاداة. شرح الاستعمال: يجب ان تكون الاداة ( SEMO_RegisterFont.exe ) هي والخط الذي سوف تستخدمه بجانب قاعدة البيانات. افتح برنامجك وضع فيه هذا الاجراء. Sub RegisterFont(nFont) Dim strExe As String Dim strArg As String strExe = CurrentProject.Path & "\" & "SEMO_RegisterFont.exe" strArg = "/SEMO/" & nFont ShellExecute 0, "runas", strExe, strArg, vbNullString, SW_SHOWNORMAL End Sub في الاستدعاء اي في الحدث Form_Current RegisterFont "DroidSansArabic.ttf" حيث ان الـ DroidSansArabic.ttf هو اسم الخط الذي قمنا بوضعه بجانب قاعدة البيانات ملاحظة مهمة جدا: في حال كان اسم الخط يتكون من اكثر من كلمة مثل ( Droid Sans Arabic.ttf ) قم بحذف المسافات بين كلمة واخرى بحيث يصبح ( DroidSansArabic.tts ) وستعمل قاعدة البيانات التي قمت بتصميمها بشكل رائع وبالخطوط التي قمت انت بأختيارها بدون الخوف من مشكلة عدم توفر الخطوط في جهاز العميل. الشرح حصري للمنتدى وغير موجود في الانترنت. لا تشكرني الا اذا وجدت انني استحق ذلك. تم بحمد الله حسنين RegisterFont_SEMO_Pa3x.rar
    1 point
  39. أحسنت استاذ سليم عمل رائع بارك الله فيك وزادك الله من فضله
    1 point
  40. وعليكم السلام -اهلا وسهلا بك في المنتدى نورت المنتدى لابد من رفع مشاركتك في قسم الأكسيس فهنا قسم االإكسيل بارك الله فيك
    1 point
  41. أحسنت استاذ سليم عمل رائع بارك الله فيك
    1 point
×
×
  • اضف...

Important Information