السلام عليكم ....
لدي جدول فيه بيانات كثيررررة جداً ...
ومن ضمن حقول حقل ( الرمز ) ..
أريد نموذج يكون فيه مربعين نصين ... الأول أدخل فيه الرمز القديم في الجدول لأستبداله برمز جديد ( مربع النص الثاني ) وتطبيق ذلك على جميع السجلات التي في الجدول التي تحمل الرمز القديم .
والمثال المرفق يوضح .
أخي فتى الوادي
وضعت لك مثال مربع النص الاول يستند على البيانات القديمة لذا فلا داعي لتغييره
مربع النص الثاني عنصر غير منضم تضع فيه الرمز الجديد .. وسيتم تحديث البينات جميعا مهما أختلفت للرمز الجديد
أما إذا كنت ترغب تحديث بيانات محدد فقط من الجدول مثل أن تحدث كل من رمزهم في الجدول 4 مثلا دون غيرهم
فمثالي هذا لايخدمك عذرا .. عليك بعمل استعلام تحديث ووضع المعايير لذلك .. لضيق الوقت أعذرني وفقك الله
تحياتي :)
أخي الكريم جزاك الله خيراً ...
لم يكن هذا المطلوب ... المطلوب أن أحدد له سجلات تحمل الرمز مثلاً ( 1 ) ليتم تغير هذا الرمز في تلك السجلات إلى مثلا ( 99 )
... سأحوال الأستفادة من الكود الذي وضعته في مثالك .
غفر الله لك .
\\ذكرتني بسؤالك اخي فتى الوادي على هذا الرابط\\
هل تمت العملية بنجاح وضبط معاك ولا لا
ريح من الزفرات تعصف في الحشى &&& و ورائها مطر من العبرات
ابو حسن
أستاذنا المبرمج 2003
هذا هو المطلوب وجزاك الله خيراً وزوجك الله بكراً ... وغفر الله لك ولوالديك ...
أما سؤالي السابق الذي وضعته رابطه ... فالطريقة التي ذكرتها عن طريق الأستعلام صعبة .. والصعوبة تكمن في كتابة جميع الجنسيات وما يقابها من تحويل ...
والحل أني سويت أستعلام إلحاق وربطته بجدول الجنسيات الجديد .. وما شي الحال ..
أكرر شكري وتقديري لك ولجميع الأخوة .
والسلام عليكم .
تم تعديل هذه المشاركة بواسطة المبرمج2003 في 12 يناير 2007 في 15:39
أخوي الكريم ..
هل ممكن زيادة بسيطة :
وهي لو كان حقل الرمز فارغاً ...
واريد تبديل قيم حقل الرمك الفارغة برقم أو بحرف ؟
يعني لو كان لدي عدد سجلات حقل الرمز فيها فارغاً لا يحمل أي قيمة ... واريد استبدال هذه الحقول الفارغة برقم أو بحرف ..
فما هو التعديل المناسب للكود ؟!
هذا التعديل على الكود
DoCmd.SetWarnings False If IsNull(txtold) Then DoCmd.RunSQL "UPDATE t_11 SET t_11.txtid = forms!form1!txtnew WHERE (((t_11.txtid) Is Null));" MsgBox "تم تعديل القيم الفارغة,,," Else DoCmd.RunSQL "UPDATE t_11 SET t_11.txtid = forms!form1!txtnew WHERE (((t_11.txtid)=[forms]![form1]![txtold]));" DoCmd.SetWarnings True MsgBox "تم تعديل الرمز القديم بالرمز الجديد بنجاح,,," End If
وهذا المرفق بعد التعديل
ريح من الزفرات تعصف في الحشى &&& و ورائها مطر من العبرات
ابو حسن
هذا الموضوع مغلق.