الشيباني1 قام بنشر مايو 9, 2011 مشاركة قام بنشر مايو 9, 2011 اخواني الاعزاء تحية طيبه كلفني مديري بعمل قاعدة بيانات لمنتجات الشركه تسهل له الرجوع الى بعض التفاصيل وقمت بعمل النموذج المرفق الذي وقفت بعده حائرا" امام (محركه) راجيا" اسعافي بالاكواد الخاصة بأظهار البيانات المطلوبه عند الاختيار من ( اسم الماده )علما" ان عدد المواد يقارب ( 700 ) ماده . أملي كبير ان احظى باهتمام اساتذتنا الكبار مع الامتنان DataBase1.zip رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر مايو 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 رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر مايو 9, 2011 الكاتب مشاركة قام بنشر مايو 9, 2011 اشكرك اخي العزيز على هذه الاكواد الرائعه وادامك الرحمن لنا منقذا رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر مايو 9, 2011 مشاركة قام بنشر مايو 9, 2011 الأستاذ الجليل / أبو عمر كنت منظركم للرد فكان الرد بليغا ..سهلا .. زادكم الله من العلم ما ينفع الناس شكرا لكم رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر مايو 9, 2011 مشاركة قام بنشر مايو 9, 2011 الأستاذ الجليل / أبو عمر س : ماذا لو كانت البيانات المطلوب اظهارها غير متصلة ؟ بارك الله فيكم رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر مايو 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 رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر مايو 9, 2011 مشاركة قام بنشر مايو 9, 2011 الاستاذ ابو عمر " Kemas " شكرا ..... شكرا استفادتنا كبيرة وفقك الله ياسر الحافظ رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر مايو 9, 2011 مشاركة قام بنشر مايو 9, 2011 شكرا لك أستاذ ياسر بارك الله فيك رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر مايو 9, 2011 مشاركة قام بنشر مايو 9, 2011 الاستاذ الفاضل / ابو عمر " Kemas " شكرا..... شكرا شكرا..... شكرا..... شكرا شكرا..... شكرا..... شكرا..... شكرا شكرا..... شكرا..... شكرا..... شكرا..... شكرا شكرا..... شكرا..... شكرا..... شكرا شكرا..... شكرا..... شكرا شكرا..... شكرا شكرا رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر مايو 9, 2011 مشاركة قام بنشر مايو 9, 2011 الله يبارك فيك جزاك الله خيرا أستاذ جمال رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر مايو 10, 2011 الكاتب مشاركة قام بنشر مايو 10, 2011 استاذنا العزيز تحية طيبه اتساءل عن امكانية اضافة صورة المنتج الى الفورم يعتمد ظهورها على اسم الماده مع الشكر الجزيل رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر مايو 10, 2011 مشاركة قام بنشر مايو 10, 2011 (معدل) السلام عليكم ورحمة الله و بركاته بعد إذن الأخ الفاضل الاستاذ الكبير / kemas الاخ / tofimoon4 تفضل هذا المرفق و ارجو من الله أن يكون هذا طلبك كل ما عليك فعله هو أن تقوم بتسمية الصور بنفس أسماء المواد و تضعهم في الفولدر المرفق Pictures ثم تضع الفولدر في الدرايف D و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته DataBase HaNcOcK .rar تم تعديل مايو 10, 2011 بواسطه HaNcOcK رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر مايو 10, 2011 الكاتب مشاركة قام بنشر مايو 10, 2011 استاذنا العزيز ابداع وروعه جزاك الله كل خير اتساءل عن امكانية الاستعاضه عن اسم الماده برقم في عمود اضافي لتخزين الصور بهذه الارقام كون اسماء المواد طويله وعرضة للاختلاف بعكس الارقام مع الامتنان والشكر الجزيل رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر مايو 10, 2011 مشاركة قام بنشر مايو 10, 2011 (معدل) اخى الفاضل / أحمد أثابكم الله على فعل الخبر .. زادكم الله من العلم هل يمكن تغيير الكود بحيث تكون الصور التى فى فولدر Pictures فى نفس مكان الملف (معا)بدلا من نقله لدرايف آخر شاكرا لكم كل ما تقدموه تم تعديل مايو 10, 2011 بواسطه دغيدى رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر مايو 10, 2011 مشاركة قام بنشر مايو 10, 2011 (معدل) اخى الفاضل / أحمد أثابكم الله على فعل الخبر .. زادكم الله من العلم هل يمكن تغيير الكود بحيث تكون الصور التى فى فولدر Pictures فى نفس مكان الملف (معا)بدلا من نقله لدرايف آخر شاكرا لكم كل ما تقدموه السلام عليكم ورحمة الله و بركاته الأخ الفاضل المهندس / جمال دغيدي فقط قم بتغيير رمز الدرايف أو المسار في الكود التالي وهو ضمن كود الفورم و انقل الملف اينما حضرتك تشاء : Me.Image1.Picture = LoadPicture("D:\Pictures\1.JPG") Me.Image1.Picture = LoadPicture("D:\Pictures\" & A & ".JPG") و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته تم تعديل مايو 10, 2011 بواسطه HaNcOcK رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر مايو 10, 2011 مشاركة قام بنشر مايو 10, 2011 اخى الفاضل / أحمد أكرر شكرى .. ردكم وصلنى من الكود الجميل ( كان بودى ان نتخلص من الدرايف فى الكود ويكون العمل حر عن طريق اسم مميز للملف الذى يحتوى الصور كل الشكر .. على قدر عملكم العظيم رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر مايو 10, 2011 مشاركة قام بنشر مايو 10, 2011 استاذنا العزيز ابداع وروعه جزاك الله كل خير اتساءل عن امكانية الاستعاضه عن اسم الماده برقم في عمود اضافي لتخزين الصور بهذه الارقام كون اسماء المواد طويله وعرضة للاختلاف بعكس الارقام مع الامتنان والشكر الجزيل السلام عليكم ورحمة الله و بركاته الاخ / tofimoon4 ما رأي حضرتك في اعطاء الصور لنفس رقم الكود . اما اذا اردت فكرة حضرتك فلا يوجد اي مشكلة فقط اختار اي الفكرتين تريد و ان شاء الله ربنا يوفقنا و نكملها سويا و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر مايو 10, 2011 مشاركة قام بنشر مايو 10, 2011 السلام عليكم ورحمة الله و بركاته الاخ / tofimoon4 في انتظار ردك و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته رابط هذا التعليق شارك More sharing options...
احمد حمور-ابوعبدالله قام بنشر مايو 10, 2011 مشاركة قام بنشر مايو 10, 2011 الاخوه الكراك كيماس وهانكوك والله انني ارى ابداع منقطع النظير حل اكثر من رائع وبسيط وسلس وسهل ومفهوم ومهضوم وخفيف من اخي كيماس واضافه جميله ورائعه وبسيطه ومطلوبه ومغريه ايضا من اخي هانكوك رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر مايو 10, 2011 مشاركة قام بنشر مايو 10, 2011 أشكرك أستاذ احمد و هذا تعلمناه فى هذا المنتدى رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر مايو 10, 2011 مشاركة قام بنشر مايو 10, 2011 الاخوه الكراك كيماس وهانكوك والله انني ارى ابداع منقطع النظير حل اكثر من رائع وبسيط وسلس وسهل ومفهوم ومهضوم وخفيف من اخي كيماس واضافه جميله ورائعه وبسيطه ومطلوبه ومغريه ايضا من اخي هانكوك السلام عليكم ورحمة الله و بركاته الاخ / احمد حمور - ابو عبدالله بارك الله فيك و جزاك الله كل خير على مرورك الكريم و كلماتك الطيبة و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر مايو 11, 2011 مشاركة قام بنشر مايو 11, 2011 اخواى ابوعمر(كيماس) واحمد فضيلة (هانكوك) جزاكم الله خيرا واصلح الله بالكم جميل حدا ان يتعاون الاساتذة لكى نتعلم نحن التلاميذ الاصل والاضافة والشكر موصول للاستاذ الحبيب جمال دغيدى لاننا تعلمنا من سؤاله الكثير اخوكم سعد عابد رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر مايو 11, 2011 الكاتب مشاركة قام بنشر مايو 11, 2011 استاذنا الكريم ( هانكوك ) تحية طيبه جزيل الشكر على اهتمامكم وسعيكم الرائع وعذرا" على التاخر في الرد ما اراه مناسبا" ان يتم ترقيم الصور حسب المواد ( اي 1،2،3،وهكذا ) لتسهيل الوصول الى الغاية مع احترامي وتقديري . ملاحظة اتمنى ان يكون علاجها بسيطا" وهي ( عند عدم وجود صورة للماده ارجو ان يكون مكانها في الفورم فارغا" ) . جزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر مايو 11, 2011 مشاركة قام بنشر مايو 11, 2011 استاذنا الكريم ( هانكوك ) تحية طيبه جزيل الشكر على اهتمامكم وسعيكم الرائع وعذرا" على التاخر في الرد ما اراه مناسبا" ان يتم ترقيم الصور حسب المواد ( اي 1،2،3،وهكذا ) لتسهيل الوصول الى الغاية مع احترامي وتقديري . ملاحظة اتمنى ان يكون علاجها بسيطا" وهي ( عند عدم وجود صورة للماده ارجو ان يكون مكانها في الفورم فارغا" ) . جزاكم الله كل خير السلام عليكم ورحمة الله و بركاته الاخ / tofimoon4 تفضل هذا المرفق و ارجو من الله أن يكون هذا طلبك كل ما عليك فعله هو أن تقوم بتسمية الصور بنفس أرقام المواد الموجوده بالعمود الجديد و تضعهم في الفولدر المرفق Pictures ثم تضع الفولدر في الدرايف D ملاحظة هامة : اترك الصورة المسماه باسم empty في فولدر Pictures و لا تحذفها و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته Load Pictures HaNcOcK.rar رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر مايو 11, 2011 مشاركة قام بنشر مايو 11, 2011 اخواى ابوعمر(كيماس) واحمد فضيلة (هانكوك) جزاكم الله خيرا واصلح الله بالكم جميل حدا ان يتعاون الاساتذة لكى نتعلم نحن التلاميذ الاصل والاضافة والشكر موصول للاستاذ الحبيب جمال دغيدى لاننا تعلمنا من سؤاله الكثير اخوكم سعد عابد السلام عليكم ورحمة الله و بركاته الاخ العزيز / سعد عابد بارك الله فيك و جزاك الله كل خير على مرورك الكريم و كلماتك الطيبة و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.