محمد ايمن

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

Dim xl As Excel.Application Set xl = CreateObject("Excel.Application") 'open Excel Dim wb As Excel.Workbook Dim ws As Excel.Worksheet Set wb = xl.Workbooks.Open(CurrentProject.Path & "\data22.xlsb") 'open WorkBook Set ws = wb.Worksheets("الارصدة") 'Select WorkSheet Dim data As Variant data = ws.ListObjects("الارصدة22").DataBodyRange.Rows.Count + 2 DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel12, "daybox", CurrentProject.Path & "\data22.xlsb", True, "الارصدة!A2:I" & data wb.Close xl.Quit

للاسف لا يجب الارتباط بالجدول كاملا

للاسف نفس المشكلة هل يمكن الحصول على اخر سطر بدون فتح الملف ؟؟ علما ان كود الارتباط يعمل بدون فتح الملف طبعا اذا تم تحديد المجال يدويا

نعم اخي الكريم هذا هو اخر سطر الكود يعمل احيانا و احيانا لا

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

السلام عليكم وبها نبدأ اي موضوع الاصدقاء الاكارم تحية طيبة لدي userform يحتوي على checkbox اريد منع تغيير قيمة ال checkbox عند الضغط على ازرار الاسهم علما اني جربت اضافة الكود التالي في حدث KeyDown ولكن لم يعمل If KeyCode = 37 Or KeyCode = 38 Or KeyCode = 39 Or KeyCode = 40 Then KeyCode = 0 اين الملف المرفق

تفضل اخي الكريم يتم اظهار النموذج مع المجال K فقط MiniGalendar2.xlsm

تفضل اخي الكريم مع ملاحظة ان اسم الجدول او الحقول لا يمكن تغييره ربط اكسل مع اكسس 2.rar

للاسف لم اعمل سابقا مع التقويم الجهري ولا خبرة كافية لدي لهذا الموضوع 😅

طبعا ممكن

😅😅😅

تفضل ربط اكسل مع اكسس.rar

لا مشكلة لكن يبقى السؤال ماهي الحقول التي تريد عرضها في اليوزرفورم ؟ نحن لا نتكلم عن الترتيب نحن نتكلم عن الحقول مثل التاريخ و رقم الطلب الخ

استاذ ضاحي تحية طيبة ممكن الحصول على المثال كامل مع الاكواد ( الاضافة و التعديل و البحث و الحذف )

توضيح للمطلوب انت تريد عرض كل خمس سجلات مع بعض لكن ماهي الحقول الواجب اظهارها في التكست بوكس ؟؟

السلام عليكم وبها نبدأ اي موضوع الاصدقاء الاكارم تحية طيبة تطبيق اليوم تقويم مصغر و خفيف و بسيط لنماذج الاكسل التطبيق الاساسي من صنع الاستاذ ابو ادم لنماذج الاكسس و تم تعديله ليعمل على نماذج الاكسل لا داعى لضغط الملف اذا كانت مساحته بسيطه MiniGalendar.xlsm

ارغب في انشاء تقرير لتظهر كما في الصورة 2 ( بعيدا عن بويفت تيبل )

اي مشكلة اخ موسى ؟

السلام عليكم ..الاصدقاء الاكارم تحية طيبة هل يوجد برنامج او اداة او طريقة لعمل تقارير في اكسل مثل التقارير الموجودة في اكسس ؟ البيانات لدي كما في الصورة 1 ارغب في انشاء تقرير لتظهر كما في الصورة 2 ( بعيدا عن بويفت تيبل )

تحية طيبة استاذ @omar elhosseini بداية اشكرك جزيل الشكر على مساعدتك لي اما بعد تاكدت و بشكل قطعي من سبب مشكلة تكرار فتح الملف و السبب عند فتح اي مصنف اكسل يتم اضافته الى مدير المهام و عند فتح الملف الثاني بمثيل جديد يتم تسجيل الاكسل مرة ثانية في مدير المهام ( على عكس طريقة فتح المصنفات بشكل افتراضي حيث يتم تسجيل الاكسل في مدير المهام لمرة واحدة فقط ) لاحظ الاختلاف بين الصورتين وبالتالي عندما نصل في الكود الى سطر فتح الاتصال سيبحث عن اول عملية لاكسل و سيجد ان الملف غير مفتوح ( علما انه مفتوح ولكن في عملية جديدة و هذا ما سيؤدي الى فتح الملف مرة ثانية لكن للقراءة فقط ) ولا اعتقد انه يوجد حل لهذه المشكلة الا اذا كان ado او dao يدعم جلب البيانات بدون فتح الملف !!!! سبب رغبتي في استخدام ado هو امكانية استخدام عبارات sql لفلترة البيانات بشكل اسرع دون الدوران في مصفوفة طويلة عريضة لاستخلاص البيانات المطلوبة ( نحن نتكلم عن ما يقارب 11000 صف ) المرفق الذي ارسلته لي ممتاز و لكن اعتقد انك اغفلت نقطة هامة و هي : بعد احتساب الرصيد المدور من نهاية الاسبوع السابق يجب ان يتم تسجيل قيم الفواتير و الدفعات كل في صف جديد بينما المرفق الذي ارسلته يقوم باحتساب الرصيد النهائي فقط !!! لاحظ الصور قمت ببعض التعديلات و حصلت على النتيجة المطلوبة و لكنني غير راضي بصراحة لااني مازات اجد الكود بطيئ بعض الشي ( على عكس استخدام sql ) 😅 وفي الختام اكرر شكري لك

برنامج ultraviewer هو برنامج يتيح الاتصال و التحكم بين جهازي كمبيوتر

ماهو اصدار الاكسل لديك استاذ عمر ؟ جربت كل الاصدارات من 2013 حتى 2021 وجربت كل المكاتب من الاصدار الثاني حتى 6.1 نفس المشكلة 😟

ارجو التوضيح اخي عمر ... هل اتبعت الخطوات و لم تحدث معك مشكلة

اخي عمر افتح اي مصنف اكسل ثم اضغط زر Alt + برنامج الاكسل نفسه ( ستظهر رسالة هل تريد بدء تشغيل مثيل جديد ل اكسل ) اختر نعم سيفتح برنامج الاكسل ( ملف - فتح ملف المثال ) ثم جرب الكود