اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر
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

  • Like 4
قام بنشر (معدل)

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

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

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

تم تعديل بواسطه derbali ammar
  • Like 1
قام بنشر
35 دقائق مضت, derbali ammar said:

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

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

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

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

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

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

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

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

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

تحياتي

  • Like 2
قام بنشر

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

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

  • Like 3
قام بنشر
14 دقائق مضت, Moosak said:

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

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

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

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

تحياتي

  • Like 3
قام بنشر (معدل)
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

تم تعديل بواسطه مبرمج سابق
  • Like 3
قام بنشر
4 ساعات مضت, مبرمج سابق said:

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

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

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

  • Like 3
قام بنشر (معدل)
46 دقائق مضت, Moosak said:

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

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

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

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

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

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

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

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

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

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

تم تعديل بواسطه مبرمج سابق
  • Like 2
قام بنشر
1 دقيقه مضت, مبرمج سابق said:

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

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

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

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

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

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

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

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

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

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

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

  • Like 3
قام بنشر
6 دقائق مضت, Moosak said:

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

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

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

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

تحياتي

  • Like 3
قام بنشر
3 دقائق مضت, مبرمج سابق said:

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

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

  • Like 2
قام بنشر

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

يتغير عند accdb 

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

قام بنشر

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

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

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

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

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

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

 

  • Like 3
  • أفضل إجابة
قام بنشر
منذ ساعه, Matin_Murad said:

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

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

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

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

 

منذ ساعه, Matin_Murad said:

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

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

bb يحدث القيمة

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

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

 

افتراضي.gif

  • Like 4
قام بنشر (معدل)

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information