r79a قام بنشر أغسطس 24, 2008 قام بنشر أغسطس 24, 2008 انا مبتدئة و عندي قاعدة بيانات متجر ملابس مقاسات الملابس تختلف حسب الموديل وكلها مدخلة في مربعات نص بعض الموديلات S,M,L و بعضها M,L او L,XL او Free Size المطلوب كود للقائمة المنسدلة يحقق التالي يجزء مربع نص المقاس من ----------- "S,M,L" ----------- الى ----------- "S" "M" "L" ----------- فتظهر المقاسات بشكل صفوف في قائمة منسدلة بدل مربع النص وين عباقرة الاكسس ؟ أكيد ما تصعب عليكم صح ..
ابراهيم - ابو ريان قام بنشر أغسطس 24, 2008 قام بنشر أغسطس 24, 2008 حسب فهمي لسؤالك لا يحتاج الامر الى كود فقط ضعي القائمة combo من شريط الادوات على الفورم ثم من المعالج اختاري الخيار الثاني "i will type in the values that i want " ثم اكتبي s في سطر و m في سطر و l في سطر بعد ذلك next ثم اختاري الخيار الثاني "store that value in this field" واختاري من القائمة المنسدلة حقل المقاس . وبالتوفيق
Bluemind قام بنشر أغسطس 24, 2008 قام بنشر أغسطس 24, 2008 بعد اذن ابو ريان اختي اختاري مربع النص ثم بضغط على زر الفاره الايمن ثم اختاري Change to ثم Combo box ثم في مصدر البيانات ضعي الثلاثه حروف فصوله ب ; وغيري نوع مصدر البيانات الى value list بدلا من table/query
r79a قام بنشر أغسطس 24, 2008 الكاتب قام بنشر أغسطس 24, 2008 شباب مشكورين بس المسألة مو مسألة إنشاء قائمة فيها مقاسات لأن كل موديل له مقاسات مختلفة و المطلوب تتغير القائمة في كل سجل حسب الموديل يعني لو كان الموديل مقاساته S,M,L بتطلع لي هالمقاسات في القائمة و لو كان الموديل مقاس S ما راح يطلع إلا مقاس S بس و لو كان Free Size ما راح يطلع لي في القائمة إلا خيار Free Size يعني القائمة صفوفها تتغير في كل سجل وتأخذ قيمها حسب ما هو مكتوب في مربع نص المقاس همتكم معاي انا واثقة في قدراتكم
Bluemind قام بنشر أغسطس 24, 2008 قام بنشر أغسطس 24, 2008 اختي الموضوع مو موضوع قدرات او غيره انظري لطلبك الاول ثم حسب طلبك الثاني مالفائده من الcombo اذا فقط يعرض قيمه واحده فقط!! على العموم غيريه بالطريق رايت كليك على المربع ثمChange to او وضحي طلبك
r79a قام بنشر أغسطس 24, 2008 الكاتب قام بنشر أغسطس 24, 2008 (معدل) اخي العزيز انا سبق وذكرت ان قاعدة بياناتي لمتجر ملابس و نموذجي عبارة عن نموذج ادخال طلبات الزبائن و كل موديل له مقاسات خاصه متوفره يعني لو متوفر مقاس واحد ما يطلع لي في القائمة إلا مقاس واحد يختاره الزبون لو مناسب له و لو 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 قام بنشر أغسطس 24, 2008 قام بنشر أغسطس 24, 2008 الحين بدات تتضح الصوره الموضوع فيه خصم من مستودع للمقاسات في حاله نفاذ المقاس سوف لن تظهر للصنف المختار سوى المقاسات المتوفره فقط هل هذا هو المطلوب!!؟؟ اذا نعم ارفقي قاعده البيانات في ملف zip
r79a قام بنشر أغسطس 24, 2008 الكاتب قام بنشر أغسطس 24, 2008 (معدل) تقريبا فهمت قصدي لكن المقاسات ما تنفذ من المستودع لا المقاسات في الاساس مختلفه يعني اساس انتاج المصنع كذا لكل موديل مقاسات شي Free Size بس شي S بس شي S,M,L شي XL بس تم تعديل أغسطس 24, 2008 بواسطه r79a
Bluemind قام بنشر أغسطس 24, 2008 قام بنشر أغسطس 24, 2008 اوكي لو سمحتي ارفاق قاعده البيانات في ملف zip
r79a قام بنشر أغسطس 24, 2008 الكاتب قام بنشر أغسطس 24, 2008 (معدل) قاعدة بياناتي ضخمة و مليانه صور لكن هذي قاعدة بيانات بسيطة و مختصرة جدا جدا في المرفقات Markit.rar تم تعديل أغسطس 24, 2008 بواسطه r79a
r79a قام بنشر أغسطس 24, 2008 الكاتب قام بنشر أغسطس 24, 2008 (معدل) عفواً كان في القاعدة المرفقة خطأ بسيط و تم اصلاحه Markit.zip تم تعديل أغسطس 24, 2008 بواسطه r79a
r79a قام بنشر أغسطس 24, 2008 الكاتب قام بنشر أغسطس 24, 2008 يعطيك العافية وانا عملتها بطريقة الكود و ظبط هالمره 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 قام بنشر أغسطس 24, 2008 الكاتب قام بنشر أغسطس 24, 2008 بس لو ممكن احد يساعدني في اختصار الكود .. لأني بطبق نفس الفكرة على الألوان و احتمالاتها أكثر بكثير والكود بيكون مرررره طويل
منتصر الانسي قام بنشر أغسطس 24, 2008 قام بنشر أغسطس 24, 2008 اختي العزيزة مرفق لك التعديل الى اكبر اختصار ممكن بس بشرط واحد أن تكون القيم في حقل ModelSize مفصولة بفاصلة منقوطة مثال نكتب (S;M) وليس (S,M) تحياتي,,, New_Markit.rar
r79a قام بنشر أغسطس 24, 2008 الكاتب قام بنشر أغسطس 24, 2008 تمام التمام هذا هو المطلوب تماماً ألف ألف شكر للجميع
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.