تحديث بيانات اكسس من اكسل

[tiger wanted]

بسم الله الرحمن الرحيم 

كيف يمكن عمل تحديث جدول اكسس من ملف اكسل يحتوى على نفس العناوين ولكن البيانات متغيرة ولكم جزيل الشكر

[tiger wanted]

برجاء الرد على الموضوع لو امكن

[tiger wanted]

بسم الله الرحمن الرحيم 

برجاء ارسال الرد على هذا الموضوع للاهمية وشكرا

[ناقل]

دائما اخي الكريم ارفق مع سؤالك مثال مبسط لما تريد حتى يسهل وضع الحل المناسب ... بارك الله فيك

[tiger wanted]

مرفق لكم ملف اكسس وملف اكسل اريد عمل تحديث update للاكسس دفعة واحدمن اكسل واشكركم

New Microsoft Access Database11.mdb New Microsoft Access Database.accdb New Microsoft Excel Worksheet.xlsx

[ناقل]

في ١‏/١٠‏/٢٠٢٠ at 11:57, tiger wanted said:

كيف يمكن عمل تحديث جدول اكسس من ملف اكسل يحتوى على نفس العناوين ولكن البيانات متغيرة ولكم جزيل الشكر

ولكن في فرق في اسماء العناويين بين ملف الاكسس وملف الاكسل 

هناك فرق بين كود_الصنف و كود الصنف

ارجو الرد ؟؟؟

[tiger wanted]

يمكن التعديل فى الاسماء لا يهم ذلك ولكن المهم هو التحديث وشكرا

[ناقل]

3 ساعات مضت, tiger wanted said:

يمكن التعديل فى الاسماء لا يهم ذلك ولكن المهم هو التحديث وشكرا

طيب انشأ نموذج وضع فيه زر وضع تحث حدث عند النقر للزر هذا الكود .....

Dim fpath As String
fpath = Application.CurrentProject.Path & "\New Microsoft Excel Worksheet.xlsx"
DoCmd.TransferSpreadsheet acImport, 8, "Table1", fpath, True

 

[tiger wanted]

اشكرك على الحل ولكن انا اريد التحديث وليس الالحاق وشكرا لك

[tiger wanted]

برجاء التعديل الكود للتحديث وليس الالحاق

[tiger wanted]

هل يوجد اجابة وشكرا للجميع 

[أبو إبراهيم الغامدي]

أهلا بك..

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

[tiger wanted]

اشكركم  على هذا الحل الممتاز شكرا جزيلا واعترف بفضل هذا المنتدى واشكر جميع الاعضاء والمشرفين وجعل هذا المنتدى دائما عون لكل متابعيه وشكرا