r79a

انتظر شرحك بكره احلام سعيده

جداً حلو ومفيد يعطيك العافية

الله يعطيك العافية و يعطيك كل ما تتمنى بس مسار الصور مو مسجل في الجدول وفيه حقل جديد بإسم ModelPhoto فيه قيمة 1 او 0 اتوقع بس لو شرح بسيط للخطوات اللي عملتها لأني ضعت .. الاكواد كثيرة وأنا مبتدئة هذه اكواد مفهومه Sub hideImageFrame() Me![ImageFrame].Visible = False End Sub Sub showImageFrame() Me![ImageFrame].Visible = True End Sub لكن ImageFrame هل هو كائن معين؟ كيف ادرجته في النموذج؟ وهنا Private Sub Model_Code_AfterUpdate() On Error Resume Next JpgImg End Sub Private Sub Form_Current() JpgImg End Sub JpgImg .. صورة نوعها Jpg بس وجودها في الكود ايش يعني؟ وسامحني على الازعاج

عرض الصور عن طريق مسارها سيوفر في مساحة القاعدة جمعت كل الصور في مجلد واحد و اسميت كل صورة برقم الكود الخاص بها والمطلوب كتابة كود وظيفته أخذ رقم الكود من مربع النص ثم عرض الصورة المناسبة في النموذج و تخزين مسارها في الجدول وفي المرفقات القاعدة مع 3 صور كمثال يحتاج التعديل انتظر المساعدة .. جزاكم الله خيراً reema.zip

انحلت المشكلة بعد ما اعدت اعدادات الثقة مثل ما كانت

فعلاً هذه الطريقة مكّنت الماكرو في القاعدة وصارت الماكرو شغاله تمام لكن مشكلتي الآن في الاكواد ولا كود يعمل مع انها كانت شغاله في اكسس 2003 مو بس كذا انا جربت اصمم قاعدة جديدة في اكسس 2007 و نفس الشي الاكواد لا تعمل !!!!!!!!!!!!!!!!!!!!

قاعدة بياناتي كانت تمام في الاكسس 2003 لكن جربت نقلت القاعدة لجهاز ثاني فيه اكسس 2007 وكل الاكواد لا تعمل ارجوا المساعدة ..

تمام التمام هذا هو المطلوب تماماً ألف ألف شكر للجميع

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

يعطيك العافية وانا عملتها بطريقة الكود و ظبط هالمره 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

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

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

تقريبا فهمت قصدي لكن المقاسات ما تنفذ من المستودع لا المقاسات في الاساس مختلفه يعني اساس انتاج المصنع كذا لكل موديل مقاسات شي Free Size بس شي S بس شي S,M,L شي XL بس

اخي العزيز انا سبق وذكرت ان قاعدة بياناتي لمتجر ملابس و نموذجي عبارة عن نموذج ادخال طلبات الزبائن و كل موديل له مقاسات خاصه متوفره يعني لو متوفر مقاس واحد ما يطلع لي في القائمة إلا مقاس واحد يختاره الزبون لو مناسب له و لو 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 و مشكور على مساعدتك

شباب مشكورين بس المسألة مو مسألة إنشاء قائمة فيها مقاسات لأن كل موديل له مقاسات مختلفة و المطلوب تتغير القائمة في كل سجل حسب الموديل يعني لو كان الموديل مقاساته S,M,L بتطلع لي هالمقاسات في القائمة و لو كان الموديل مقاس S ما راح يطلع إلا مقاس S بس و لو كان Free Size ما راح يطلع لي في القائمة إلا خيار Free Size يعني القائمة صفوفها تتغير في كل سجل وتأخذ قيمها حسب ما هو مكتوب في مربع نص المقاس همتكم معاي انا واثقة في قدراتكم