محمد ايمن

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

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

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

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