تجميع عدة نسخ فى النسخة الحالية

[N_ELMASRY]

السلام عليكم ورحمة الله وبركاته

برجاء المساعدة فى التعديل على كود تجميع عدة نسخ فى النسخة الحالية حيث هنا يتم تحديد مسار ثابت للبرنامج الأصلى الذى سيتم التجميع فيه. 

أريد تغيير هذا المسار ليصبح المسار المحدد فى شاشة التجميع عند اختيار النسخة التى سيتم التجميع عليها، أو التجميع فى النسخة الحالية مباشرة بدون تحديد مسار.

مرفق نموذج للتطبيق، ومن عنده كود اسهل لتجميع اكثر من جدول فى وقت واحد أكون شاكرا له

والسلام عليكم ورحمة الله وبركاته

رابط التحميل حيث ان الملف اكبر من المساحة المسموح بها

 

https://drive.google.com/file/d/1G3tETUTPV2OH8Mp2ldSp7X7aDQvIg8tj/view?usp=sharing

[N_ELMASRY]

هل من جديد؟؟

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

وعليكم السلام زرحمة الله وبركاته

نعم..

في الشفرة التالية استخدمت متغير قبل أن تسنده إلى قاعدة البيانات!

Private Sub Ok_Click()

addsql = "INSERT INTO data IN 'D:\Import.mdb'SELECT Data.* FROM Data ;"
db.Execute addsql

End Sub

والمفترض أن تسنده إلى قاعدة البيانات التي تريد أنت تجمع فيها البيانات وهي هنا القيمة الراجعة من مربع النص Me.TFichier بهذه الطريقة..

Private Sub Ok_Click()
Set db=CurrentDB
addsql = "INSERT INTO data IN '"& Me.TFichier &"'SELECT Data.* FROM Data ;"
db.Execute addsql

End Sub

اقترح عليك استخدام الشفرة التالية بدلا من الشفرة أعلاه

Private Sub Ok_Click()
  Set db = OpenDatabase(Me.TFichier)
  addsql = "INSERT INTO Data SELECT Data.* FROM Data;"
  db.Execute addsql
End Sub

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

لحل هذه المشكلة يمكن اتباع التالي..

إذا كنت تسخدم الترقيم التلقائي يجب استبعاده لأن أكسس سوف يتولى هذا عنك!.. وبناءً عليه يجب إدارج أسماء الحقول مفرقة في عبارة ... Select باستثناء الحقل الذي يحمل الترقيم التلقائي.

إذا كنت تسخدم قيم فريدة خاصة فيجب عليك استخدام أحد معاملات تدوير السجلات بعد أخذ أعلى قيمة لهذا الحقل ووضعها في متغير وتزيد علية الرقم 1 في كل دورة للسجلات.

تم تعديل أبريل 17, 2018 بواسطه أبو إبراهيم الغامدي
أخطاء إملائية

[N_ELMASRY]

جزاك الله خيرًا على الاستجابة وجارى التجربة

وللعلم فقط، هذا الكود أنا حصلت عليه من برنامج لأحد الزملاء ولم اكتبه بنفسى. 

تم تعديل أبريل 18, 2018 بواسطه N_ELMASRY