السلام عليكم ..
ممطن طريقة تقسم الكود لاكثر من سطر لسهولة المعاينة علماَ اني إستخدمت (_) وظهر خطأ ..
'DoCmd.RunSQL "insert into T1 ([a],,[c],[d],[e],[f],[g],[h],,[j],[k]) values('" & rs.Fields(1) & "', '" & rs.Fields(2) & "', '" & rs.Fields(3) & "', '" & rs.Fields(4) & "', '" & rs.Fields(5) & "', '" & rs.Fields(6) & "', '" & rs.Fields(7) & "', '" & rs.Fields(8) & "', '" & rs.Fields(9) & "', '" & rs.Fields(10) & "', '" & rs.Fields(0) & "')"
وان تكون النتيجة النهائية للكود
'DoCmd.RunSQL "insert into T1 ([a],,[c] _
,[d],[e],[f],[g] _
,[h],,[j],[k]) values('" & rs.Fields(1) & "', '" & rs.Fields(2) & "', '" & rs.Fields(3) & _
"', '" & rs.Fields(4) & "', '" & rs.Fields(5) & "', '" & rs.Fields(6) & "', '" & rs.Fields(7) & "', '" & rs.Fields(8) & "', '" & rs.Fields(9) & "', '" & rs.Fields(10) & "', '" & rs.Fields(0) & "')"