السلام عليكم
الاخت الفاضلة زهرة وبقية المتابعين
حول الموضوع التالي الذي اجابتني فيه مشكورة الاخت الفاضلة زهرة بوضع الكود المناسب لما طلبت
/index.php/topic/275762-مطلوب-نقل-بيانات-من-حقول-غير-منظمة-الى-حقول-الجدو/
الا اني قمت بزيادة عدد الحقول في النموذج والجدول بعدما كانت في المثال السابق فقط اربعه لتصبح في حدود الثلاثين تقريبا :
لاحظوا الكود الذي اضفت له
اقتباسDim strSQL As String
Dim i As Integer
For i = 1 To 19strSQL = ("INSERT INTO D ( [Gr], [a], , [c], [d], [e], [f], [g], [h], [j], [jj], [k], [l], [ll], [m], [n], [nn], [o], [p], [pp], [q], [r], [rr], , [t], [tt], , [v], [vv], [ee], [ff], [gg] ) VALUES('" & Me.Controls("Gr" & i) & "','" & Me.Controls("a" & i) & "', '" & Me.Controls("b" & i) & "','" & Me.Controls("c" & i) & "','" & Me.Controls("d" & i) & "','" & Me.Controls("e" & i) & "','" & Me.Controls("f" & i) & "','" & Me.Controls("g" & i) & "','" & Me.Controls("h" & i) & "','" & Me.Controls("j" & i) & "','" & Me.Controls("jj" & i) & "','" & Me.Controls("k" & i) & "','" & Me.Controls("l" & i) & "','" & Me.Controls("ll" & i) & "','" & Me.Controls("m" & i) & "','" & Me.Controls("n" & i) & "','" & Me.Controls("nn" & i) & "','" & Me.Controls("o" & i) & "','" & Me.Controls("p" & i) & "','" & Me.Controls("pp" & i) & "','" & Me.Controls("q" & i) & "','" & Me.Controls("r" & i) & "','" & Me.Controls("rr" & i) & "','" & Me.Controls("s" & i) & "','" & Me.Controls("t" & i) & "','" & Me.Controls("tt" & i) & "','"
& Me.Controls("u" & i) & "')")
CurrentDb.Execute strSQL, dbFailOnError
Next
الكود بعد زيادة عدد الحقول / الخانات في النموذج المراد نقلها للجدول يظهر مشكلة حيث أني محتاج لزيادة بقية الحقول لاحظوا بين :
INSERT INTO D ( [Gr], [a], , [c], [d], [e], [f], [g], [h], [j], [jj], [k], [l], [ll], [m], [n], [nn], [o], [p], [pp], [q], [r], [rr], , [t], [tt], , [v], [vv], [ee], [ff], [gg]
وبين الامر الذي الذي يقف عند الحرف tt ولا يقبل الزيادة عندي لربما لكتابتي اياه بالخطأ
& Me.Controls("Gr" & i) & "','" & Me.Controls("a" & i) & "', '" & Me.Controls("b" & i) & "','" & Me.Controls("c" & i) & "','" & Me.Controls("d" & i) & "','" & Me.Controls("e" & i) & "','" & Me.Controls("f" & i) & "','" & Me.Controls("g" & i) & "','" & Me.Controls("h" & i) & "','" & Me.Controls("j" & i) & "','" & Me.Controls("jj" & i) & "','" & Me.Controls("k" & i) & "','" & Me.Controls("l" & i) & "','" & Me.Controls("ll" & i) & "','" & Me.Controls("m" & i) & "','" & Me.Controls("n" & i) & "','" & Me.Controls("nn" & i) & "','" & Me.Controls("o" & i) & "','" & Me.Controls("p" & i) & "','" & Me.Controls("pp" & i) & "','" & Me.Controls("q" & i) & "','" & Me.Controls("r" & i) & "','" & Me.Controls("rr" & i) & "','" & Me.Controls("s" & i) & "','" & Me.Controls("t" & i) & "','" & Me.Controls("tt" & i) & "','"
& Me.Controls("u" & i) & "')")
عندما اضيف بعد الملون بالاحمر يظهر لي محرر الفيجوال خطأ بالأحمر
ارجو ان يتم التعديل مع الشكر

