م/ مغترب

السلام عليكم أستاذنا / عبد الله أنا اريد ان اضيف اكثر من Label و TextBoxوهذا سهل هل ممكن ان نجعل Label في الفورم ان يأخذ اسم العمود بالتدريج مباشرة بدلا من دخولي الى البرمجة و اضافة الاسم يدويا اي اجعل الجدول من 5 اعمدة مثلا الاسم - الترتيب - الصف - الدرجة - اسم الاب لكن Label و TextBox في الفورم 6 فاول ما اضيف اسم للعمود 6 بالجدول اريده ان يظهر بالفورم ارجو ان تكون وصلت فكرتي وشكرا

الأستاذ / معتصم شكرا لك هي نفس إجابتك الاولى سوف احاول بالطريقة التي ذكرتها و ان شاء الله تصلح الامور وسوف ارد عليك بالنتيجة بارك الله فيك

هو اختياري اوكي اذا لم استخدمه لا استطيع البحث برقم السجل كما بالصورة انا لا اريده بالتسلسل اريد ان اضع اول رقم مثلا 57 واذهب للفورم و اضع في خانة رقم السجل 57 فيحضر البيانات جرب الغاء التسلسل و ادخل ارقام عشوائيه في الخلايا ( C11:C16) واذهب للفورم الى رقم السجل وحاول ان تبحث بها لن تظهر . الغاء شرط التسلسل وجعل ادخال الرقم مفتوح ليظهر في البحث بالفورم وشكرا

الطلب غير مفهوم أرفقت صورة وتم الكتابة اسفلها المطلوب وشكرا على ردك السريع

أستاذنا الكريم / عباد هذا الملف وجدته بالمنتدى لأحد الإخوة الكرام وقمت بالتعديل على الفورم الجيد بالملف انه يتيح اضافة اعمده على الفورم من داخل البرمجة لكن البحث لا يتم إلا إذا كانت الخلايا عباره عن نص و فقط العمود A أريدها ان تبحث بأرقام أرجو منك إضافة ComboBox للبحث بعمود أنا أختاره بأن يحضر البيانات التي خلفه أي أبحث بالعمود E مثلا يحضر البيانات التي بالعمود A &B&C&D و ايضا بعد العمود E أرجو شرح ماذا فعلت بعد التعديل لكي نفهم الأكواد اكثر فاكثر وشكرا لك وكل عام و أنتم و جميع من في المنتدى و المسلمون بألف خير تقرير.rar

الأستاذ / معتصم توجد بيانات اكثر في ملف اخر لكن لا تظهر الرسالة نهائيا

السلام عليكم هل ممكن تعديل الكود الخاص بإحظار البيانات بناءا على السجل على ان يتم إحظار البيانات بناءا على الرقم المكتوب بغض النظر عن التسلسل على نفس ملف الاستاذ الكبير / عبد الله باقشير Private Sub TextSerial_Change() Dim v v = Me.TextSerial.Text If Len(v) = 0 Then Exit Sub If Not IsNumeric(v) Then GoTo 1 If v = 0 Or v > ContRow Then GoTo 1 Exit Sub 1: Me.TextSerial.Text = Left(Me.TextSerial.Text, Len(Me.TextSerial.Text) - 1) End Sub Private Sub TextSerial_AfterUpdate() If Len(Me.TextSerial) Then Me.ScrollBar1.Value = Me.TextSerial.Value: Me.TextSerial = "" End Sub أرجو ان تكون الفكرة وصلت وشكرا

السلام عليكم ورحمة الله وبركاته سؤال سهل عليكم إن شاء الله لكنه دوخني فجأة اصبحت تظهر رسالة عند التصفية عدم إظهار كافة العناصر سببت لي مشاكل بالفرزما سببها وكيف اتخلص منها مع العلم حاولت نسخ البيانات في ملف جديد وبقية ظاهرة تم ارفاق صورة

أخي الكربم / ضاحي الغريب بارك الله فيك إجابة كافية ووافيه شكرا لك

السلام عليكم استفسار لماذا دالة VLookup داخل الفروم تبحث فقط عندما تكون الخلية بالاسم اما الرقم فلا هذا هو الكود الذي استخدمه ارجو تعديله إذا و ضعت رقم او اسم ان يحضر البيانات ليس بالاختيار بل بالكتابه Private Sub ComboBox1_Change() On Error Resume Next A = Me.ComboBox1 For i = 1 To 5 Me.Controls("TextBox" & i).Text = Application.WorksheetFunction.VLookup(ComboBox1.Value, Sheets(1).Range("a2:k10"), i - 1, 0 ان كان هنالك افضل ارجو تزويدنا به وأريد أن اجعل في TextBox1 عند ظهور البيانات امكانية التعديل من على الفورم وشكرا جزيلا

تم إرفاق ملف إكسل شرح المطلوب وشكرا New Microsoft Office Excel Worksheet.rar

بارك الله فيكم

يا إخواننا هل من مجيب

مشكورين وجزيتم خيرا

شكرا لك

السلام عليكم استاذي الكريم/ أبـوخليل أنت عملته على الاكسس أنا اريده على الاكسيل لو سمحت

بالتوفيق تم التعديل

السلام عليكم ممكن من فريق الموقع وضع مثال شرح لذلك الموضوع قديم لكن خبرتنا صفر شكرا

السلام عليكم ورحمة الله و بركاته إخواني الأفاضل عندي طلب من إخواننا لم أعرف عمل كود برمجة لوضعه بين Private Sub CommandButton1_Click() End Sub لطباعة بيانات -------------- 2/ طلب كود لجلب صورة من ملف خاص لإظهارها داخل فورم تسجيل البيانات بناءا على رقم معين هل صحيح ان تكتب بين Private Sub Image1_Click() End Sub أرجو منكم شرحها و تسهيلها لنا لأبعد الحدود و جزاكم الله خيرا

بارك الله فيكم و بجهودكم

السلام عليكم ورحمة الله وبركاته أنا حاولت ان أضيف مربع خاص بالصورة في البرمجة لكن لم أعرف ما عهي البرمجة الخاصة بذلك ماذا أكتب بين Private Sub Image1_Click() End Sub أريد وضع الصور في ملف معين و عند وضع رقم الكود في الفورم الخاص بشؤون الموظفين يظهر الصورة أرجو الشرح لذلك

السلام عليكم مشكور مشكور مشكور بارك الله فيك عندي سؤال إذا اردت أن اضيف صورة للموظف مرتبطه برقم معين كيف ذلك أنا وضعت مربع للصورة لكن ماهي البرمجة هل ممكن طباعة البيانات من الفورم إضافة زر للطباعة وشكرا

السلام عليكم مشكور مشكور مشكور بارك الله فيك عندي سؤال إذا اردت أن اضيف صورة للموظف مرتبطه برقم معين كيف ذلك أنا وضعت مربع للصورة لكن ماهي البرمجة وشكرا

الحلو في الموضوع احنا ممنوعين من تنزيل العاب على اجهزتنا بالمكتب أما هذه بصيغة البوربويت تعمل كثر منها مشكور :fff: :fff:

بارك الله فيك