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

[mhm55]

اريد تحديث بيانات اكسس من اكسل وقد استخدمت هذا الكود :

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

تم تعديل ديسمبر 12 بواسطه Moosak
تنسيق الكود

[Foksh]

16 ساعات مضت, mhm55 said:

ولكن يضهر لي خطاء في  CurrentDb.Execute SQL

في مشاركتك الأولى ، أهلا وسهلاً بك معنا أخي الكريم @mhm55 . ونتمنى أن تجد ما تبحث عنه من فائدة ومعلومة ونصيحة 

 

اسمح لي أولا بلفت انتباهك إلى ضرورة التقيد بـ قوانين المنتدى ، حتى تصل إلى مطلوبك بشكل سريع و واضح . ومن هذه الأمور التي عليك الإلتزام بها :0

1. ضرورة الإيضاح في طلبك بشكل كافي و شافي و وافي .

2. ارفاق ملف لتوضيح الصورة إن لزم الأمر .

3. لوضع كود في المشاركة ، استخدم علامتي التكويد <> ثم لصق الكود ليكون سهلاً في القراءة ؛ كما سترى لاحقاً .

 

أما بالنسبة لطلبك ومشكلتك ،، عليك أولا التأكد من أمرين مهمين هما :-

 

1. تأكد أن ملف الإكسيل موجود في المسار المحدد في الكود (CurrentProject.Path & "\ITEMX.xlsx")

2. تأكد أن اسم ورقة العمل في ملف الإكسيل هو فعلاً = "SHEET1$" . إذا كان الاسم مختلفاً ، قم بتعديله في الكود .

3. جملة الإستعلام في الكود الذي ارسلته غير صحيحة في آكسيس ، والتالي تعديل عله يكون صحيحاً
* بعد تجربة الكود على ملف سابق كما أشار معلمنا @أبو إبراهيم الغامدي ، تبين ان الكود الأصلي في مشاركتك يعمل بدون أي مشاكل . والجملة 3 أعلاه أصبحت بعد لتجربة غير صحيحة 

 

 

أشكر معلمنا الفاضل للفت انتباهي  

تم تعديل ديسمبر 12 بواسطه Foksh
تصحيح معلومة خاطئة ، وحذف الكود لعدم أدائه المهمة

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

1 ساعه مضت, Foksh said:

3. جملة الإستعلام في الكود الذي ارسلته غير صحيحة في آكسيس ، والتالي تعديل عله يكون صحيحاً

أصل هذه الشفرة في المشاركة التالية

 

[mhm55]

اخي حاولت اعدل الاستعلام لاكن لم يقبل الا حقلين فقط واريده لعدة حقول سارفق الملف وانت عدل الاستعلام على هذه الحقول شاكر تعاونكم معي

 

ITEMX.rar

تم تعديل ديسمبر 14 بواسطه mhm55

[mhm55]

في 11‏/12‏/2024 at 23:55, أبو إبراهيم الغامدي said:

أصل هذه الشفرة في المشاركة التالية

 

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

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

6 ساعات مضت, mhm55 said:

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

لكون ورقة البيانات في أكسل تحتوي على حقول كثيرة، أقترح عليك عمل ذلك عن طرق استخدام محرر الاستعلام في أكسس... وفقا للخطوات التالية

الخطوة الأولى.. قم بتغيير الدليل الإفتراضي لأكسس لكي يشير إلى دليل قاعدة البيانات الحالية، كما في القصاصة التالية

  

 

الخطوة الثانية.. نكون جملة استعلام للاتصال بورقة البيانات ومن ثم نوقوم بحفظه، كما في القصاصة التالية

 

الخطوة الثالثة: ننشىء استعلام تحديث بيانات بين جدول البيانات وبين استعلام الاتصال الذي أنشأناه في الخطوة السابقة، مع مراعات العلاقة بين هذين المصدرين (جميع البيانات من استعلام بيانات أكسل، والبيانات التي تقابها من جدول بيانات الموظفين)..

العلاقة بهذه الصورة تسمح بتحديث جدول بيانات الموظفين إذا كانت اليانات موجودة مسبقا، كما تسمح باضافة البيانات الجديدة.. أنظر القصاصة التالية

الخطوة الرابعة.. اختيار الحقول المطلوب تحديثها كما في القصاصة التالية (إصدار الأكسس لدي يدعم التحرير الذكي)

الخطوة الأخيرة نغير الشفرة تحت زر الأمر لتصبح كالتالي

Private Sub CMD_UPDATE_Click()
   '-- تعطيل رسائل التحذير
   DoCmd.SetWarnings False
   '-- تشغيل استعلام مزامنة البيانات
   DoCmd.OpenQuery "[مزامنة البيانات]"
   '-- تفعيل رسائل التجذير
   DoCmd.SetWarnings True
   '-- إعادة تنشيط جدول بيانات الموظفين
   Me.Child0.Requery
End Sub

ملاحظة مهمة..

ورقة البيانات ليس فيها بيانات! ولذا عند تشغيل استعلام مزامنة البيانات سوف يرجع لنا رسالة خطأ بعدم مطابقة البيانات  

 

المرفق بعد التعديل..

tb_الموضفين.zip