الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

استكمالا لموضوع سابق : المطلوب التعديل على الكود

مغلقمُجاب
بدأه فرقدي في 26 فبراير 2013 · 6 رد · 490 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

 

الاخت الفاضلة زهرة وبقية المتابعين

 

حول الموضوع التالي الذي اجابتني فيه مشكورة الاخت الفاضلة زهرة بوضع الكود المناسب لما طلبت

 

/index.php/topic/275762-مطلوب-نقل-بيانات-من-حقول-غير-منظمة-الى-حقول-الجدو/

 

 

الا اني قمت بزيادة عدد الحقول في النموذج والجدول بعدما كانت في المثال السابق  فقط اربعه  لتصبح في حدود الثلاثين تقريبا :

 

لاحظوا الكود الذي اضفت له

 

اقتباس

Dim strSQL As String
Dim i As Integer
For i = 1 To 19

strSQL = ("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) & "')")
 

عندما اضيف بعد الملون بالاحمر  يظهر لي محرر الفيجوال  خطأ بالأحمر

 

 

ارجو ان يتم التعديل  مع الشكر

 

#2

تفضل اخي الكريم

 

الكود بعد التعديل

 

 

Dim strSQL As StringDim i As IntegerFor i = 1 To 32strSQL = ("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) & "','" & Me.Controls("v" & i) & "','" & Me.Controls("vv" & i) & "','" & Me.Controls("ee" & i) & "','" & Me.Controls("ff" & i) & "','" & Me.Controls("ggl" & i) & "')")CurrentDb.Execute strSQL, dbFailOnErrorNext
 
 
الخطأ
For i = 1 To 19
 
 
التصحيح
For i = 1 To 32
 
 
اذا تمت الإجابه على السؤال فلا تنسى الضغط على ( أفضل إجابة )
 
 
 
بالتوفيق

تم تعديل هذه المشاركة بواسطة zahrah في 26 فبراير 2013 في 09:47

#3

عاجز عن الشكر   اختي على تعاونك

 

ارفق لك القاعدة بالنموذج والجدول لترين الخطأ  بعد أن لصقت الكود الذي تفضلتي بارساله

 

ارجو  اخباري بمكان الخطأ فيه  مع الشكر الجزيل

db1.zip

#4 أفضل إجابة

اخي الفاضل : فرقدي

 

اتمنى في المرات القادمة بارك الله بك ان تنتبه لأسماء الحقول في النموذج جيدا  وانها مطابقة تماما لما في الكود حتى لا يحدث لديك اخطاء اثناء تنفيذ العملية

 

لأنني فمت بالتعديل على العديد من الحقول في النموذج قد كتبتها انت بطريقة خاطئة 

لاحظ في النسخة التي لديك ستجد حقل  rr 10   طبعا هذا خطأ لوجود المسافة بين rr والرقم 10  والمفروض يكون rr10

ايضا في الحقول b12 الى b18  لا توجد اي حقول فجميعها بهذه الطريقة  a213  

ايضا الحقول c12 الى c18  لا توجد لديك هذه الحقول في النموذج فكلها بهذه الطريقة  b231

 

لا اعلم من اين اخترعت هذه الحقول !!!!

 

عموما قمت بتعديل كل شيء لك سواء الكود او الحقول وبإمكانك التجربه وستجد ان كل شيء اصبح يعمل بشكل صحيح

 

 

اذا تمت الإجابه على السؤال فلا تنسى الضغط على ( أفضل إجابة )

تم تعديل المرفق 

za-LastUpdate.rar

 

بالتوفيق

تم تعديل هذه المشاركة بواسطة zahrah في 26 فبراير 2013 في 12:45

#5

اهلا بك اختي زهرة وبارك الله فيك

 

اضحك الله سنك  اضحكتيني في حكاية  من اي اخترعت هذه الحقول   ههه

 

المهم بارك الله فيك الان الموضوع مية مية  وجزيتي خيرا

 

أشكرك على التنبيه في الاخطاء في تسمية الحقول .

 

فهل الخطأ الذي يظهر في الكود هو بسبب  تسمية الحقول في النموذج ؟؟؟

 

 

الشي الثاني أختي  تظهر رسالة خطأ في بداية الكود   هنا :

 

Dim strSQL As String
Dim i As Integer
For i = 1 To 30

 

فالرسالة تقول ان  Gr20  غير موجود  اصلا

 

لو عدنا للنموذج  لوجدنا أن الحقول في العمود Gr

 

فقط  19  وهو المطلوب

 

لذا عندما عدلته الى

 

Dim strSQL As String
Dim i As Integer
For i = 1 To 19
 

 

اصبح يعمل بلا رسائل خطأ

 

فهل  هذا صحيح أختي ؟؟

 

أم أن الخطأ فقط يظهر عندي  مع ملاحظة ان العمود   Gr   في الجدول أو النموذج المطلوب فيه فقط  19 خانة

 

 

تحياتي

تم تعديل هذه المشاركة بواسطة فرقدي في 26 فبراير 2013 في 12:29

#6

الصحيح هو 

 

 

Dim strSQL As StringDim i As IntegerFor i = 1 To 19
 
ربما انني اخطأت في كتابة الرقم من 19 الى 32 من كثرة تتبع جميع حقول النموذج والتي اصبحت ارى فيها الحقل الواحد بثلاثة حقول ( يعني جابت لي العمى )   :) 
 
قم بالتعديل في الكود الى 19 وإن شاء الله كل شيء سيكون على ما يرام
 
بالتوفيق

تم تعديل هذه المشاركة بواسطة zahrah في 26 فبراير 2013 في 12:43

#7

بارك الله فيك تم التعديل بنجاح واعذريني فقد احوليت قبلك :)

 

موفقة اختي

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…