tiger wanted قام بنشر أكتوبر 1, 2020 مشاركة قام بنشر أكتوبر 1, 2020 بسم الله الرحمن الرحيم كيف يمكن عمل تحديث جدول اكسس من ملف اكسل يحتوى على نفس العناوين ولكن البيانات متغيرة ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
tiger wanted قام بنشر أكتوبر 1, 2020 الكاتب مشاركة قام بنشر أكتوبر 1, 2020 برجاء الرد على الموضوع لو امكن رابط هذا التعليق شارك More sharing options...
tiger wanted قام بنشر أكتوبر 7, 2020 الكاتب مشاركة قام بنشر أكتوبر 7, 2020 بسم الله الرحمن الرحيم برجاء ارسال الرد على هذا الموضوع للاهمية وشكرا رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر أكتوبر 7, 2020 مشاركة قام بنشر أكتوبر 7, 2020 دائما اخي الكريم ارفق مع سؤالك مثال مبسط لما تريد حتى يسهل وضع الحل المناسب ... بارك الله فيك 1 رابط هذا التعليق شارك More sharing options...
tiger wanted قام بنشر أكتوبر 8, 2020 الكاتب مشاركة قام بنشر أكتوبر 8, 2020 مرفق لكم ملف اكسس وملف اكسل اريد عمل تحديث update للاكسس دفعة واحدمن اكسل واشكركم New Microsoft Access Database11.mdb New Microsoft Access Database.accdb New Microsoft Excel Worksheet.xlsx رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر أكتوبر 8, 2020 مشاركة قام بنشر أكتوبر 8, 2020 في ١/١٠/٢٠٢٠ at 11:57, tiger wanted said: كيف يمكن عمل تحديث جدول اكسس من ملف اكسل يحتوى على نفس العناوين ولكن البيانات متغيرة ولكم جزيل الشكر ولكن في فرق في اسماء العناويين بين ملف الاكسس وملف الاكسل هناك فرق بين كود_الصنف و كود الصنف ارجو الرد ؟؟؟ 1 رابط هذا التعليق شارك More sharing options...
tiger wanted قام بنشر أكتوبر 9, 2020 الكاتب مشاركة قام بنشر أكتوبر 9, 2020 يمكن التعديل فى الاسماء لا يهم ذلك ولكن المهم هو التحديث وشكرا رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر أكتوبر 9, 2020 مشاركة قام بنشر أكتوبر 9, 2020 3 ساعات مضت, tiger wanted said: يمكن التعديل فى الاسماء لا يهم ذلك ولكن المهم هو التحديث وشكرا طيب انشأ نموذج وضع فيه زر وضع تحث حدث عند النقر للزر هذا الكود ..... Dim fpath As String fpath = Application.CurrentProject.Path & "\New Microsoft Excel Worksheet.xlsx" DoCmd.TransferSpreadsheet acImport, 8, "Table1", fpath, True 1 رابط هذا التعليق شارك More sharing options...
tiger wanted قام بنشر أكتوبر 11, 2020 الكاتب مشاركة قام بنشر أكتوبر 11, 2020 اشكرك على الحل ولكن انا اريد التحديث وليس الالحاق وشكرا لك رابط هذا التعليق شارك More sharing options...
tiger wanted قام بنشر أكتوبر 11, 2020 الكاتب مشاركة قام بنشر أكتوبر 11, 2020 برجاء التعديل الكود للتحديث وليس الالحاق رابط هذا التعليق شارك More sharing options...
tiger wanted قام بنشر أكتوبر 11, 2020 الكاتب مشاركة قام بنشر أكتوبر 11, 2020 هل يوجد اجابة وشكرا للجميع رابط هذا التعليق شارك More sharing options...
أفضل إجابة أبو إبراهيم الغامدي قام بنشر أكتوبر 12, 2020 أفضل إجابة مشاركة قام بنشر أكتوبر 12, 2020 أهلا بك.. 17 ساعات مضت, tiger wanted said: هل يوجد اجابة وشكرا للجميع نعم.. الشفرة التالية تقوم بالتحديث والإدراج معاً! Sub UPDATE_FROM_EXCEL() '-- GET EXCEL FILE Dim XL_FILE As String XL_FILE = CurrentProject.Path & "\ITEMX.xlsx" '-- WRITE SQL STATEMENT Dim SQL As String SQL = SQL & "UPDATE TABLE1 AS T1 " SQL = SQL & "RIGHT JOIN " SQL = SQL & "(SELECT * FROM [SHEET1$] IN'" & XL_FILE & "'" SQL = SQL & "[EXCEL 12.0;HDR=YES;IMEX=1;]) AS T2 " SQL = SQL & "ON T1.[كود_الصنف] = T2.[كود الصنف] " SQL = SQL & "SET T1.[كود_الصنف] = T2.[كود الصنف]," SQL = SQL & "T1.[اسم_الصنف] = T2.[اسم الصنف]" '-- RUN SQL STATEMENT CurrentDb.Execute SQL End Sub ITEMX.accdb ITEMX.xlsx 1 رابط هذا التعليق شارك More sharing options...
tiger wanted قام بنشر أكتوبر 12, 2020 الكاتب مشاركة قام بنشر أكتوبر 12, 2020 اشكركم على هذا الحل الممتاز شكرا جزيلا واعترف بفضل هذا المنتدى واشكر جميع الاعضاء والمشرفين وجعل هذا المنتدى دائما عون لكل متابعيه وشكرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان