كل الانشطه

عذرا لم انتبه ان قي طلبك طباعة متعددة الطريقة الاولى زر print all اكتب كود الشركة بداية الطباعة في الخلية P2 ونهاية الطباعة في Q2 الطريقة السابقة لطباعة الارقام المتسلسلة وراء بعضها الطريقة الثانية عن طريق فورم زر طباعة خسب الاختيار وهي تغنيك عن كل الازرار وعن الطريقة الاولى حيث يمكن الطباعة لموظف واخد او الطباعة للكل او الطباعة المتعددة خسب الاختيار سواء الارقام متصلة ام منفصلة اختر ما تراه متاسب لطلبك مرتبات شركة نقل البضائع فنيين عن شهر نوفمبر 2025 (1).xlsm مرتبات شركة نقل البضائع فنيين عن شهر نوفمبر 2025 (1).xlsm

من واقع التجربة ، ودون أي تردد وبلا أي شك ، فأنا ( أعوذ بالله من كلمة أنا ومن شر نفسي ) والكثيرين نتفق مؤيدين لكلام أساتذتنا ومعلمينا ، وحتى تعليمات مايكروسوفت ، أن آكسيس غير قادر على حماية البيانات وتأمينها . ومن خلال التجارب المريرة التي مررت بها وفكرت بها ، فإن الحل والسبيل الوحيد لتأمين البيانات سيكون خارج قاعدة البيانات نفسها . ( أو بحماية قاعدة البيانات الخلفية بكلمة مرور محكمة ) - ومع ذلك فالهندسة العكسية قادرة على الوصول إلى كلمة المرور - وبالتالي النجاح تشوبه بعض الشوائب . ولذا ذكرت في جملتي التالية :- أيضاً كانت لي تجربة بسيطة طبقتها في لعبة كانسة الألغام 2025 . حيث أنني لم اعتمد على أي جداول لتخزين أسماء اللاعبين والمستويات التي وصل لها كل لاعب لإستردادها متى شاء . ومع ذلك - ودون أي جداول - يستطيع اللاعب الإستمرار من المستوى والمرحلة التي وصل لها مع الإحتفاظ بكامل ميزات اللعبة من مساعدات وحمايات اللعبة ... إلخ ، حتى بعد اعادة تشغيل الويندوز . فالفكرة لا تعتمد على متغيرات طويلة المدى .

الملف الأصلي يعمل بدون مشاكل .. وحيث أنه بعد التجربة ، كانت تجربتي لها ملاحظتان ، لإحداهما قديمة لكني لم أتطرق لها . عند فتح نموذج تسجيل الحضور والإنصراف لاحظت بطئاَ ملحوظاً عند فتح النموذج . الثانية توضيح لطريقة الحساب لعدد الساعات الظاهرة في الصورة التالية :- هل المقصود بـ 0:1 هو دقيقة أم عشر دقائق ؟؟

عجيبة اجهزتك هذه .. انا لم اغير القاعدة .. هي هي من اول مشاركة على كل حال قمت بتجديدها ونقلها الى قاعدة بيانات جديدة انا اعمل على اوفيس 2010 .. والافضل ان تعمل على مثله ايضا .. ChkInOut_NetUp4.rar

حتى مع محاولة الاستيراد تظهر الرسالة (لا يمكن التعرف على تنسيق قاعدة البيانات accdb) مع العلم أن الأوفيس على هذا الجهاز قديم (2007)

عجيب هذا الخادم العفريت 😳

تم تعديل المشروع بطريقة مختلفة تماما عن ما كنت افكر به سابقا يمكننا القول الآن ان العمل احترافي الوصف للتعديل الجديد : 1- يدعم فترتين مختلفتين مفتوحتين 2- لا يوجد حد فاصل بين الصباح والمساء .. كل فترة تعمل بشكل مستقل من خلال شاشة واحدة 3- الفترة تبدأ قبل وقت الدخول بساعة وتنتهي بعد وقت الانصراف بساعة ايضا .. 4- لا يمكن التوقيع خارج الوقت المعتبر للفترة .. 5- اذا لم يوقع الموظف خروج .. عند الحضور من الغد يسجل حضور ويبقى حقل خروج الأمس فارغا 6- تم التطبيق على شاشة توقيت الانترنت وعلى شاشة التوقيت المحلي الضوابط : مهم جدا : 1- ادخال البيانات الصحيحة كاملة في فورم التحكم : وقت الحضور الصباحي/وقت الحضور المسائي/ عدد ساعات العمل الصباحي والمسائي والوقت الاضافي ان وجد اكسس هو من يحدد وقت الخروج بناء على وقت الحضور + ساعات العمل 2- تعيين الفترات للموظفين في فورم الأسماء عند انتقال الموظف من الصباح الى المساء فقط يتم تغيير وقته في فورم الاسماء . اذا اردنا ان يعمل الموظف في الفترتين كليهما عليك تسجيله بمعرف جديد ................................. جرب كثيرا ووافني بالنتيجة اذا كل شيء تمام خبرني كي اهديكم المخرج النهائي ChkInOut_NetUp3.rar

أخي العزيز عبد الله بشير جزاك الله خيرا وبارك الله فيك كنت أبغي طباعة مرتب عدد 4 أو5 أشخاص مثلا دفعة واحدة ويكون من الخلية رقم إلى الخلية رقم بالعمود A المتصلة بالقائمة المنسدلة بالخلية D4. وشكر الله لك وجزاك الله خيرا

اعجني الموضوع من اول انشغالي بالاكسيس تيقنت ان الاكسيس من اضغف الحمايات لكني قكرة بان اسال الذكاء الصناعي سالت CHATGPT عن فكرة مجنونة لم يفكر بها احد لحماية الجداول ادعوا اخواني لتجربة الفكر المقترحة وانا ساجربها معكم مع توفر الوقت لدي سارفق الاجابة والسؤال الذي سالته انقر هنا

للرفع

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

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