كود تحديث قيمة حقل في جدول

[qathi]

السلام عليكم اساتذتي واخواني الأفاضل أعضاء المنتدى

المطلوب كما هو واضح من العنوان

كود VBA يقوم بتغيير قيمة ( رقم ) حقل PrintC الموجود في جدول VMain_T

 

قمت بعمل كود الاستعلام التحديث التالي ولم ينفع

    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE VMain_T SET ViMain_T.PrintC = 4;"
    DoCmd.SetWarnings True

 

 

تم تعديل ديسمبر 3, 2022 بواسطه qathi

[AbuuAhmed]

1 ساعه مضت, qathi said:

ViMain_T.PrintC

جرب بدل النقطة إلى علامة تعجب
وجرب أيضا أن تكتب اسم الحقل فقط بدون اسم الجدول وبدون النقطة

[qathi]

11 ساعات مضت, AbuuAhmed said:

جرب بدل النقطة إلى علامة تعجب
وجرب أيضا أن تكتب اسم الحقل فقط بدون اسم الجدول وبدون النقطة

أستاذي أبو أحمد قمت بتطبيق الذي اشرت ولم ينفع .. هل توجد طريقة أخرى ؟؟؟

[AbuuAhmed]

كتبت لك من حفظي ، سأفتح الأكسس وأجرب وأرجع لك ، واللي جاهز قبلي فليتفضل لا تنتظروني.

[AbuuAhmed]

أخي الثلاث حالات صحيحة يعني بالنقطة أو بعلامة التعجب أو بدون اسم الجدول

الآن تحتاج تتأكد من نوع الحقل فإذا كان نصي سنجري عليه تعديل بسيط وإذا كان رقمي تحتاج تتأكد من المسميات اسم الجدول واسم الحقل.
وإذا مانفع ربما "الأندر سكور" مسببة مشكلة وحلها وضغ الأسم بين أقواس مربعة [ ] 

[qathi]

7 دقائق مضت, AbuuAhmed said:

أخي الثلاث حالات صحيحة يعني بالنقطة أو بعلامة التعجب أو بدون اسم الجدول

الآن تحتاج تتأكد من نوع الحقل فإذا كان نصي سنجري عليه تعديل بسيط وإذا كان رقمي تحتاج تتأكد من المسميات اسم الجدول واسم الحقل.
وإذا مانفع ربما "الأندر سكور" مسببة مشكلة وحلها وضغ الأسم بين أقواس مربعة [ ] 

ملاحظة أستاذي أبو أحمد ..

عند استخدام الكود في وضعية تصميم الاستعلام والضغط على تشغيل يعمل كود sql بشكل طبيعي .. لكن عند تشغيلة في وضعية VBA فانه لا يعمل

 

قمت بعمل القوسين على اسم الحقل ولم يعمل

[biskra]

جربت الكود يشتغل عادي من خلال زر على النموذج

fff2.accdb

[AbuuAhmed]

جرب كذا
 

DoCmd.RunSQL "UPDATE [VMain_T] SET [ViMain_T].PrintC = 4;"

أو كذا
 

DoCmd.RunSQL "UPDATE [VMain_T] SET [ViMain_T].PrintC = '4'"

هذي آخر حلولي 🙂 

[AbuuAhmed]

13 دقائق مضت, qathi said:

ند استخدام الكود في وضعية تصميم الاستعلام والضغط على تشغيل يعمل كود sql بشكل طبيعي .. لكن عند تشغيلة في وضعية VBA فانه لا يعمل

احتمال يوجد رمز غير مرئي فجرب تمسح العبارة وسطر قبله وسطر بعده ثم أعد كتابة العبارة من جديد.

[biskra]

تم تجربة الكود باسم الجدول و الحقل كما ورد في السؤال و فعلا لم يشتغل قمت بتغيير اسم الجدول فاشتغل عادي يظهر أن اسم الجدول ربما من الأسماء المحجوزة

 

fff2.rar

تم تعديل ديسمبر 3, 2022 بواسطه biskra

[qathi]

36 دقائق مضت, AbuuAhmed said:

احتمال يوجد رمز غير مرئي فجرب تمسح العبارة وسطر قبله وسطر بعده ثم أعد كتابة العبارة من جديد.

أستاذي أبو أحمد شكرا لك

28 دقائق مضت, biskra said:

تم تجربة الكود باسم الجدول و الحقل كما ورد في السؤال و فعلا لم يشتغل قمت بتغيير اسم الجدول فاشتغل عادي يظهر أن اسم الجدول ربما من الأسماء المحجوزة

أستاذي biskra شكرا لك

 

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

VMain_T

وهذا سبب في عدم عمل الكود

فقمت بعمل الكود التالي

PrintC = 4

 

فتم حل المشكلة

أعتذر لأني لم انتبه لهذا الأمر البسيط

 

وشكرا لكم على مجهودكم الرائع .. وجزاكم الله خيرا