اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تحويل مربع نص الى قائمة combo


r79a

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

انا مبتدئة و عندي قاعدة بيانات متجر ملابس

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

بعض الموديلات S,M,L

و بعضها M,L او L,XL او Free Size

المطلوب كود للقائمة المنسدلة يحقق التالي

يجزء مربع نص المقاس من

-----------

"S,M,L"

-----------

الى

-----------

"S"

"M"

"L"

-----------

فتظهر المقاسات بشكل صفوف في قائمة منسدلة بدل مربع النص

وين عباقرة الاكسس ؟ أكيد ما تصعب عليكم صح .. :rol:

رابط هذا التعليق
شارك

حسب فهمي لسؤالك لا يحتاج الامر الى كود

فقط ضعي القائمة combo من شريط الادوات على الفورم ثم من المعالج اختاري الخيار الثاني "i will type in the values that i want "

ثم اكتبي s في سطر و m في سطر و l في سطر بعد ذلك next ثم اختاري الخيار الثاني "store that value in this field" واختاري من القائمة المنسدلة حقل المقاس .

وبالتوفيق

رابط هذا التعليق
شارك

بعد اذن ابو ريان

اختي

اختاري مربع النص ثم بضغط على زر الفاره الايمن

ثم اختاري

Change to

ثم

Combo box

ثم في مصدر البيانات ضعي الثلاثه حروف فصوله ب ;

وغيري نوع مصدر البيانات الى value list بدلا من table/query

رابط هذا التعليق
شارك

شباب مشكورين

بس المسألة مو مسألة إنشاء قائمة فيها مقاسات لأن كل موديل له مقاسات مختلفة

و المطلوب تتغير القائمة في كل سجل حسب الموديل

يعني لو كان الموديل مقاساته S,M,L

بتطلع لي هالمقاسات في القائمة

و لو كان الموديل مقاس S

ما راح يطلع إلا مقاس S بس

و لو كان Free Size

ما راح يطلع لي في القائمة إلا خيار Free Size

يعني القائمة صفوفها تتغير في كل سجل

وتأخذ قيمها حسب ما هو مكتوب في مربع نص المقاس

همتكم معاي انا واثقة في قدراتكم

رابط هذا التعليق
شارك

اختي

الموضوع مو موضوع قدرات او غيره

انظري لطلبك الاول

ثم

حسب طلبك الثاني

مالفائده من الcombo اذا فقط يعرض قيمه واحده فقط!!

على العموم غيريه بالطريق رايت كليك على المربع ثمChange to

او وضحي طلبك

رابط هذا التعليق
شارك

اخي العزيز

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

و نموذجي عبارة عن نموذج ادخال طلبات الزبائن

و كل موديل له مقاسات خاصه متوفره

يعني لو متوفر مقاس واحد ما يطلع لي في القائمة إلا مقاس واحد يختاره الزبون لو مناسب له

و لو 3 مقاسات متوفره يطلع لي في القائمة 3 خيارات للزبون يختر منها اللي يناسبه

وهكذا

انا جربت جملة شرطية بس ما ظبط معي

Dim A As String
A = [size]

Select Case A
Case Is = "Free Size"
Combo12.RowSource = "Free Size"

Case Is = "S"
Combo12.RowSource = "S"

Case Is = "M"
Combo12.RowSource = "M"

Case Is = "L"
Combo12.RowSource = "L"

Case Is = "XL"
Combo12.RowSource = "XL"

Case Is = "S;M"
Combo12.RowSource = "S;M"

Case Is = "S;M;L"
Combo12.RowSource = "S;M;L"

End Select

و مشكور على مساعدتك :rol:

تم تعديل بواسطه r79a
رابط هذا التعليق
شارك

الحين بدات تتضح الصوره

الموضوع فيه خصم من مستودع للمقاسات

في حاله نفاذ المقاس سوف لن تظهر للصنف المختار سوى المقاسات

المتوفره فقط

هل هذا هو المطلوب!!؟؟

اذا نعم ارفقي قاعده البيانات في ملف zip

رابط هذا التعليق
شارك

تقريبا فهمت قصدي :clapping::clapping::clapping:

لكن المقاسات ما تنفذ من المستودع

لا

المقاسات في الاساس مختلفه

يعني اساس انتاج المصنع كذا

لكل موديل مقاسات

شي Free Size بس

شي S بس

شي S,M,L

شي XL بس

تم تعديل بواسطه r79a
رابط هذا التعليق
شارك

:clapping::clapping::clapping:

يعطيك العافية

وانا عملتها بطريقة الكود و ظبط هالمره

Dim A As String
A = [Models Table_size]


Select Case A
Case Is = "Free Size"
Combo1.RowSource = "Free Size"

Case Is = "S"
Combo1.RowSource = "S"

Case Is = "M"
Combo1.RowSource = "M"

Case Is = "L"
Combo1.RowSource = "L"

Case Is = "XL"
Combo1.RowSource = "XL"

Case Is = "S,M,L"
Combo1.RowSource = "S;M;L"

Case Is = "S,M"
Combo1.RowSource = "S;M"

Case Is = "S,L"
Combo1.RowSource = "S;L"

Case Is = "M,L"
Combo1.RowSource = "M;L"

Case Is = "L,XL"
Combo1.RowSource = "L;XL"

Case Is = "S,L"
Combo1.RowSource = "S;L"

End Select

New_Markit.zip

رابط هذا التعليق
شارك

اختي العزيزة

مرفق لك التعديل الى اكبر اختصار ممكن بس بشرط واحد أن تكون القيم في حقل ModelSize مفصولة بفاصلة منقوطة مثال نكتب (S;M) وليس (S,M)

تحياتي,,,

New_Markit.rar

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

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



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

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

Important Information