لدي قاعدتين على جهازين مختلفين :
قاعدة واحدة في كل جهاز ، كل جهاز تدخل فيه بيانات تخزن في جدول T_DATA
...
أريد أن أنقل السجلات من الجهاز ( أ ) إلى الجهاز ( ب ) بين فترة وفترة .
يتطلب هذا أن أقوم بفرز السجلات التي سبق لي نسخها حتى لا تكرر ...
__
أريد كود يقوم بنسخ السجلات من قاعدة إلى قاعدة أخرى مع حذف السجل المتكرر ..
علماً بأن الذي يميز السجل من غيره هما حقلين ( الرقم ) و ( التاريخ )
السلام عليكم
اعتقد انك طرحت هذا السؤال منذ ايام ولكن بطريقة اخرى وصعب علينا بعض الشئ فهم ماتريد بالظبط..
عموما سؤالك هذه المرة واضح وصريح واليك المثال التالي وان شاء الله يفي بغرضك باذن الله
تحياتي لك اخي الكريم :)
ولكن يجب عليك نسخ القاعدتين في مثالي هذا لتكون داخل فولدر يحمل هذا المسار
C:\Data
افحص المثال ثم بعد ذلك يمكنك تغيير مكان الملفين (القاعدة المصدر Source والقاعدة الهدف Destination) في المكان الذي تريد ثم حدث الارتباط في القاعدة المصدر Source..
جرب والله الموفق
وَلَوْلا دَفْعُ اللَّهِ النَّاسَ بَعْضَهُم بِبَعْضٍ لَّفَسَدَتِ الأَرْضُ وَلَكِنَّ اللَّهَ ذُو فَضْلٍ عَلَى العَالَمِينَ
واذا كنت تريد تنفيذ غرضك باستخدام كود ودون استخدام استعلام الحاقي Append Query.. لك ماتشاء اخي الكريم يمكنك استخدام هذا الكود
DoCmd.RunSQL "INSERT INTO T_DATA_db2 ( [No], [Date] ) SELECT T_DATA.[No], T_DATA.Date FROM T_DATA LEFT JOIN T_DATA_db2 ON (T_DATA.Date = T_DATA_db2.Date) AND (T_DATA.[No] = T_DATA_db2.[No]) WHERE (((T_DATA_db2.[No]) Is Null));"
ضعه في زر امر وان لم يفلح فتأكد انه تم تسجيل هذه الـ References لديك في الـ VBA
بالتوفيق ;)
وَلَوْلا دَفْعُ اللَّهِ النَّاسَ بَعْضَهُم بِبَعْضٍ لَّفَسَدَتِ الأَرْضُ وَلَكِنَّ اللَّهَ ذُو فَضْلٍ عَلَى العَالَمِينَ
هذا الموضوع مغلق.