اريد تحديث بيانات اكسس من اكسل وقد استخدمت هذا الكود :
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
ولكن يضهر لي خطاء في CurrentDb.Execute SQL
