محمد ايمن

الأصدقاء الاكارم السلام عليكم و رحمة الله و بركاته اعتقد ان الموضوع قديم نوعا ما و لكن الكل يعاني من مربعات الحوار حفظ و فتح ملف ( و انا واحد منهم 😅) الحل موجود هنا 🙂 OpenSaveFileDialog.rar

تفضل اخي الكريم Out-Get_Table_Excel.rar

اخي الكريم معيار الاستعلام ( الايجار المستحق عن شهر ) هو تحويل تاريخ (المدة الى) شهر و سنة اظهار النتائج المطابقة بينما الصورة الثانية تبحث برقم الشقة !!!

اخي الكريم تحية طيبة يرجى التوضيح اكثر ماهي المعايير التي حكمت عليها بان الاستعلام خاطئ ؟؟ الشقة 802 ينتهي ايجارها ب 11-5 ومن الطبيعي ظهورها في الاستعلام !! WHERE (((Year([Duration_to]))=[forms]![f3]![txtyear1]) AND ((Month([Duration_to]))=[forms]![f3]![txtMonth])) معيار الاستعلام هو السنة و الشهر فقط و بالتالي هو يرجع نتائج صحيحة ! يرجى التوضيح اكثر للمساعدة

تفضل اخي الكريم Out-Get_Table_Excel.rar

لا اخي الكريم تختار المسار من الزر الاول للحفظ و تختار المسار من الزر الثاني للاستيراد 1.bmp 2.bmp

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

اخي الكريم تحية طيبة لنفرض جدلا اننا حددنا يوم السبت للنسخ الاحتياطي و شاءت الأسباب ان يكون عطلة! بالتالي لن يتم اخذ نسخة احتياطية حتى يأتي السبت التالي لم لا تجعل الكود عند اغلاق البرنامج حيث تظهر رسالة تنبيه لأخذ نسخة احتياطية ( نعم او لا ) اضف الى ذلك ان المسار 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

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