محمد ايمن

يمكن بكل بساطة تنفيذ الكود تلقائيا و اجعل اسم النسخة الاحتياطية هو التاريخ و الوقت كاملا (ساعة:دقائق:ثواني) وبذلك يمكنك الرجوع الى اي نسخة احتياطية ترغب بها

اخي الكريم تحية طيبة لنفرض جدلا اننا حددنا يوم السبت للنسخ الاحتياطي و شاءت الأسباب ان يكون عطلة! بالتالي لن يتم اخذ نسخة احتياطية حتى يأتي السبت التالي لم لا تجعل الكود عند اغلاق البرنامج حيث تظهر رسالة تنبيه لأخذ نسخة احتياطية ( نعم او لا ) اضف الى ذلك ان المسار system32 مسار محمي و ستجد صعوبة في التعامل معه علاوة على ذلك هو مسار لنظام ويندوز و الويندوز مهدد في اي لحظة بالعطب 😥 لم لا تجعل المسار في القرص D او اي قرص اخر

تفضل اخي الكريم الأخطاء هي كالتالي : 1- عند اختيار استيراد يتم تحديد مسار و ليس ملف و الاكسس بحاجة الى مسار الملف كاملا مع اسمه 2- خطا في جملة SQL للاستيراد لان الحقل balance هو حقل محسوب و بالتالي لا يمكن ادراج بيانات ضمنه Out-Get_Table_Excel.rar

تفضل اخي الكريم مثال بسيط يمكن ان يلبي طلبك بداية قم بالارتباط بالجداول في ملف Bd ثم غير اسم الملف او انقله وضعت كود الفحص في زر امر و يمكنك وضعه في تايمر للفحص المستمر testconnect.rar

تسلم استاذ @ابو نزار ... امين يا رب اجمعين

هل هذا هو المطلوب ؟ 002- ترحيل بيانات بثلاث شروط.rar

اصدقائي الاكارم السلام عليكم و رحمة الله و بركاته الجزء الخامس درس اليوم هو الدرس الاخير في سلسلة تحويل قاعدة بيانات اكسس الى SQL في هذا الدرس سنقوم بربط الجداول من SQL الى قاعدة بيانات اكسس اضافة للبرنامج : انشاء نسخة احتياطية و استعادتها 😊 الجزء الخامس.accdb الجزء الخامس.pdf

اصدقائي الاكارم السلام عليكم و رحمة الله و بركاته الجزء الرابع في درس اليوم سنقوم بانساء قاعدة بيانات كاملة على السيرفر باستخدام SQL Script الذي قمنا بانشاءه مسبقا (في الجزء الثالث ) الجزء الرابع.accdb الجزء الرابع.pdf

اصدقائي الاكارم السلام عليكم و رحمة الله و بركاته الجزء الثالث في هذا الجزء سنقوم بانشاء سكريبت لاستخدامه في انشاء جداول قاعدة البيانات في SQL الجزء الثالث.pdf

بعض الحلول جرب ربط الجداول مع قاعدة بيانات جديدة جرب نسخة SQL Express

الجزء الثاني في هذا الجزء سنقوم بتصدير قاعدة بيانات اكسس الى SQL الجزء الثاني.accdb الجزء الثاني.pdf

تسلم استاذ @محمد سلامة

طبعا اخي الكريم @النجاشي و بامكانك التجريب و موافاتنا بالنتائج في حال حدوث اخطاء ليتم معالجها ملاحظة هامة نسخة الاوفيس يجب انو تكون نسخة ٣٢ بت

تسلم يا استاذ @ابوخليل اي والله جبنا غنيمة 🙂

السلام عليكم و رحمة الله و بركاته اصدقائي الاكارم تحية طيبة في هذا التطبيق سنقوم بتحويل قاعدة بيانات اكسس الى SQL Server طبعا قد يعتبر البعض الموضوع قديم نوعا ما و لكن في هذا التطبيق تم التجريب على ويندوز 11 و اوفيس 2021 32بت و SQL 2005 نسخة مخصصة للعمل على ويندوز 11 قبل البدء لا ننسى ان نقوم باخذ نسخة احتياطية من قاعدة بيانات اكسس و اضافة المكتبات الموضحة في الصورة الى قاعدة البيانات ملاحظة : مكتبة microsoft office 16 object library موجودة في المسار "C:\Program Files (x86) \ Microsoft Office \ root \ vfs \ ProgramFilesCommonX86 \ Microsoft Shared \ OFFICE16\MSO.dll" برنامج SQL Server برنامج إدارة قواعد بيانات SQL برنامج ترحيل قواعد بيانات اكسس الى SQL Server الجزء الاول.pdf 1.bmp

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

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

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