كيف يمكن تغيير قيمة افتراضية لحقل فى قاعدة بيانات مقسمة

[الحلبي]

السلام عليكم 

سؤالى يمكن يكون صعب شوية هذه المرة :   وهو عندى قاعدة بيانات مقسمة الى قاعدة امامية وقاعدة خلفية 

والقاعدة التى بها الجداول يوجد جدول به حقل وجعلت القيمة الافتراضية له هى 70 

كيف يمكن تعديل هذه القيمة فى قاعدة الجداول الى 60 بحيث تظهر فى جميع السجلات 60 وعند التعديل فى القيمة الافتراضية الى 50 او 40 تصبح فى جميع السجلات حسب التعديل

نحتاج الى كود فى VPA لتعديل القيمة الافتراضية فى الجدول الاساسى علما بان اسم الجدول فى قاعدة الجداول هو TABLE

لا نحتاج الى مرفق 

جزاكم الله خيرا

[AlwaZeeR]

وعليكم السلام ورحمة الله وبركاته

Sub UpdateDefaultValueAndRecords()
    Dim dbs As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Dim strTableName As String
    Dim strFieldName As String
    Dim strNewDefaultValue As String

    strTableName = "YourTbl"
    strFieldName = "FieldName"
    strNewDefaultValue = "60"

    Set dbs = OpenDatabase("C:\Path\To\Your\Backend\Database.accdb")

    Set tdf = dbs.TableDefs(strTableName)
    Set fld = tdf.Fields(strFieldName)

    fld.DefaultValue = strNewDefaultValue

    dbs.Execute "UPDATE [" & strTableName & "] SET [" & strFieldName & "] = " & strNewDefaultValue & " WHERE [" & strFieldName & "] = 70", dbFailOnError

    dbs.Close
    Set fld = Nothing
    Set tdf = Nothing
    Set dbs = Nothing

    MsgBox "تم تحديث القيمة الافتراضية وتحديث السجلات الحالية بنجاح!"
End Sub

 

[ابوخليل]

2 ساعات مضت, الحلبي said:

 

لا نحتاج الى مرفق 

جزاكم الله خيرا

اثبت يا دكتور .. تعجبني الثقة بالنفس  ..

 امامك مقاومات :

 قاعدة الجداول عندك محمية بكلمة مرور

وايضا تريد المرونة في تحديث قيمة الحقل لأي قيمة تستجد

ملحوظة صغيرة : تسمية الجدول بـــــــ TABLE خطأ

[الحلبي]

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

وعليكم السلام ورحمة الله وبركاته

اشكر استاذنا القمة / @AlwaZeeR

وجزاك الله كل خير على المداخلة والمساعدة ـ اريد ان اعرف اين اضع هذا الكود ومعلمنا واستاذنا / @ابوخليل قد نبهنا الى ان  قاعدة الجداول المقسمة بها كلمة سر 

فهل ينفع ان اغير القيمة الافتراضية فيها وهى (70%) وعند التعديل اين اضع التعديل الى 60% مثلا

على كل حال ان ارفقت مرفق صغير 

الموضوع باختصار شديد كما موضح بالمرفق ان عندى قاعدة بيانات مقسمة (لم اظهر التقسيم فى المثال) وفى قاعدة النماذج تم تحويلها الى صيغة Accde لحماية الاكواد

عندى حقل فى جدول عبارة قيمة عددية اسمه المبلغ ـ وحقل اخر اسمه النسبة   انا اريد ان احسب مثلا

المبلغ 80 واحسب منها 70% كم يكون الناتج  مع العلم ان النسبة تظهر بالشكل 70000% لا ادرى ما السبب بينما انا اريد ان تظهر 70%

وفى بعض الاوقات اريد ان اعدل النسبة الى 60% او 80% فكيف يكون ذلك ـ هذا كل الموضوع

بارك الله فيك وفى علمك ورزقك ان شاء الله

 

استاذنا ومعلمنا الفاضل / ابو خليل

جميلة قوى جملة (اثبت يادكتور) جعلتنى اضحك بشكل مبالغ فيه ـ يمكن اكون عندى شوية ثقة بس فى اشياء اخرى غير الاكسس

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

جزاك الله كل خير على مساعدتك المستمرة لنا

تعديل القيمة الافتراضية.accdb

[AlwaZeeR]

تفضل:

تستطيع تعديل القيمة الافتراضية في قاعدة خارجية بكلمة مرور لا مشكلة

لكن بشرط ان لا يكون الجدول مفعل بمعنى: ان لا يكون مفتوح من قبلك في قاعدة الواجهه

ارفقت لك مثالك موضح فيه ما تريد

===

 

::

تحياتي

تعديل القيمة الافتراضية.accdb

[الحلبي]

منذ ساعه, AlwaZeeR said:

رفقت لك مثالك موضح فيه ما تريد

اسف جدا عند الضغط على اى من الازرار تظهر هذه الرسالة

طيب القاعدة عندى كل سجلاتها الان بها حقل النسبة عبارة 70%  وتظهر جميع السجلات بهذه النسبة (لان فى قاعدة الجداول ووضعت القيمة الافتراضية لحقل النسبة وهو 70) 

كيف اغيرها مثلا بعد ثلاث اشهر الى 60% لو تكرمت طبق معى على المثال المرفق

وكيف نحسب المبلغ بعد خصم الـ70%

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

نسيت ارفق الرسالة التى تظهر لى

[AlwaZeeR]

ما في مثال مرفق

والرسالة بتظهر لانو حقل القيمة الافتراضية فارغ

بتقدر تضيف رسالة في الكود في حال كان الحقل فارغ

 

[الحلبي]

19 دقائق مضت, AlwaZeeR said:

تقدر تضيف رسالة في الكود في حال كان الحقل فارغ

استاذنا الفاضل عرفت ان نضيف كود فى حال كان الحقل فارغ

مرفق لحضرتك مثال فيه قاعدة البيانات مقسمة 

وعند اضافة مثلا  النسبة =60% فى حقل النسبة فانها لا تضاف الى الجدول وسجلاته ضع جضرتك بنفسك ولاحظ ماذا يجرى

القيمة الافتراضية.rar

[ازهر عبد العزيز]

محاولة مني

 

القيمة الافتراضية.rar

[الحلبي]

15 دقائق مضت, ازهر عبد العزيز said:

محاولة مني

استاذ / ازهر

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

عندى لم يظهر شى فى المرفق تبعك

[ازهر عبد العزيز]

الافضل استخدام استعلام  واعتدر ان لم يكن المطلوب تفضل لعلة المطلوب

تعديل القيمة الافتراضية.accdb

[الحلبي]

13 دقائق مضت, ازهر عبد العزيز said:

واعتدر ان لم يكن المطلوب تفضل لعلة المطلوب

الله ينور عليك تمام الله يباركلك

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

الاستاذ/ ازهر بدون استخدام استاذ الوزير تم المطلوب

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

جزاك الله كل خير

تم تعديل سبتمبر 4, 2024 بواسطه الحلبي

[ازهر عبد العزيز]

16 دقائق مضت, الحلبي said:

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

جزاك الله كل خير

 لن تتاثر القاعدة المقسمة وستكون النتيجة واحدة

[الحلبي]

14 دقائق مضت, ازهر عبد العزيز said:

 لن تتاثر القاعدة المقسمة وستكون النتيجة واحدة

سأجرب واشوف 

حضرتك لم ترد على سؤالى هل تم هذا بدون استخدام كود الاستاذ الفاضل / الوزير

[ابوخليل]

ملوحظة :

اذا الجدول يحتوي على بيانات متغيرة تاريخية فمن غير المتصور تغييرها بتحديث او غيره

نفرض ان الجدول يحتوي على آلاف السجلات ويوجد ضمن السجل حقل النسبة

اذا غيرت فقط القيمة الافتراضية بدون تحديث الجدول فإن النسبة الجديدة ستظهر .. مع كل سجل جديد يتم ادراجه مع بقاء البيانات القديمة كما هي لا تتأثر

والأولى والافضل من كل هذا ان تلغي القيمة الافتراضية ويتم ادخال النسبة يديويا

[الحلبي]

1 ساعه مضت, ابوخليل said:

الأولى والافضل من كل هذا ان تلغي القيمة الافتراضية ويتم ادخال النسبة يديويا

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

[ازهر عبد العزيز]

16 ساعات مضت, الحلبي said:

حضرتك لم ترد على سؤالى هل تم هذا بدون استخدام كود الاستاذ الفاضل / الوزير

نعم بدون استخدام كود الاستاد الوزير لانة حسب اعتقادي اعتقد انك تريدها باستخدام الكود وليس استعلام 

 

في 3‏/9‏/2024 at 22:49, الحلبي said:

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

 

[الحلبي]

29 دقائق مضت, ازهر عبد العزيز said:

عم بدون استخدام كود الاستاد الوزير

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

بارك الله فيك ورزقك وجعله فى ميزان الحسنات