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

السلام عليكم تفضل اخي العزيز ارجو ان يكون طلبك Root200.rar

السلام عليكم ورحمة الله استخدم هذا الكود Sub UnhideSheets() Dim Sh As Worksheet For Each Sh In Worksheets Sh.Visible = xlSheetVisible Next End Sub

السلام عليكم زر "تقرير الطباعة" لم يكن مرتبطا بكود الطباعة Printing بل كان مرتبطا بالكود sama الخاص بـ "كشف حساب عميل"... تم التصحيح في المرفق وأرجو أن يفي الغرض المطلوب... entag tam - Copy - Copy.xlsm

مشاركة مع اخي الاستاذ خالد اذا كان مصدر التقرير استعلام ، اعمل عمود جديد وضع هذه القيمة فيه واجعله هو مصدر بيانات الحقل date1 : format([textedate];"dd/mm/yyyy") باعتبار textedate هو حقل التاريخ الموجود في الاستعلام اذا توصلت للحل والا كما اشار عليك الاستاذ خالد بارفاق مثالك

txtbox =txtbox & "." Root200.accdb

السلام عليكم ورحمة الله وبركاته يمكن لحضرتك الاستماع لهذا الفيديو https://www.youtube.com/watch?v=5tj6HggsO8Y

السلام عليكم انظر للمرفق اتمنى يكون المطلوب عدد الاشهر.rar

أساتذتي الأعزاء.. من خلال تبحري في الإكسيل.. وجدت هذه المعادلة فأحببت أن أشارككم فيها علها أن تنفعنا وتنفعكم وتفتح لكم آفاق كثيرة. lookup-to-left.rar

برنامج يمكنك من متابعة السيارات بالشركه سواء الزيت او البنزين يارب ينال اعجابكم الباسوورد 2545 1918844418_.accdb

عد الجمايل

أ.haniameen ان لم تكن إعدادات اللغة عندك كما يلى فحاول تعديلها بحسب دولتك

أ.Eng. Abdullah جرب هذا الكود لفتح وغلق ملف اكسيل بالتوفيق Dim objXLApp As Object Dim objXLBook As Object Set objXLApp = CreateObject("Excel.Application") objXLApp.Visible = True Set objXLBook = objXLApp.Workbooks.Open(مسار الملف مثلا"D:\library\library.xlsm") objXLApp.Application.Visible = True objXLBook.Save objXLBook.Close objXLApp.Quit

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

اخي العزيز ارفق لنا ملفك لغرض التعديل او مثال انظر الخيارات الاقليمية في وندوز : لوحة التحكم / المنطقة واللغة وانظر في اعداد وخصائص التاريخ تحياتي ضبط التاريخ 1.bmp ضبط التاريخ 2.bmp

السلام عليكم جرب هذا الكود بزر مع ملاحظة تغيير اسم الطابعة عندك بهذا الكود تختار الطابعة من غير التأثير على الطابعة الافتراضية Set Application.Printer = Application.Printers("HP LaserJet Series II") DoCmd.OpenReport "اسم التقرير", acViewNormal وهذا برنامج لاحد الاخوة بالموقع للتحكم الكامل بطباعة التقارير اتمنى ان يفيدك تحياتي Full Control Of Print Report.rar

اذا تمت الإجابه على السؤال فلا تنسى الضغط على ( أفضل إجابة )

شكرا أخي ... هذا هو المطلوب بالضبط بعد الاطلاع على ردودكم توصلت لمعادلة مباشرة لحساب القيمة الحقيقية ... أتمنى الاطلاع عليها في الملف المرفق test (1).xlsx

تفضل اخى الكريم فمثلا هذه هى معادلة جلب اسم الموظف من رقمه =INDEX(staff!$B$3:$B$7,MATCH(C1,staff!$A$3:$A$7,0)) اول جزء من المعادلة وهو Index لابد ان يأتى بعدها عمود البيانات المطلوبة , وبما ان عمود اسماء الموظفين الموجود بصفحة Staff هو العمود الثانى أى عمود B ويبدأ من الخلية B3 ..فاصبح نطاق هذا العمود من B3:B7 او الى اخر خلية تريدها وبها بيانات فممكن الى B500 فليس هناك مشكلة فى هذا أما بالنسبة للجزء الثانى من المعادلة بعد وضع هذه العلامة , أو المنقوطة ; حسب اعدادات الكمبيوتر لديك فهناك باقى شرط المعادلة لإيجاد الناتج وهو Match ثم بعد القوس يتم وضع رقم الخلية للبند ان نبحث به وهو رقم الموظف بصفحة Info وتكون فى المعادلة C1 ثم يتم وضع فاصة , وبعد ذلك يوضع نطاق عمود أرقام الموظفين من الصفحة الأخرى Staff ويكون العمود الأول A وكما اتفقنا يبدأ نطاق الجدول من الصف الثالث فتكون A3 : A500 مثلا ثم بعد ذلك وضع فاصة كمان , ثم الرقم 0 صفر وبعد ذلك غلق قوسين الأول لـ Match والثانى يخص جزء Index وبكده تكون انتهت المعادلة بارك الله فيك

اخى الفاضل تم تعديل العلاقات مع الجداول على قدر معرفتى وحذف حقول الاسم من الجداول واختيار الاسم بعد ربطه وان شاء الله باقى الاخوه يساعدون بما لديهم تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق قاعدة البيانات.accdb

اتفضل استاذ مالك الملف المرفق به حلين: الحل الأول : عمل كمبوبوكس يحتوى على أسماء أوراق العمل وعند الاستدعاء اختر الشيت المطلوب سيتم الانتقال إليه تلقائيا الحل الثانى : عمل هايبر لينك بأسماء أوراق العمل فى مكان محدد من ورقة العمل تعبئة الكمبوبوكس بأسماء أوراق العمل.xlsm

انظر الملف ....... ddd.accdb

نعم وجدتها في تبويب التحقق من صحة البيانات شاكر لك اخوي محمد على حرصك وتعاونك لتبادل النفع والفائدة

وهذه مشاركة مع أخي أحمد .... انظر المرفق .... SuperMarketSals Doolar - Dinar3111.mdb

الحمدلله بالتوفيق ان شاء الله اخى واطلع على هذا الرابط لعلك تجد به معلومات اخرى تفيدك

هل هذا ما تريد ؟ SuperMarketSals Doolar - Dinar31.rar

ربما يكون المطلوب ادخل ايقيمة في Textbox1وانقر زر Entr على لوحة المفاتيح عد الكومبوبكس الممتلئة.xlsm

اذا كنت تريد القيمة الحقيقية المعادلة في الخلية F15 من هذا الملف My_test_5.xlsx

تفضل... 1- على اعتبار ان الملف 1.xlsm في مجلد Files في القسم c 2- بعد انتهاء نقل الاوراق اختر "حفظ" اذا كنت لاتريد احتفاظ الملف الاصلي 1.xlsm بالاوراق المنقوله والعكس صحيح عند اختيار "عدم الحفظ" 3- يمكن لك نسخ الاوراق اكثر من مره الى ملف HR_TESTER HR_TESTER.xlsm 1.xlsm

وعليكم السلام ورحمة الله وبركاته تفضل أخي تم تحويل البيانات الى جدول ليكون القائمة المنسدلة مطاطية حيث اذا اردت إضافة موظفين جدد لا تضطر للتعديل في المعادلات ويظهر رقمهم في القائمة المنسدلة تلقائيا id emplloy.xlsx

وعليكم السلام-لك ما طلبت على الرغم ان هذا الموضوع تكرر مئات المرات فى المنتدى فعليك بعد ذلك استخدام خاصية البحث بالمنتدى قبل رفع المشاركة فالمنتدى به كنــــوز id emplloy1.xlsx

أهلا بك @ازهر عبد العزيز حتى ينتهي @ابا جودى و @Khalf من العتاب إليك الطريقة في عرض التصميم للنموذج.. حدد زر الأمر المطلوب؛ ومن التبويب أخري.. غير قيمة افتراضي إلى نعم!

السلام عليكم أخي الكريم تفضل المرفق انذار بتسديد2.rar