كل الانشطه

الحمد لله على نجاح الفكرة 😇🤗

السلام عليكم ورحمة الله وبركاته اشكرك بشمهندس FOKSH عدلت ملف الاكسل كما طلبت مني والحمد لله تمت العملية بنجاح اشكرك بارك الله فيك وزادك الله علما

طلبك غير مفهوم .... ارفع مرفقك موضحاً عليه طلبك ..............

وجب التنبيه إلى أن هذه الخطوة مشروطة بأن يكون هناك إمكانية بأن نضيف الاستعلام داخل نفس القاعدة المستهدفة . لكن ماذا لو كانت القاعدة غير متاحة بالإضافة 😉 ؟؟؟

بارك الله فيكم جميعا وزادكم الله من علمه

السادة الأساتذة الكرام/ السلام عليكم ورحمة الله وبركاته أرجو من سيادتكم طريقة لعمل زر طباعة متعددة حسب نطاق معين من العاملين ، مرفق الجدول وبه طباعة للكل بضغطة واحدة وزر لطباعة كل واحد على حدة. ولسيادتكم جزيل الشكر والامتنان.مرتبات شركة نقل البضائع فنيين عن شهر نوفمبر 2025.xlsmمرتبات شركة نقل البضائع فنيين عن شهر نوفمبر 2025.xlsm

xx هي فعلاً فرق الرقم بين 14 و 16 حسب إصدارات الأوفيس لديك . وبما أنك لديك أوفيس 2010 ، فالقيمة XX ستكون 14 كما ذكرت . على العموم ، قم بضبط و تعديل ملف الأكسل بحيث تنقل الجدول الى الخلية A ، كما في الصورة ، ثم استخدم الأداة وستجد أنها جلبت القيم لك من جدول اكسل الى جدول اكسيس .

مشاركة مع اخي @Foksh استخدم هذا Dim rpt As Variant Dim ReportsList As Variant ReportsList = Array("Report1", "Report2", "Report3") For Each rpt In ReportsList DoCmd.OpenReport rpt, acViewNormal Next rpt

السلام عليكم ورحمة الله وبركاته اشكرك بشمهندس FOKSH للاجابة وهو فعلا بحق برنامج ممتاز سلمت يداك ولكن لاسف عندما جربته عندي لم استطع ايجاد المكتبة المذكورة Microsoft Office xx.0 Object Library والذي وجدته هو المكتبة Microsoft Office 14 استخدم ويندوز 7 واوفيس 2010 والذي طلبته في سؤالي هو ان يتم تحديت واضافة البيانات في جدول اكسس emp من خلال الكتابة المباشرة في جدول اكسل المرفق والذي هو مرتبط ارتباط مباشر ( الربط من خلال ملف الاكسل بجدول الاكسس ) بجدول emp في اكسس

فى المثال المرفق ، أريد استخلاص بعض المعلومات من الخلايا فى عمود A للخلايا فى الأعمدة B ,C, D حسب ما هو مطلوب على رأس العمود شاكرا لكم مساعدتكم مقدما مثال.xlsx

اخواني الاعزاء دمتم بصحة وعافية كيف يمكن تثبيت الاضافة Fuzzy Lookup في الاكسل مع العلم انني استخدم النسخة 2024 من الأوفيس

وعليكم السلام ورحمة الله وبركاته.. كرر امر الطباعة عدد المرات التي تريدها من خلال زر واحد ليتم طباعة التقارير بالتسلسل. إن كان الأمر كما أتصور في Word فرضاً . فإن الويندوز سيحتفظ بأوامر الطباعة في جزء من الذاكرة العشوائية في صندوق الطباعة الذي يظهر بجانب الساعة .

توسيـــــــــــــــع 2 واستكمال فقط اختيار اي (صورة خلفية) من عندك او (فيديو خلفية) من عندك تعرض لكافة الانماط -اضافة جديد للقائمة 🧐 1- 41 نمط رقم متحرك 2- 18 نمط حرك تحريك الارقام 3- 5 نمط ارقام ديجتل متحركة 4- 6 ارقام متحركة لبار السفلي للنافذة 5- 22 نمط لتسجيل الدخول 1-1 اضافة نمط تسجيل فيديو جديد 2- اضافة نمط تسجيل دخول جديد3 3- اضافة نمط جديد لتحريك عجلت الماوس لقائمة متحركة ايضا 1 ----------------------------( يمكنك خلط الارقام الديناميكية لعدة الوان فقط ادخالهم في مجلد من الحرف لثواني والدقائق والساعات وتجربة لون اسود واحمر ولون احمر وازرق واسود ومزيد في التحديث مع تقسيم الباكج مرفق للتحميل والادوات مرفق للتحميل 😇 ---------------------------------------------------------------( استاذ @Moosakيمكن تجربة قائمة المتحرك بعجلة الماوس في التسجيل الدخول بلا وميض ولا ترميش 😇 لاستكمال التحديث وزيادة الانماط مع تصاميم بور بوينت يتيح لك المزيد من الابداعات الجديده كل فتره المرفق اسفل الفيديو ومشاهدة ممتعة تحميل المرفق https://www.mediafire.com/file/wrcugm76wskliv1/MS_Access_Devloper_LogIN_IN_V104.rar/file

وعليكم السلام ورحمة الله وبركاته.. إن كنت تقصد أنك تريد استيراد قيم من ملف اكسل الى جدول اكسيس ، فألقِ نظرة على هذا الموضوع:-

السلام عليكم ورحمة الله وبركاته لدي مرفقات بها قاعدة بيانات اكسس بها جدول مرتبط مع ملف اكسل السؤال هو : كيف يمكن تحديث واضافة بيانات جدول اكسس من خلال ملف الاكسل الذي به نفس الجدول المرتبط المصنف1.xlsx كشف الحضور1.accdb

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمته وبركاته محتاج كود يقوم بطباعة أكثر من تقرير بأسماء مختلفة دفعة واحدة ولكم جزيل الشكر

بارك الله فيك استاذنا حفظك الله وجميع احبابك

كما تفضلتم أخي @منتصر الانسي تماماً .. نجاح السطر الذي ارفقته وشاركته دليل على أنه أحد خصائص آكسيس التي يمكن من خلالها فعلاً تحديد عندد النسخ من خلال تمرير القيمة داخل سطر الإستدعاء . لكن يبدو من خلال بعض التجارب أن الأمر مرهون بعدة عوائق منها نوع الطابعة ، تعريف الطابعة نفسه ، نظام التشغيل الويندوز أو بمعنى ادق التحديثات التي تُـحدِثــُها مايكروسوفت . لذا توجهت فعلاً إلى استخدام أمر التكرار كحلقة لتكرار أمر الطباعة . وهذا الموضوع الخارجي لتوسيع الفكرة لطباعة تقرير من خلال آكسيس .

لو رجعنا لتعليمات مايكروسوفت بخصوص الامر DoCmd.PrintOut على هذا الرابط سنجد أن صيغة هذا الأمر هي كالتالي DoCmd.PrintOut (PrintRange, PageFrom, PageTo, PrintQuality, Copies, CollateCopies) نلاحظ أنه يحتوي على المعلمة (Copies) والتي نحدد فيها عدد النسخ ولكن مع الأسف لا تعمل بشكل صحيح ولا ادري إذا ما كانت هذه المشكلة مرتبطة بنسخة الاوفيس لدي أم انها مشكلة عامة حبيت اوضح هذه النقطة لتجربتها فإذا عملت لديكم كان بها وإلا فإن طريقة الاخ @Foksh قامت بمعالجة المشكلة تحياتي

جميل جداً هذا التوضيح والطريقة الجميلة أيضاً .. التعرف على أنه إذا كانت Type = 1 وبالتالي النوع 1 = جدول هي بحد ذاتها أيضاً فكرة جميلة . وبما أن قيمة الـتعليمة Flags = -2147483645 وهي قيمة ثابتة في اكسيس لجميع إصدارات أوفيس ، وهي للتوضيح الواجب أنه ليس لأوفيس علاقة بفرضها بهذه القيمة . بل يفرضها نظام التشغيل نفسه ( Windows ) على حد علمي . أما بخصوص السطر والفكرة التالية :- فهي بحد ذاتها جريئة وإلتفاته فتحت لي أفكاراً جديدة في هذا الخصوص . فشكراً لك ولكل من ساهم بإثراء الموضوع بمشاركته الجميلة والقيمة كجوهره

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

انا طريقتي تختلف عن الاخوان حيث قمت بإظهار الجدول نفسه كما بالصورة وللقيام بذلك قم بتنفيذ الخطوات كالتالي 1- إنسخ الملف تحت القرص D مباشرة (يمكن نسخه إلى أي مكان ولكن هكذا سيكون المسار قصير) 2- إفتح الملف وقم بإنشاء الاستعلام التالي (هذه الخطوة غير مهمة لكم لإني سبق واستخرجت قيمة العمود المطلوب ووضعتها في الكود ولكني ذكرتها للتعرف على الخطوات) SELECT MSysObjects.Flags, MSysObjects.Name, MSysObjects.Type FROM MSysObjects WHERE ( ((MSysObjects.Name) NOT LIKE "MSys*") AND ((MSysObjects.Type) = 1) ); من خلال هذا الاستعلام سنتعرف على أي جدول Type=1 ولايبدأ بالأحرف MSys لتظهر لنا النتيجة كما بالصورة مايهمنا هنا هي قيمة العمود الأول Flags بعد ذلك قم بإغلاق التطبيق بدون حفظ اي شيء 3- إفتح أي قاعدة بيانات أخرى (سواء قاعدة بيانات فارغة أو مستخدمة لايهم) وفي أي وحدة نمطية (جديدة أو فيها اكواد لايهم) والصق فيها الإجراء التالي Sub sbUnHideTables() Dim app As Access.Application Dim wks As Workspace Dim db As dao.Database Dim rst As dao.Recordset Dim tdf As TableDef Set app = New Access.Application Set wks = app.DBEngine(0) 'الإصدار 64 Set db = wks.OpenDatabase("D:\HideTBL V1-64.accde") 'مسار الملف 'الإصدار 32 'Set db = wks.OpenDatabase("D:\HideTBL V1-32.accde") 'مسار الملف For Each tdf In db.TableDefs If tdf.Attributes = -2147483645 Then tdf.Attributes = 0 'تغيير قيمة العمود Flags Next tdf Set db = Nothing End Sub 4- انقر الزر F5 لتشغيل الإجراء حيث سيقوم بتغيير قيمة العمود Flags إلى القيمة صفر 5- اغلق قاعدة البيانات التي قمنا بتنفيذ الكود فيها (حفظ الكود من عدمه راجع لك) 6- الان إذهب إلى القرص D وقم بفتح الملف (HideTBL V1-64.accde او HideTBL V1-32.accde وفقاً لإصدار أوفيس لديك) لتجد أن الجدول قد ظهر في جزء التنقل تحياتي

افتح موضوعك الجديد بهذا الطلب ، وأنا على يقين أنك ستجد الكثير من الحلول والأفكار التي ستجد بها حل يرضيك .