اريد تغير قيمة افتراضية حقل غير منضم

[Matin_Murad]

اريد تغير قيمة افتراضية حقل غير منضم بواسطة  ( زر   و  حقل غير منضم ) اخرى

قيمة افتراضية.accdb

[متقاعد]

7 ساعات مضت, Matin_Murad said:

اريد تغير قيمة افتراضية حقل غير منضم بواسطة  ( زر   و  حقل غير منضم ) اخرى

ممكن عمل ذلك ولكن الاجراء الصحيح ان يكون لدينا جدول للقيم الثابتة للبرنامج

على كل حال في زر الامر نضع الكود

Dim x As String
x = BB
    DoCmd.OpenForm "form1", acDesign
    Forms!form1!AA.DefaultValue = x
    DoCmd.close acForm, "form1", acSaveYes
    DoCmd.OpenForm "form1"

معنى الامر حسب ترتيب الاسطر

احجز متغيير نصي اسمه اكس

قيمة المتغيير اكسس تساوي المكتوب في حقل bb

افتح النموذج في عرض التصميم

اجعل القيمة الافتراضية للحقل aa تساوي المتغيير x

اغلق النموذج مع حفظ التغيير

اعد فتح النموذج

-----------------------------

ملاحظة 1 هذا الكود لن يعمل اذا كانت القاعدة بصيغة Accde او mde

ملاحظة 2 عند الرغبة كتابة نص للقيمة الافتراضية نكتب في حقل bb  النص هكذا  'منتهي' اما الارقام فتكتب بشكل عادي

تحياتي والملف مرفق

 

قيمة افتراضية.accdb

[أبو امين]

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

رجاءا افدنا بالمعلومة بمثال ان امكن نحن نريد التعلم و الاستفادة من حضرتكم 

جعلها االه في ميزان حسناتك 

تم تعديل يوليو 30, 2022 بواسطه derbali ammar

[متقاعد]

35 دقائق مضت, derbali ammar said:

ماذا تعني بجدول القيم القيم الثابتة  للبرنامج

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

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

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

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

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

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

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

هذا هو المقصود بالقيم الثابتة

تحياتي

[Moosak]

مشاركة مع معلمنا الكبير @مبرمج سابق ، ولحل قضية نوع البيانات المدخلة هذا تعديل بسيط على الكود ليستقبل أرقام أو نصوص أو تواريخ بدون الحاجة لوضع الأقواس أو ال # : 🙂 

Dim dv As String
dv = Nz(BB, " ")
DoCmd.OpenForm "form1", acDesign
Select Case dv
    Case IsNumeric(dv): [Forms]![form1]!AA.DefaultValue = dv
    Case IsDate(dv): [Forms]![form1]!AA.DefaultValue = "#" & dv & "#"
    Case Else
    [Forms]![form1]!AA.DefaultValue = "'" & dv & "'"
End Select
DoCmd.close acForm, "form1", acSaveYes
DoCmd.OpenForm "form1", acNormal

 

قيمة افتراضية.accdb

[متقاعد]

14 دقائق مضت, Moosak said:

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

احسنت استاذنا الفاضل @Moosak

والحقيقة لم احرص في مشاركتي على احترازات نوع الحقول لكون الطريقة في الاساس ليست عمليه ولن تعمل عند تحويل القاعدة

وانما وضعت المشاركة ردا على سؤال الاستاذ مراد واشرت بوضوح الى انها ليست الاجراء الصحيح

تحياتي

[متقاعد]

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

ليستقبل أرقام أو نصوص أو تواريخ بدون الحاجة لوضع الأقواس أو ال #

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

Dim x As String
x = Nz(BB, "")
    DoCmd.OpenForm "form1", acDesign
    Forms!form1!AA.DefaultValue = "'" & x & "'"
    DoCmd.close acForm, "form1", acSaveYes
    DoCmd.OpenForm "form1"

الملف مرفق

قيمة افتراضية(2).accdb

تم تعديل يوليو 30, 2022 بواسطه مبرمج سابق

[Moosak]

4 ساعات مضت, مبرمج سابق said:

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

أحسنت مهندسنا العزيز 🙂 

ولكن ربما نضطر لوضع الأسطر البرمجية التي استغنينا عنها الآن لاحقاً عندما نريد أن نستخدم قيمة الحقل لتفنيد نوع البيانات 😅

[متقاعد]

46 دقائق مضت, Moosak said:

حسنت مهندسنا العزيز

ياهلا بالاستاذ موسى

الحقيقة انا لست مهندس

كنت مبرمج ثم تدرجت في هذا المجال الى ان انهيت مساري الوظيفي بطلب التقاعد

46 دقائق مضت, Moosak said:

ولكن ربما نضطر لوضع الأسطر البرمجية التي استغنينا عنها الآن لاحقاً عندما نريد أن نستخدم قيمة الحقل لتفنيد نوع البيانات 😅

نعود للموضوع دائما عندما اضع مشاركة لا اشير الى انها حل بديل وانما كطريقه اخرى للحل

وعندما يكون هناك اكثر من حل وجميعها تؤدي للمطلوب فانني افضل حينها الاخذ بمبدأ اوكام

اما بشأن ما نريده لاحقا فهناك دائما حلول ولكن لكل حدث حديث

تحياتي وتقديري 🌹

تم تعديل يوليو 30, 2022 بواسطه مبرمج سابق

[Moosak]

1 دقيقه مضت, مبرمج سابق said:

الحقيقة انا لست مهندس

كنت مبرمج ثم تدرجت في هذا المجال الى ان انهيت مساري الوظيفي بطلب التقاعد

تظل في عيني مهندس .. ومن كبار المهندسين 😊

وليست الهندسة هنا شهادة تعليمية ( ورقية ) .. ولكنها مكانة علمية وقيمة واجب علينا تقديرها 👍🏼😉

4 دقائق مضت, مبرمج سابق said:

نعود للموضوع دائما عندما اضع مشاركة لا اشير الى انها حل بديل وانما كطريقه اخرى للحل

وعندما يكون هناك اكثر من حل وجميعها تؤدي للمطلوب فانني افضل حينها الاخذ بمبدأ اوكام

اما بشأن ما نريده لاحقا فهناك دائما حلول ولكن حدث حديث

تحياتي وتقديري 🌹

نعم مهندسنا العزيز كما قلت ..
وما كان تعليقي إلا إضافة لما تفضلت به .. والمقصد هو توضيح الصورة للمبرمج وتوسيع الأبعاد لما يمكن أن يواجه لاحقا ووضع السيناريوهات المختلفة للأمر 🙂 

 تحياتي وتقديري 🌹

[متقاعد]

6 دقائق مضت, Moosak said:

وما كان تعليقي إلا إضافة لما تفضلت به .. والمقصد هو توضيح الصورة للمبرمج وتوسيع الأبعاد لما يمكن أن يواجه لاحقا ووضع السيناريوهات المختلفة للأمر 🙂 

احسنت استاذنا العزيز

الحقيقة كلما شاهدت مشاركة لك تذكرت اخ وصديق عزيز اقتعني بالعودة ثم اختفى 😃

اسأل الله ان يعود سالما غانما

تحياتي

[Moosak]

3 دقائق مضت, مبرمج سابق said:

تذكرت اخ وصديق عزيز اقتعني بالعودة ثم اختفى 😃

كلنا نفتقده .. أعاده الله إلينا سالما غانما 😊

[Matin_Murad]

 شكرا استاذ ( Moosak , مبرمج السابق و derbali ammar ) تم تغير قيمة افتراضية ولاكن بعد تغير الى accde لا یتغیر قیمة افتراضية ... 

يتغير عند accdb 

ولا یوجد حل لتغیر قیمة افتراضية لمربع النص غير منضم مع مربع النص الخر غير منضم

[عبد الله قدور]

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

اسعد الله اوقاتكم

بالنسبة لي انا استخدم الطريقة التالية

اضيف جدول باسم options اضع فيه اعدادات و القيم الافتراضية التي اريدها للكائنات

في النموذج الاصلي استخدم الدالة dlookup لاحضار القيمة الافتراضية للكائنات

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

 

[متقاعد]

منذ ساعه, Matin_Murad said:

تم تغير قيمة افتراضية ولاكن بعد تغير الى accde لا یتغیر قیمة افتراضية

سبق ان تم ايضاح ذلك ⬇️

13 ساعات مضت, مبرمج سابق said:

ملاحظة 1 هذا الكود لن يعمل اذا كانت القاعدة بصيغة Accde او mde

 

منذ ساعه, Matin_Murad said:

ولا یوجد حل لتغیر قیمة افتراضية لمربع النص غير منضم مع مربع النص الخر غير منضم

بل يوجد لكن الفكرة باختصار تتطلب وجود حقل في جدول يتم تحديثة بالقيمة الافتراضية كلما قمنا بتغييرها ويبقى الحقلين aa و bb غير منضمة

bb يحدث القيمة

و aa يحصل على القيمة الافتراضية باستخدام DLookup او احدى شقيقاتها

ولكن ننتظر رأي الاساتذة ربما لديهم افكار افضل

 

[Matin_Murad]

شكرا استاذ ( في النهاية لازم تستخدم الاجدول ) 

تم تعديل يوليو 30, 2022 بواسطه Matin_Murad