Hamdi Edlbi-khalf

السلام عليكم الطريقة التي ألجأ إليها: ١- عمل حقل من نوع مذكرة. ٢-في حدث بعد التحديث لكل من حقل -رقم الوارد - جهة الوارد- تاريخ الكتاب الوارد أضع الأمر التال Me.Haql_almozake=me.number &" "& me.Name&" "&me.date وفِي خصائص الحقل في الجدول، اجعله مفهرساً والتكرار غير مقبول. فاتني أن أذكر طريقة أخرى: اجعل كلاً من حقل الرقم والجهة مفتاحاً أساسياً وعندها سيمنع التكرار على أساس قيمتي الحقلين.

جزاكم الله كل خير أستاذ @أحمد الفلاحجى

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

السلام عليكم شكراً لتوجيهكم أستاذي الكريم @jjafferr هذا هو الكود كما وجدته بحاجة إلى تعريف متغير لقيمة Xlup - Xldown Private Sub Command0_Click() Const xlup As Long = -4162 Const xldown As Long = -4121 ' في حالة هذا الكود ما نحتاجه الثابت الثاني Dim XL As Object Dim z As Long Set XL = CreateObject("Excel.Application") ' With XL XL.Visible = True XL.displayalerts = False XL.Workbooks.Open CurrentProject.Path & "\Book1.xlsx" XL.worksheets("sheet3").Activate z = XL.worksheets("sheet1").range("a1").End(xldown).Row XL.worksheets("sheet2").range("a1:a" & z) = "???" ' .ActiveWorkbook.Close (True) ' .Quit ' End With Set XL = Nothing End Sub

وفقك الله.

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

السلام عليكم لقد قمت عمل كود في برنامج الأكسس للتحكم بملف إكسل هذا السطر كان يعطي خطأ Xl.Worksheets("sheet3").Range("a1:a"&Xl.Worksheets("sheet3").cells(rows.count,1).end(xlup).row) حتى أستبدل به نطاقاً ثابتاً كالكود التالي: Xl.Worksheets("sheet3").Range("a1:a10") بينما لو وضعت الماكرو في ملف الإكسل وشغلته من قاعدة الأكسس فإنه يعمل بأي الصورتين كان. هل من طريقة لاستخدام الكود الآتي في برنامج أكسس للتحكم بإكسل. cells(rows.count,1).end(xlup).row الكود لمعرفة السطر الأخير غير الفارغ في ورقة إكسل بارك الله بكم

تستطيع قفل محرر الأكواد بكلمة سر من التبويب Tool التبويب الفرعي Protection

شكراً لكم

جزاكم الله كل خير

السلام عليكم عند استخدام >Date() <Date() في معايير حقل من نوع تاريخ في استعلام فإنه يستخرج القيم بناء على الشهر واليوم دون السنة، فلو استخدمنا الصيغة الأولى فمن المفترض استخراج التواريخ التي تأتي بعد اليوم الحالي لكنه يستخرج القيم تلك القيم عبر السنوات دون أن يأخذ بالاعتبار أن السنة الحالية أكبر أو أصغر من السنة في حقل المعيار. مثلاً : اليوم : 1\1\2020 سيقوم باعتبار أن كل القيم هي أكبر من تاريخ اليوم مهما كانت السنة. بينما لو استخدمنا المعايير السابقة في معادلة IIF في حقل محسوب فإنه يعطي النتائج الصحيحة. المشكلة مع الاستعلامين الأولين في المثال المرفق شكراً لكم وبارك الله بجهدكم. DATE().accdb

مبارك لنا وجودكم معنا.

السلام عليكم الملف يعمل حصراً عند وجوده في مسار كل مجلداته مسماة بحرف إنكليزية. شكراً لكم أستاذ جعفر إضافة هامة

وعليكم ألف سلام شكراً لك أستاذ @jjafferr

السلام عليكم المشكلة لديك هي بإعدادات لغة الحاسب عليك بجعل لغة Unicode العربية و سيعمل الكود لديك بشكل مناسب.

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

السلام عليكم ما هي الأسباب وراء البطء أثناء كتابة نص طويل في خلية, علماً أن هذه المشكلة لم تكن موجودة سابقاً. وشكراً

السلام عليكم لقد جربت المرفق ولكن لم يظهر أي ملف بي دي إف جديد. سأحاول أن أجرب المرفق على جهاز آخر إن أمكنني ذلك وأعلمك النتيجةَ.

شكراً لكم أستاذ @sandanet

السلام عليكم لقد قام الملف بفتح رابط موقع الواتس آب لكن لم يقم بإرسال أية رسالة، قمت بتسجيل اسم من قائمة الاتصال لدي و لكن ما هي الصيغة التي ينبغي تسجيل رقم الهاتف بها؟ شكراً لكم ==== لقد تم إرسال الرسائل، المشكلة كانت ببطء الإنترنت لدي.

جزاك الله كل خير

أستاذ @sandanet كود ممتاز بارك الله بك. هل يمكن تعديل الكود ليعمل الكود على إخفاء الاستعلامات و الوحدات النمطية و الماكرو؟

السلام عليكم لقد وجدت الحل المطلوب كاملاً من خلال الرابط الآتي http://allenbrowne.com/ser-62.html شكراً لكل من رغب بالمساعدة و الشكر الخاص للأستاذ @essam rabea

جزاكم الله كل خير بانتظاركم

@essam rabea لا أود أن أكون ملحاحاً، لكن هل من الممكن جعل معايير الاستعلام تعمل معاً أم لا بد أن يعمل كل منها على حدة؟ في حال لم يكن ذلك ممكناً، ففي مشروعي الحالي لا ضرورة له لكن سأكون بحاجة له في حال عمل تقارير مع تصفية متعددة -إن احتيج إليه أو طلب مني -. شكراً مجدداً