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

[r79a]

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

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

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

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

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

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

-----------

"S,M,L"

-----------

الى

-----------

"S"

"M"

"L"

-----------

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

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

[ابراهيم - ابو ريان]

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

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

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

وبالتوفيق

[Bluemind]

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

اختي

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

ثم اختاري

Change to

ثم

Combo box

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

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

[r79a]

شباب مشكورين

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

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

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

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

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

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

و لو كان Free Size

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

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

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

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

[Bluemind]

اختي

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

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

ثم

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

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

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

او وضحي طلبك

[r79a]

اخي العزيز

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

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

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

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

و لو 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

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

تم تعديل أغسطس 24, 2008 بواسطه r79a

[Bluemind]

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

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

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

المتوفره فقط

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

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

[r79a]

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

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

لا

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

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

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

شي Free Size بس

شي S بس

شي S,M,L

شي XL بس

تم تعديل أغسطس 24, 2008 بواسطه r79a

[Bluemind]

اوكي

لو سمحتي ارفاق قاعده البيانات في ملف zip

[r79a]

قاعدة بياناتي ضخمة و مليانه صور

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

في المرفقات

Markit.rar

تم تعديل أغسطس 24, 2008 بواسطه r79a

[Bluemind]

ملف zip لو سمحتي

[r79a]

عفواً

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

Markit.zip

تم تعديل أغسطس 24, 2008 بواسطه r79a

[Bluemind]

تفضلي

شوفي المرفق

Markit.zip

[r79a]

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

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

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

[r79a]

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

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

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

[منتصر الانسي]

اختي العزيزة

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

تحياتي,,,

New_Markit.rar

[r79a]

تمام التمام

هذا هو المطلوب تماماً

ألف ألف شكر للجميع