الشيباني1 قام بنشر مايو 9, 2011 قام بنشر مايو 9, 2011 اخواني الاعزاء تحية طيبه كلفني مديري بعمل قاعدة بيانات لمنتجات الشركه تسهل له الرجوع الى بعض التفاصيل وقمت بعمل النموذج المرفق الذي وقفت بعده حائرا" امام (محركه) راجيا" اسعافي بالاكواد الخاصة بأظهار البيانات المطلوبه عند الاختيار من ( اسم الماده )علما" ان عدد المواد يقارب ( 700 ) ماده . أملي كبير ان احظى باهتمام اساتذتنا الكبار مع الامتنان DataBase1.zip
عبد الفتاح كيرة قام بنشر مايو 9, 2011 قام بنشر مايو 9, 2011 فورم لاستعراض قاعدة بيانات كود : On Error Resume Next For i = 3 To 8 Me.Controls("TextBox" & i).Text = Application.WorksheetFunction.VLookup(ComboBox1.Value, Sheets(1).Range("b7:n700"), i - 1, 0) Next i المرفقDataBase1-kemas.rar
الشيباني1 قام بنشر مايو 9, 2011 الكاتب قام بنشر مايو 9, 2011 اشكرك اخي العزيز على هذه الاكواد الرائعه وادامك الرحمن لنا منقذا
دغيدى قام بنشر مايو 9, 2011 قام بنشر مايو 9, 2011 الأستاذ الجليل / أبو عمر كنت منظركم للرد فكان الرد بليغا ..سهلا .. زادكم الله من العلم ما ينفع الناس شكرا لكم
دغيدى قام بنشر مايو 9, 2011 قام بنشر مايو 9, 2011 الأستاذ الجليل / أبو عمر س : ماذا لو كانت البيانات المطلوب اظهارها غير متصلة ؟ بارك الله فيكم
عبد الفتاح كيرة قام بنشر مايو 9, 2011 قام بنشر مايو 9, 2011 (معدل) السلام عليكم شكرا للأخ tofimoon4 والحمد لله أن نلت ما تريد = الأخ الأستاذ جمال رقم العمود رقم مربع النص ربطنا الإثنين بقيمة المتغير i أما لو كان رقم العمود كل خطوتين فنفذ الآتى : سنضع متغيرا جديدا لقيمة رقم العمود قبل الحلقة و سيكون 2 مثلا k = 2 ثم من داخل الحلقة نزيده k=k+2 آثرت ذكر أحد الحلول نظريا كى تشاركنى التوصل للكود النهائي ننتظر الإبداعات وشكرا لثنائك الطيب الذى هو أكثر مما أستحق هذا تعديل للكود فى حالة وجود أعمدة فارغة Dim k As Integer k = 3 On Error Resume Next For i = 3 To 8 Me.Controls("TextBox" & i).Text = Application.WorksheetFunction _ .VLookup(ComboBox1.Value, Sheets(1).Range("b7:n700"), k, 0) k = k + 2 Next i DataBase1-kemas2.rar تم تعديل مايو 9, 2011 بواسطه kemas
ياسر الحافظ قام بنشر مايو 9, 2011 قام بنشر مايو 9, 2011 الاستاذ ابو عمر " Kemas " شكرا ..... شكرا استفادتنا كبيرة وفقك الله ياسر الحافظ
دغيدى قام بنشر مايو 9, 2011 قام بنشر مايو 9, 2011 الاستاذ الفاضل / ابو عمر " Kemas " شكرا..... شكرا شكرا..... شكرا..... شكرا شكرا..... شكرا..... شكرا..... شكرا شكرا..... شكرا..... شكرا..... شكرا..... شكرا شكرا..... شكرا..... شكرا..... شكرا شكرا..... شكرا..... شكرا شكرا..... شكرا شكرا
الشيباني1 قام بنشر مايو 10, 2011 الكاتب قام بنشر مايو 10, 2011 استاذنا العزيز تحية طيبه اتساءل عن امكانية اضافة صورة المنتج الى الفورم يعتمد ظهورها على اسم الماده مع الشكر الجزيل
احمد فضيله قام بنشر مايو 10, 2011 قام بنشر مايو 10, 2011 (معدل) السلام عليكم ورحمة الله و بركاته بعد إذن الأخ الفاضل الاستاذ الكبير / kemas الاخ / tofimoon4 تفضل هذا المرفق و ارجو من الله أن يكون هذا طلبك كل ما عليك فعله هو أن تقوم بتسمية الصور بنفس أسماء المواد و تضعهم في الفولدر المرفق Pictures ثم تضع الفولدر في الدرايف D و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته DataBase HaNcOcK .rar تم تعديل مايو 10, 2011 بواسطه HaNcOcK
الشيباني1 قام بنشر مايو 10, 2011 الكاتب قام بنشر مايو 10, 2011 استاذنا العزيز ابداع وروعه جزاك الله كل خير اتساءل عن امكانية الاستعاضه عن اسم الماده برقم في عمود اضافي لتخزين الصور بهذه الارقام كون اسماء المواد طويله وعرضة للاختلاف بعكس الارقام مع الامتنان والشكر الجزيل
دغيدى قام بنشر مايو 10, 2011 قام بنشر مايو 10, 2011 (معدل) اخى الفاضل / أحمد أثابكم الله على فعل الخبر .. زادكم الله من العلم هل يمكن تغيير الكود بحيث تكون الصور التى فى فولدر Pictures فى نفس مكان الملف (معا)بدلا من نقله لدرايف آخر شاكرا لكم كل ما تقدموه تم تعديل مايو 10, 2011 بواسطه دغيدى
احمد فضيله قام بنشر مايو 10, 2011 قام بنشر مايو 10, 2011 (معدل) اخى الفاضل / أحمد أثابكم الله على فعل الخبر .. زادكم الله من العلم هل يمكن تغيير الكود بحيث تكون الصور التى فى فولدر Pictures فى نفس مكان الملف (معا)بدلا من نقله لدرايف آخر شاكرا لكم كل ما تقدموه السلام عليكم ورحمة الله و بركاته الأخ الفاضل المهندس / جمال دغيدي فقط قم بتغيير رمز الدرايف أو المسار في الكود التالي وهو ضمن كود الفورم و انقل الملف اينما حضرتك تشاء : Me.Image1.Picture = LoadPicture("D:\Pictures\1.JPG") Me.Image1.Picture = LoadPicture("D:\Pictures\" & A & ".JPG") و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته تم تعديل مايو 10, 2011 بواسطه HaNcOcK
دغيدى قام بنشر مايو 10, 2011 قام بنشر مايو 10, 2011 اخى الفاضل / أحمد أكرر شكرى .. ردكم وصلنى من الكود الجميل ( كان بودى ان نتخلص من الدرايف فى الكود ويكون العمل حر عن طريق اسم مميز للملف الذى يحتوى الصور كل الشكر .. على قدر عملكم العظيم
احمد فضيله قام بنشر مايو 10, 2011 قام بنشر مايو 10, 2011 استاذنا العزيز ابداع وروعه جزاك الله كل خير اتساءل عن امكانية الاستعاضه عن اسم الماده برقم في عمود اضافي لتخزين الصور بهذه الارقام كون اسماء المواد طويله وعرضة للاختلاف بعكس الارقام مع الامتنان والشكر الجزيل السلام عليكم ورحمة الله و بركاته الاخ / tofimoon4 ما رأي حضرتك في اعطاء الصور لنفس رقم الكود . اما اذا اردت فكرة حضرتك فلا يوجد اي مشكلة فقط اختار اي الفكرتين تريد و ان شاء الله ربنا يوفقنا و نكملها سويا و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته
احمد فضيله قام بنشر مايو 10, 2011 قام بنشر مايو 10, 2011 السلام عليكم ورحمة الله و بركاته الاخ / tofimoon4 في انتظار ردك و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته
احمد حمور-ابوعبدالله قام بنشر مايو 10, 2011 قام بنشر مايو 10, 2011 الاخوه الكراك كيماس وهانكوك والله انني ارى ابداع منقطع النظير حل اكثر من رائع وبسيط وسلس وسهل ومفهوم ومهضوم وخفيف من اخي كيماس واضافه جميله ورائعه وبسيطه ومطلوبه ومغريه ايضا من اخي هانكوك
عبد الفتاح كيرة قام بنشر مايو 10, 2011 قام بنشر مايو 10, 2011 أشكرك أستاذ احمد و هذا تعلمناه فى هذا المنتدى
احمد فضيله قام بنشر مايو 10, 2011 قام بنشر مايو 10, 2011 الاخوه الكراك كيماس وهانكوك والله انني ارى ابداع منقطع النظير حل اكثر من رائع وبسيط وسلس وسهل ومفهوم ومهضوم وخفيف من اخي كيماس واضافه جميله ورائعه وبسيطه ومطلوبه ومغريه ايضا من اخي هانكوك السلام عليكم ورحمة الله و بركاته الاخ / احمد حمور - ابو عبدالله بارك الله فيك و جزاك الله كل خير على مرورك الكريم و كلماتك الطيبة و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته
saad abed قام بنشر مايو 11, 2011 قام بنشر مايو 11, 2011 اخواى ابوعمر(كيماس) واحمد فضيلة (هانكوك) جزاكم الله خيرا واصلح الله بالكم جميل حدا ان يتعاون الاساتذة لكى نتعلم نحن التلاميذ الاصل والاضافة والشكر موصول للاستاذ الحبيب جمال دغيدى لاننا تعلمنا من سؤاله الكثير اخوكم سعد عابد
الشيباني1 قام بنشر مايو 11, 2011 الكاتب قام بنشر مايو 11, 2011 استاذنا الكريم ( هانكوك ) تحية طيبه جزيل الشكر على اهتمامكم وسعيكم الرائع وعذرا" على التاخر في الرد ما اراه مناسبا" ان يتم ترقيم الصور حسب المواد ( اي 1،2،3،وهكذا ) لتسهيل الوصول الى الغاية مع احترامي وتقديري . ملاحظة اتمنى ان يكون علاجها بسيطا" وهي ( عند عدم وجود صورة للماده ارجو ان يكون مكانها في الفورم فارغا" ) . جزاكم الله كل خير
احمد فضيله قام بنشر مايو 11, 2011 قام بنشر مايو 11, 2011 استاذنا الكريم ( هانكوك ) تحية طيبه جزيل الشكر على اهتمامكم وسعيكم الرائع وعذرا" على التاخر في الرد ما اراه مناسبا" ان يتم ترقيم الصور حسب المواد ( اي 1،2،3،وهكذا ) لتسهيل الوصول الى الغاية مع احترامي وتقديري . ملاحظة اتمنى ان يكون علاجها بسيطا" وهي ( عند عدم وجود صورة للماده ارجو ان يكون مكانها في الفورم فارغا" ) . جزاكم الله كل خير السلام عليكم ورحمة الله و بركاته الاخ / tofimoon4 تفضل هذا المرفق و ارجو من الله أن يكون هذا طلبك كل ما عليك فعله هو أن تقوم بتسمية الصور بنفس أرقام المواد الموجوده بالعمود الجديد و تضعهم في الفولدر المرفق Pictures ثم تضع الفولدر في الدرايف D ملاحظة هامة : اترك الصورة المسماه باسم empty في فولدر Pictures و لا تحذفها و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته Load Pictures HaNcOcK.rar
احمد فضيله قام بنشر مايو 11, 2011 قام بنشر مايو 11, 2011 اخواى ابوعمر(كيماس) واحمد فضيلة (هانكوك) جزاكم الله خيرا واصلح الله بالكم جميل حدا ان يتعاون الاساتذة لكى نتعلم نحن التلاميذ الاصل والاضافة والشكر موصول للاستاذ الحبيب جمال دغيدى لاننا تعلمنا من سؤاله الكثير اخوكم سعد عابد السلام عليكم ورحمة الله و بركاته الاخ العزيز / سعد عابد بارك الله فيك و جزاك الله كل خير على مرورك الكريم و كلماتك الطيبة و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.