[مصمم هاوي]

الرجاء المساعدة في تعديل هذا الكود، وهو نسخ بيانات طلبة (انتساب) فقط من جدول (TBL_Student) إلى جدول (TBL_Final)
وذلك اعتماداً على اسم الحقل: Category.
وهذا هو الكود:

كود :

On Error Resume Next: Err.Clear
'============================================
Dim DB As ADODB.Connection
'============================================
   Set DB = New ADODB.Connection
   DB.ConnectionString = _
       "Provider=Microsoft.Jet.OLEDB.4.0;" & _
       "Data Source=" & Dbs & ";" & _
       "Persist Security Info=False"
   DB.Open
   
   'حتى تتجنب مشكلة الفهارس و تضارب السجلات  يفضل
   
   DB.Execute "DELETE * FROM TBL_FinalB" ' افراغ الجدول السابق
   DoEvents
   
   ' واعادة نسخ البيانات اليه من جديد طبعاً مع التغيرات الجديدة في الجدول المنسوخ منه
   DB.Execute "INSERT INTO TBL_FinalB (ID,ID_Code, Name_Student,Clas,CClas,SETNO1,SETNO2,Category)" & _
   "SELECT ID,ID_Code, Name_Student,Clas,CClas,SETNO1,SETNO2,Category FROM TBL_Student"
   DoEvents
   
   DB.Close
   Timer1.Enabled = True