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

مشاركة مع اساذنا @Foksh تفضل أخي . baseF-1.accdb

الافضل تعمل جدول خاص بالاسماء ثم تجعل مصدر القائمة هو ذلك الجدول .... للعلم لم اجد اسماء في ملف التكست

تفضل هذا التعديل Database521 (1).accdb

كلامك سليم 100% أستاذي @ابوخليل لم أنتبه لها فعلاً

وملاحظة اخرى انت وضعت امر الحذف الملون بالاصفر قبل النسخ .. وهذا خطأ .. وايضا وضعته بعد النسخ ازل هذا الأمر واجعل الامر فقط بعد النسخ كما اشار عليك الاستاذ @Foksh

أخي الكريم ، عند الحفظ سينتج خطأ لأنك حجزت متغير epath كملف تم اختياره selecteditems(1) وليس كمسار الملف كامل ، بدون وجع راس ، فقط استبدل Kill (epath) بـ Kill (SourceFile) ، وسيعمل معك ان شاء الله .

الاستاذ الفاضل محي الدين ابو البشر الكود يعمل و ينفذ المطلوب الف الف شكر لحضرتك ربنا يبارك فى عمرك و يزيدك من فضله و علمه و يجعل اعمالك في ميزان حسناتك و الف الف شكر لكل القائمين على الجروب المحترم اللي بيعلم و بيساعد الكثير

ولا يهمك اخي الكريم ، لما رفعت التعليق كنت برفع من الموبايل ولم أجرب الفكرة ، ولكن الخطأ مردود ، والشكر للأستاذ @kkhalifa1960 لتصويب الخطأ

يصححه صاحبه أخي الكريم أما حلي للموضوع في أول مشاركة لي طبعا حسب فهمي للمطلوب وربما كان خطأ

شكراً جزيلاً

اخي الكريم ضع هذا الكود في الجزء الموجود فيه الحقول في حدث عند التنسيق : Dim salloum As Control For Each FontS In Report.Controls If me.x <25 Then FontS.FontSize = 10 Else FontS.FontSize = 14 End If Next FontS حيث X هو الحقل الذي يجمع عدد السجلات في التقرير . واخبرنا بالنتيجة 😊

لم تحصل على النتيجة ربما لعدم قدرتك على تطويع الاكواد بما يناسيك اظافة الى ان الملف المرفق طريقة تصميمه تزيد من عدم امكانية حصولك على النتائج المدكورة في اول تعليق وعلى ما يبدو لي انك قمت بتحميل الملف من احد المواقع وتحاول الاشتغال عليه اخي من الممكن ادا شرحت لنا مادا تقصد بالصلاحيات هل هي اظهار او اخفاء اوراق معينة على مستخدم معين مثلا .لربما نستطيع مساعدتك وتعديل الملف الدي قمت سابقا بالاشارة اليه

يبدوا ان المبرمجين هم اسرع الناس نسيانا هذا النقاش تم بينننا سابقا ولو اسعفتني ذاكرتي قبل اجابتي الأولى ، لأحلت السائل الى هذا الموضوع الأصل المماثل .. وفيه زيادة اضافة فريدة لأستاذنا المهندس @Eng.Qassim

وعليكم السلام من Format cells - Custom اكتب في حقل Type: yyyymmdd

السلام عليكم ورحمه الله وبركاته 1- أريد عند فتح الشيت مباشرة يفتح الفورم Private Sub Workbook_Open() UserForm1.Show 'اسم الفورم التي ترغب في فتحها End Sub ويغلق الشيت مباشرة. Worksheets("Sheet1").Visible = False Worksheets("Sheet1").Visible = True شاهد الرابط ادناه

مرفق المثال مرة أخرى كمرجع لحالات مستقبلية مشابهة لمن يحتاجها Periods_02.xlsx

استبدل المعادله في العامود G بهذه المعادله =IF(H5="";E5;0)+F5+D5

تفضل مثال لشجرة العائلة باستخدام المتصفح شجرة العائلة متصفح.rar

اعزائي الكرام السلام عليكم ورحمة الله وبركاته دعونا نستعرض جديد الاوفيس القادم بصفه عامة وبرنامج الاكسيس بصفة خاصة . سيشهد الإصدار الجديد من مايكروسوفت أوفيس Microsoft Office تغييرات جذرية عن الإصدارات السابقة. فقد تطورت واجهة البرنامج كثيراً وأصبح يتمتع بميزة التصفح المبوب Tabbed Browsing عبر جميع تطبيقاته، كما وضعت مميزات البرنامج على شكل مجموعات مبوبة لتسهيل الوصول إليها بدلاً من القوائم المنسدلة التي كانت مستخدمة في الإصدارات السابقة. فبدلاً من القوائم المنسدلة سيكون أعلى الصفحة شريط يحتوي على ألسنة التبويب المناسبة.. مثلاً في برنامج وورد ستظهر ألسنة التبويب كما يلي: File | Write | Insert | Page Layout | References | Mailings | Review كما وستكون أيقونات التنسيق متاحة بشكل أسهل من السابق وتوفر رؤية متكاملة للتنسيقات المختلفة المطبقة على المستند. وتم تزويد أوفيس 12 بمحرك رسوميات جديد يجعل مخططات الإكسل ثلاثية الأبعاد تظهر بشكل أفضل وسيكون تعديل المسميات وعناوين الرسوم البيانية أسهل من السابق. ويوفر أوفيس 12 ألسنة تبويب ذكية تعرض أمام المستخدم الأدوات والخيارات بناءً على العمل الذي يقوم به في المستند وتسهل له الوصول إلى المميزات التي قد يحتاجها. تصميم واجهة برامج أوفيس 12 اختلف كلياً عن الإصدارات السابقة حيث تم تقليل مربعات الحوار والقوائم بشكل كبير. وأصبحت معظم الخيارات مرئية أمام المستخدم بصورة تجعل العمل على المستندات وإنجاز المهام أسهل وأقل وقتاً. أيضاً أعيد تصميم واجهة آكسس 12 لتكون أكثر سهولة ووضوحاً من الإصدارات السابقة. ومن المتوقع أن تطرح مايكروسوفت نسخة الاختبار الأولى من أوفيس 12 BETA 1 مع نهاية العام الحالي. في ظل الإقبال المتزايد على مجموعة البرامج المكتبية "أوفيس"، تسعى شركة مايكروسوفت المنتجة للمجموعة البرمجية كل عامين إلى تقديم إصدارات جديدة تواكب الحاجة المتزايدة المستخدمين، وتقدم لهم مزايا جديدة كانوا يبحثون عنها في الإصدارات الأقدم. وبالرغم من أن شركة مايكروسوفت لم تنته بعد من اصدارتها "أوفيس 11 "والمسماة "أوفيس 2003"، إلا وخرجت الأخبار عن اصدارتها القادمة، والتى أخذت اسما مؤقتاً هو"أوفيس 12". والاسم الكودي له ( Harhaz ) . وبالرغم من أن النسخة التجريبية لـ"Office 12" لن ترى النور قبل انتهاء هذا العام إلا أن مايكروسوفت قد قدمت أثناء الاجتماع السنوى للشركة بمؤتمر المطورين والذى عقد فى أغسطس المنصرم، العديد من الخصائص والمميزات التى تميز نظام تشغيلها الجديد، والتى تعتمد أساسا على نسخة جديدة من تقنية "شيربوينت" SharePoint ، وهو برنامج مكون من Windows Server 2003 الذي يُساعد في زيادة إنتاجية كل من الفرد والفريق عن طريق تمكينهم من إنشاء مواقع ويب خاصة بمشاركة المعلومات ومساهمة المستندات. والمواقع القائمة على Windows SharePoint Services، والتي تُسمى مواقع SharePoint، تنقل تخزين الملفات إلى مستوى جديد، فتوفر جماعات لمساهمة الفرق مما يُمكّن المستخدمين من المساهمة في المستندات، والمهام، والأحداث، ويُسهّل عليهم مشاركة جهات الاتصال ومعلومات أخرى. ويضم إصدار "اوفيس "12 الجديد أيضا تقنية "InfoPath "التى تسمح للمؤسسات بجمع واستخدام البيانات تلقائيًا في نطاق متنوع من التطبيقات. ليس هذا كل ما يتضمنه الإصدار الجديد من تطبيقات الأوفيس فهو يأتى بعدد من البرامج المحسنة والتى شهدها المستخدم من قبل فى نسخة أوفيس 11 مثل الشكل الجديد لأشرطة الادوات وبروز ضيوف ‏جدد عليه. بالإضافة إلى التحسينات على ملحقات ومكونات طاقم ‏Microsoft Office، ‏كالمراجع التي تمكنك من البحث عن معاني وتفاسير الكلمات، وان لم تجد المطلوب، يمكنك ‏البحث عن معاني أفضل عن طريق الانترنت، كما أن دعم العمل الجماعي والمشار المستندات أصبح أكثر ‏كفاءة وأسهل استخدام. وعلى ذكر ملحقات ‏Office، فقد تمت إضافة مجموعة من البرامج كبرنامج ‏Microsoft Office ‎Document Scanning‏ والذي يصنف ضمن برامج القراءة الضوئية ‏OCR‏ التي تجري عمليات المسح على ‏صور المستندات وتحويلها الى نصوص ‏Texts‏. تابع