reda23dz قام بنشر نوفمبر 30, 2015 مشاركة قام بنشر نوفمبر 30, 2015 السلام عليكم ورحمة الله وبركاته ممكن كود المعاينة في حالة زر الاختيار والقوائم المتعلقة بأخرى exemple.rar رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر نوفمبر 30, 2015 مشاركة قام بنشر نوفمبر 30, 2015 (معدل) السّلام عليكم و رحمة الله و بركاته أخي الكريم " REDA23DZ " .. هذه إحدى المحاولات لتوضيح الفكرة و لو نسبيًّا لديك .. مصدر القوائم المنسدلة و التي هي باليوزرفورم عبارة عن كومبوبوكسات مأخوذ من نفس الورقة ..مثلما توضّحه الصّورة أدناه : محاولة غير إحترافيّة منّي .. أتمنى أن تفي بالغرض و لو لجزء بسيط من مشروعك فائق إحتراماتي رضا.rar تم تعديل ديسمبر 1, 2015 بواسطه عبد العزيز البسكري رابط هذا التعليق شارك More sharing options...
reda23dz قام بنشر ديسمبر 1, 2015 الكاتب مشاركة قام بنشر ديسمبر 1, 2015 مشكور أخي على الإجابة القيمة وجزاك الله خيرا لكن ياريت التعديل على نموذجي لأنني جد مبتدأ وأريد كود لمعاينة قوائم الاختيار Bouton d'option & case à cocher وكذا القوائم المتعلقة ببعضها وهذا حسب النموذج الخاص بي والموجود بالمرفقات وشكرا رابط هذا التعليق شارك More sharing options...
reda23dz قام بنشر ديسمبر 1, 2015 الكاتب مشاركة قام بنشر ديسمبر 1, 2015 (معدل) كيف يمكن الكتابة مكان سطر المعلومات المحذوفة حتى لا يترك فارغ وتتم الكتابة في آخر سطر فارغ؟؟؟؟؟؟؟؟؟؟ يعني كيف نخلي البرنامج يأتي لنا بقيمة الأوبسيون بوكس من الجدول على الشيت 01 مثلا إلى اليوزر فورم وكذلك هو الشأن بشيك بوكس والكمبوكس المتعلق بكمبوبوكس آخر وهذا كله في حالة المعاينة تم تعديل ديسمبر 1, 2015 بواسطه reda23dz رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر ديسمبر 1, 2015 مشاركة قام بنشر ديسمبر 1, 2015 السّلام عليكم و رحمة الله و بركاته أخي الكريم "REDA23DZ" .. أرجو المعذرة .. صدّقني فقط قضيّة وقت .. سأحاول بإذن الله إعادة الملف بكيفية مختلفة .. قدر المستطاع مثلما طلبت فائق إحتراماتي رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر ديسمبر 1, 2015 مشاركة قام بنشر ديسمبر 1, 2015 (معدل) السّلام عليكم و رحمة الله و بركاته أخي الكريم .. هذا ملف به تقريبًا ما طلبته .. فقط للتّنبيه الكومبوبوكس الخاص بالكلمتين " ممنوح - غير ممنوح " لا يظهر على اليوزرفورم إلاّ عند إختيار عبارة " نصف داخلي " بالنسبة لتساؤلاتك .. سأحاول شرحها لك حين ميسرة .. لكن من الأحسن و من الأفضل لي و لك متابعة سلسلة دروس " علّمني كيف أصطاد " للأستاذ القدير .. " الصّقر " المثبّتة في المواضيع أعلى الصفحة .. فبها ستجد حلول جميع تساؤلاتك بإذن الله .. فائق إحتراماتي تم تعديل ديسمبر 2, 2015 بواسطه عبد العزيز البسكري رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر ديسمبر 2, 2015 مشاركة قام بنشر ديسمبر 2, 2015 السلام عليكم تفضل اخي رضا نموذجين شاهدهما وإذا احتجت لاي شرح او توضيح او تغيير فأبشر وضًح بالتفصيل فقط النموذج الثاني واحد فريم اول مايفتح الفورم سيكون للمعاينة فقط أي تختار الرقم من الكمبويكس وستظهر النتائج لكن هنا النتائج ستختلف عن المعتاد طبعا الاسم واللقب بيظهر معاك بالتكست بوكس اما نوع الجنس إذا ذكر سينشط الاوبشن الخاض بالذكر وإذا إنثى سينشط الاوبشن الخاص بالانثى.كذلك في التشيك بوكسات بالمثل إذا نعم سينشط التشيك بوكس الخاص بذلك .بإختصار إذا اردت إضافة سجل جديد ما عليك إلا ان تضغط علي التشيك بوكس جديد النموذج الثاني عدد 2 فريم واحد للإضافة والآخر للمعاينة كالمعتاد . Veiw And transfer.rar Veiw And transfer.rar رابط هذا التعليق شارك More sharing options...
reda23dz قام بنشر ديسمبر 2, 2015 الكاتب مشاركة قام بنشر ديسمبر 2, 2015 الله يبارك فيك أخي الكريم رابط هذا التعليق شارك More sharing options...
reda23dz قام بنشر ديسمبر 2, 2015 الكاتب مشاركة قام بنشر ديسمبر 2, 2015 (معدل) بقي مشكلة واحدة وأرتاح: ناقص عمود بإسم: الصفة: يأخذ القيم: خارجي - نصف داخلي - داخلي ليليه العمود الموجود بإسم: نوع النصف داخلي الذي يأخذ القيمتان: ممنوح - غير ممنوح فقط بالنسبة لليوزر فورم والمعاينة كانت مثلما احتجت فمشكور أخي وألف شكر والله يبارك فيك لكن ياريت لو تكمل camboBox الذي يحمل اسم: الصفة ويأخذ قيم العمود الموافق له (الصفة) في الشيت وعندما يأخذ القيمة: نصف داخلي يظهر الكمبوبوكس: نوع النصف داخلي (هذا الكمبوبوكس يظهر فقط مع الصفة: نصف داخلي) يعني مقصودي في كود المعاينة كيف يكون العمل حتى يظهر الكمبوبوكس (نوع نصف داخلي) بقيمتين: ممنوح وغير ممنوح عندما تكون قيمة الكمبوبوكس (الصفة) نصف داخلي لطالب نصف داخلي وكيف يكون الأمر لإخفائه (الكمبوبوكس: نوع نصف داخلي) في حالة الصفتين الخارجي والداخلي وممكن اضافة زر للحذف ويكون عند حذف معلومات سطر معين (عند الأمر حذف) يتم الكتابة مكانه عند استعمال الأمر: إضافة جديد ولا ينزل إلى أسفل حتى يتم ملء جميع الأسطر الفارغة نتيجة الحذف وعند اكمال الحذف يذهب إلى أسفل عمود مملوء لتتم هناك إضافات أخرى Veiw And transfer.rar تم تعديل ديسمبر 2, 2015 بواسطه reda23dz رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر ديسمبر 2, 2015 مشاركة قام بنشر ديسمبر 2, 2015 السلام عليكم ورحمة الله تم التعديل حسب فهمـي إن شاء الله يكون المطلوب شاهد المرفقين إذا فية أي تعديل لا تتردد One Frame.rar Two Frame.rar باقي الحذف نشوفه اظن انك تقصد التعديل اترك لي بعض الوقت اشوفه رابط هذا التعليق شارك More sharing options...
reda23dz قام بنشر ديسمبر 2, 2015 الكاتب مشاركة قام بنشر ديسمبر 2, 2015 (معدل) بارك الله فيك أخي وجزاك الله خيرا فيما يخص الحذف: قصدي مثلا أنه بعد ادخال معلومات لمجموعة معينة من الطلاب مثلا 100 أريد حذف الطالب الموجود في السطر 20 مثلا عند تنفيذ الحذف أريد هذا السطر أن يملء ببيانات الطالب الذي أريد ادخاله مباشرة بعد هذه المجموعة وهكذا إذا كان الحذف لطالبان وبعد ملء الأسطر الفارغة جراء الحذف بطلاب جدد ينتقل إلى آخر سطر فارغ أو يتم حذف السطر بالكامل وإزاحة وعدم تركه فارغا تم تعديل ديسمبر 2, 2015 بواسطه reda23dz رابط هذا التعليق شارك More sharing options...
reda23dz قام بنشر ديسمبر 2, 2015 الكاتب مشاركة قام بنشر ديسمبر 2, 2015 (معدل) العمود (الصفة) يأخذ القيم: نصف داخلي - خارجي - داخلي العمود(نوع النصف داخلي: يأخذ القيم : ممنوح - غير ممنوح إذا كانت الصفة: نصف داخلي فقط ولا يأخذ أي قيمة في الحالتين: خارجي و داخلي وكذلك الشأن بالقوائم المنسدلة في الفورم Two Frame_معدل.rar Two Frame_معدل.rar Two Frame_معدل.rar تم تعديل ديسمبر 2, 2015 بواسطه reda23dz رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 السلام عليكم ورحمة الله اخي انا جهزت الحذف لآخر سجل والحذف لسجل محدد برقمة عفوا لكن الملاحظ هناك فجوة لم افهمها من خلال شرحك لما تريد ممكن اني لم أتصوًر المشروع. صدقني اريد مساعدتك . قم بعمل شيت بها العناوين كاملة فقط وقم بتعبئتها بكل الحالات إذا كانت الصفة: نصف داخلي فقط ولا يأخذ أي قيمة في الحالتين: خارجي و داخلي فهمت انه إذا كانت الصفة نصف داخلي لاياخذ أي قيمة طيب وإذا كانت الصفة خارجي او داخلي ماهي القيم رابط هذا التعليق شارك More sharing options...
reda23dz قام بنشر ديسمبر 3, 2015 الكاتب مشاركة قام بنشر ديسمبر 3, 2015 شكرا أخي على المجهود: نصف داخلي= ممنوح وغير ممنوح أما خارجي وداخلي فتبقى الخانة فارغة بالنسبة لنوع نصف داخلي لأنها خاصة بالتعريف فقط بنصف داخلي أما الصفات الأخرى فغير معنية رابط هذا التعليق شارك More sharing options...
reda23dz قام بنشر ديسمبر 3, 2015 الكاتب مشاركة قام بنشر ديسمبر 3, 2015 (معدل) يعني مشكلتي هي كيف أملء قيم الكمبوبوكس انطلاقا من خلية محددة عند المعاينة للمعلومات الموجودة في الجدول تم تعديل ديسمبر 3, 2015 بواسطه reda23dz رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 السلام عليكم ورحمة الله إليك شرح مبسط وعلي السريع طريقتين بسيطة جدا بالطرق التقليدية لتعبئة الكمبو بكس وهناك طرق كثيرة بإستخدام لغة البرمجة VBA ملف وورد شرح الطريقة وملف إكسل كمثال شرح تعبئة الكمبوبكس بالطرق التقليدية بسيطه وسهلة.rar مثال.rar رابط هذا التعليق شارك More sharing options...
reda23dz قام بنشر ديسمبر 3, 2015 الكاتب مشاركة قام بنشر ديسمبر 3, 2015 أخي الكريم شكرا على الردود مشكلتي ليست في التعبئة العادية وادخال المعطيات للجدول إنطلاقا من الفورم المشكلة هي عند عمل زر معاينة ويكون عندي كمبوبوكس كيف نخلي الكود يأتيني بقيم معينة من عمود معين ويخلي الكمبوبوكس تأخذ هذه القيم (عكس إدخال المعلومات من اليوزر للشيت- هذه الحالة أخذ القيم من الشيت إلى اليوزر)..... رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر ديسمبر 3, 2015 مشاركة قام بنشر ديسمبر 3, 2015 السلام عليكم ورحمة الله إرجاع القيم للكمبو هي مثل التكست في المرق وهو المثال المرسل لك سابقا في الإستعلام او المعاينة فقط تم إضافة كمبوبكس تحت كل تكست بوكس واضف تحت كل كود للتكست مثلة للكمبو إن شاء الله واضح ومرفق لك المثال المذكور بملف إكسل Private Sub ComboBox1_Change() On Error Resume Next Dim x, R As Variant x = ComboBox1.Value * 1 R = WorksheetFunction.Match(x, Range("Numbers"), 0) + 1 ComboBox3.Value = Feuil1.Cells(R, "B").Value TextBox11.Text = Feuil1.Cells(R, "B").Value ComboBox4.Value = Feuil1.Cells(R, "C").Value TextBox12.Text = Feuil1.Cells(R, "C").Value ComboBox5.Value = Feuil1.Cells(R, "D").Value TextBox13.Text = Feuil1.Cells(R, "D").Value ComboBox7.Text = Feuil1.Cells(R, "E").Value TextBox11.Text = Feuil1.Cells(R, "E").Value ComboBox8.Value = Feuil1.Cells(R, "F").Value TextBox14.Text = Feuil1.Cells(R, "F").Value ComboBox9.Value = Feuil1.Cells(R, "G").Value TextBox15.Text = Feuil1.Cells(R, "G").Value ComboBox6.Value = Feuil1.Cells(R, "H").Value TextBox16.Text = Feuil1.Cells(R, "H").Value End Sub Two Frame.rar رابط هذا التعليق شارك More sharing options...
reda23dz قام بنشر ديسمبر 3, 2015 الكاتب مشاركة قام بنشر ديسمبر 3, 2015 مشكور أخينا على جهودك القيمة يار يت لو جعل الصف يحذف نهائيا عند اجراء عملية الحذف وعدم الاكتفاء بحذف القيم فقط وإعادة جعل الترقيم متسلسل رابط هذا التعليق شارك 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.