الخضر قام بنشر أبريل 16, 2009 مشاركة قام بنشر أبريل 16, 2009 بسم الله الرحمن الرحيم تحية طيبة الى كافة المشرفين على منتدى اكسل الرائع اتمنى ان يكون كافة الاخوة في احسن حال و يرفلون باثواب السعادة و كافة الاهل امين. اتقدم بهذا الطلب الذي اتمنى ان يجد المساعدة المنشودة عند الاخوة الكرام و هو كيف لي ان اقوم باستعراض الصور و لصقها في الفورم ليكون في قاعدة البيانات كافة المعلومات بالاضافة الى صور الطالب او الموظف كما هو الحال في برنامج اكسس .و اكون شاكرا لكم هذا الجزيل 1974.rar رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر أبريل 16, 2009 مشاركة قام بنشر أبريل 16, 2009 السلام عليكم اخي الفاضل لم افهم المطلوب علي اكمل وجه و لكني عملت علي الملف لما استشففته من حوارك ارجو ان يكون المطلوب جرب الملف و اخبرني النتيجة تحياتي sss.rar رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر أبريل 16, 2009 مشاركة قام بنشر أبريل 16, 2009 (معدل) وهذا تعديل بسيط اخر علي الملف sss1.rar تم تعديل أبريل 17, 2009 بواسطه aah_aah2008 رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أبريل 17, 2009 مشاركة قام بنشر أبريل 17, 2009 أستاذنا العزيز عمل رائع وبديع وارجو كما عودتمونا في منتدانا الكريم ان تجود علينا بشرح ولو مبسط عن كيفية عمل اليوزرفورم واضافة الصور اليه حيث ان هذا العمل يخدم الكثيرين وانا منهم لانني اعمل في شركة يصل عدد منتجاتها الى 600 ويفيدني جدا مع الامتنان رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر أبريل 17, 2009 مشاركة قام بنشر أبريل 17, 2009 (معدل) السلام عليكم اخي الخضر وهذا تعديل اخر اكثر دقه مع امكانية التعديل علي اسم الطالب فقط او البيانات الخاصة بالطالب و عدة تعديلات اخري اخي tofimoon4 اشكرك اخي علي كلماتك و بالنسبة للشرح لن ابخل ابدا في شرح اي شئ و لكن لا يمكن الشرح المفتوح لعمل ما لصعوبة ذلك لذا يجب فتح العمل و قرائة اكواده و السؤال يكون محدد في الجزء الغير مفهوم و لا اقصد هنا ان يكون سؤال فقط فقد يكون عدة اسئله و لكنها تساعدني في الرد بما يفيدك و بالنسبة لكود اظهار الصوره يجب اولا ان تدرج image1 داخل الفورم و تدرج CommandButton1 و يكون الكود التالي الذي يعمل به ال CommandButton1 كما تدرج TextBox و ليكن اسمه TextBox1 Private Sub CommandButton1_Click() On Error GoTo err If TextBox1 <> "" Then Image1.Picture = LoadPicture(ThisWorkbook.Path & "\pic\" & (TextBox1.Text) & ".jpg") End If Exit Sub err: Image1.Picture = LoadPicture(None) MsgBox ("لاتوجد صوره") End Sub و الكود معناه انه بالضغط علي الزر سيفتح الملف الذي اسمه Pic في مسار ملف الاكسل المفتوح ويفتح الصوره التي اسمها في الTextBox1 و ان لم يكن هناك بيانات او كانت البانات المتعلقه باسم الصوره غير مضبوطه او اسم الصوره غير موجود بال TextBox1 فستظهر رساله تفيد بانه لا توجد صوره خالص تحياتي و تقديري sss2.rar تم تعديل أبريل 17, 2009 بواسطه aah_aah2008 رابط هذا التعليق شارك 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.