كل الانشطه

اوك استاذنا المحترم فوكش، سوف ارفق ملف لحضرتك.

وعليكم السلام ورحمة الله وبركاتة كود طباعة الكل Sub PrintAll() Dim ws As Worksheet Dim dropdownCell As Range Dim validationFormula As String Dim optionsRange As Range Dim cell As Range Dim originalValue As Variant Dim counter As Integer Set ws = ActiveSheet Set dropdownCell = ws.Range("D4") originalValue = dropdownCell.Value If dropdownCell.Validation.Type = 3 Then validationFormula = dropdownCell.Validation.Formula1 If Left(validationFormula, 1) = "=" Then validationFormula = Mid(validationFormula, 2) End If Set optionsRange = ws.Range(validationFormula) counter = 0 For Each cell In optionsRange If cell.Value <> "" Then dropdownCell.Value = cell.Value Application.Calculate DoEvents ws.PageSetup.PrintArea = "C3:J54" ws.PrintOut counter = counter + 1 Application.StatusBar = "تم طباعة " & counter & " من " & optionsRange.Cells.Count End If Next cell dropdownCell.Value = originalValue Application.StatusBar = "" MsgBox "تمت طباعة " & counter & " عنصر بنجاح!", vbInformation Else End If End Sub مرتبات شركة نقل البضائع فنيين عن شهر نوفمبر 2025.xlsm

للأسف: Fuzzy Lookup ليست إضافة رسمية من Microsoft ولا تتوافق مع إصدارات Office 2021/2024 الحديثة. هناك عدة دوال قد تغنيك عن الأضافة ارسل ملف اكسل فيه مثال لما تريد أنجازه لربما الخبراء يجدون لك حلا سهلا وبسيطا

تفضل جرب مثال1.xlsx

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

السلام عليكم ورحمة الله وبركاته اشكرك بشمهندس 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 قامت بمعالجة المشكلة تحياتي