مساعدة في دالة case is او دالة value

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

السلام عليكم لدي نموذج يحوي مربع تحرير وسرد typ يحوي قيمتان x,y  هل بالامكان تعين القيمة الافتراضية لهذا المربع من خلال الزر  case y الموجود في النموذج باستخدام دالة case is بمعنى عند الضغط على الزر case y تصبح قيمة مربع التحرير  والسرد  الافتراضية هي y 

xy.accdb

تم تعديل أبريل 18, 2020 بواسطه ازهر عبد العزيز

[Hamdi Edlbi-khalf]

السلام عليكم 

ضع هذا الكود تحت الزر

 

Me.DefaultValue =

"""y"""

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

11 دقائق مضت, Khalf said:

السلام عليكم 

ضع هذا الكود تحت الزر

 

Me.DefaultValue =

"""y"""

اين بالضبط استاذ @Khalf

[Hamdi Edlbi-khalf]

If typ.defaultvalue = ""y"" then

typ.defaultvalue = ""x""0

else

typ.defaultvalue = ""y""0

End if 

 

ضعه تحت زر case

في حدث عند النقر 

تم تعديل أبريل 18, 2020 بواسطه Khalf

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

الاستاذ @Khalf   اين الخطا عندي

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

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

Private Sub أمر14_Click()
Select Case typ
Case Is = y
End Select
End Sub

 

[Hamdi Edlbi-khalf]

فقط ازل الأصفار من الكود وسيعمل إن شاء الله

فقد وضعتها لضبط التنسيق كوني أكتب من الجوال .

تم تعديل أبريل 18, 2020 بواسطه Khalf

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

منذ ساعه, Khalf said:

فقط ازل الأصفار من الكود وسيعمل إن شاء الله

فقد وضعتها لضبط التنسيق كوني أكتب من الجوال .

 

[Hamdi Edlbi-khalf]

غداً إن شاء أرسل المثال لكم

أو يتفضل أحد الأخوة بالتعديل المطلوب 

[أبوبسمله]

اتفضل اخى @ازهر عبد العزيز

التعديل كما اشارك لك به اخى حمدى @Khalf جزاه الله خيرا

بالتوفيق اخوانى

xy.accdb

[jjafferr]

السلام عليكم 🙂

 

في الواقع السؤال غير واضح !!

 

الكود التالي على زر "case y" ، فالرسالة تخبرنا عن ما هو موجود في الحقل typ :

Private Sub cmd_case_Click()

    Select Case Me.typ
    
        Case "y"
            MsgBox "Y is selected"
            
        Case "x"
            MsgBox "X is selected"
            
    End Select
    
End Sub

 

جعفر

[أبوبسمله]

اتفضل اخى @ازهر عبد العزيز

التعديل كما اشارك لك به اخى حمدى @Khalf جزاه الله خيرا

بالتوفيق اخوانى

النت عامل عمايله معايا الزحلفه اسرع منه معلش بقى 😀

تم تعديل أبريل 18, 2020 بواسطه أحمد الفلاحجى

[adelmb]

اقتباس

 

غداً إن شاء أرسل المثال لكم

أو يتفضل أحد الأخوة بالتعديل المطلوب 

 

اتفضل اخي

ارجو ان يكون هو المطلوب

xy.accdb

[kha9009lid]

حتى نفهم المطلوب انت لديك مربع تحرير يحتوي على قيمتان x و y

وترغب عند الضغط على زر الامر ان تكون القيمة الافتراضية للمربع y

بصراحة حسب الي فهمت ما نحتاج نستخدام دالة case ولا اي دالة شرطية اخري

فقط الامر

typ.DefaultValue = "'y'"

 

 

 

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

الاساتذة المبدعين  @أحمد الفلاحجى ,  @kha9009lid,  @khalf شكرا جزيلا لكن هناك مشكلة عند الخروج من النموذج والدخول مرة ثانية تختفي القيمة الافتراضية كيف اجعلها ثابتة

[أبو أفنان]

موضوع شيق

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

السلام عليكم .... هذا كود للاستاذ المبدع @kha9009lid    حاولت تطبيقة فظهرت لي رسالة الخطا كما في الصور على الرغم من ان المثال الذي ارفقة هو اشتغل معي تمام

xy (3).accdb

تم تعديل أبريل 19, 2020 بواسطه ازهر عبد العزيز

[kha9009lid]

جرب الان

مع ان راسي انقلب

xy (3).accdb

[kha9009lid]

11 ساعات مضت, ازهر عبد العزيز said:

الاساتذة المبدعين  @أحمد الفلاحجى ,  @kha9009lid,  @khalf شكرا جزيلا لكن هناك مشكلة عند الخروج من النموذج والدخول مرة ثانية تختفي القيمة الافتراضية كيف اجعلها ثابتة

نرجع للموضوع انت ترغب في تعديل القيمة الافتراضية للحقل typ في الجدول برمجيا عن طريق زر امر لتكون القيمة الافتراضية y وتبقى القيمة ثابتة

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

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

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

 

 

 

xy.accdb

[jjafferr]

سياق السؤال يشدنا الى الاجابة عن طريق معين ، وهو الزر ،

بينما حل الموضوع عن طريقين:

1. في اعدادات الحقل ، هناك قيمة للقيمة الافتراضية ، فيمكن ادخالها هناك ،

2. او عند حدث "الحالي" او "التحميل" ، يمكن استعمال:

me.typ = "y"

.

جعفر

[kha9009lid]

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

سياق السؤال يشدنا الى الاجابة عن طريق معين ، وهو الزر ،

بينما حل الموضوع عن طريقين:

1. في اعدادات الحقل ، هناك قيمة للقيمة الافتراضية ، فيمكن ادخالها هناك ،

2. او عند حدث "الحالي" او "التحميل" ، يمكن استعمال:

me.typ = "y"

.

جعفر

حسب مافهمت هو لا يرغب في الدخول على عرض التصميم

وايضا يرغب في تغيير القيمة الافتراضية لاكثر من مره عن طريق زر امر

[jjafferr]

الان, kha9009lid said:

وايضا يرغب في تغيير القيمة الافتراضية لاكثر من مره عن طريق زر امر

في هذه الحالة ، فهي لا تُسمى قيمة افتراضية 🙂

 

جعفر

[kha9009lid]

3 دقائق مضت, jjafferr said:

في هذه الحالة ، فهي لا تُسمى قيمة افتراضية

😃

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

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

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

الاساتذة المبدعين @jjafferr, @kha9009lid  في الحقيقة لدي اكثر من حقل يحتاج الى قيمة افتراضية في نفس النموذج وفي بعض الاقات احتاج اعادته البعض  الى الافتراضي لاني لا استطيع تذكرها كلها 

[jjafferr]

 

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

وفي بعض الاقات احتاج اعادته البعض  الى الافتراضي لاني لا استطيع تذكرها كلها

هنا يأتي فائدة الملاحظات في الكود 🙂

فاعمل ملاحظاتك في كل حدث ، او في احداث معينة 🙂

 

جعفر