ترحيل البيانات المتكرره

اخي الفاضل

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

تحتاج لهذه العملية استخدام عدد 2 استعلام

الاول استعلام الحاق بيانات الحدول 1 الى الجدول 2

الثاني استعلام انشاء جدول جديد بواسطة القيم الفريده من الجدول الاول لينتج لديك جدول جديد هو جدول3

السبب في انشاء الجدول الجديد هو عدم حذف بيانات الجدول 1 لكي تستخدمها في المرات القادمة حيث انه لن يتم الحاق البيانات من الجدول الاول اذا كانت القيم خالية او غير مكرره وهذا الكود يوضع تحت زر الامر في النموذج في حدث عند النقر

Private Sub Export_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO T2 ( Name, Type, [Number] )SELECT T1.Name, T1.Type, T1.Number, * FROM T1;" DoCmd.RunSQL "SELECT DISTINCT T1.Name, T1.Type, T1.Number INTO T3 FROM T1;" DoCmd.OpenTable "T3", acViewNormal, acEdit
DoCmd.OpenTable "T3", acViewNormal, acEdit
DoCmd.SetWarnings True
End Sub

وهذا مثالك بعد التعديل

EXPORT.rar

اختكم

زهره