اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر (معدل)

السّلام عليكم و رحمة الله و بركاته

أخي الكريم " REDA23DZ " .. هذه إحدى المحاولات لتوضيح الفكرة و لو نسبيًّا لديك .. مصدر القوائم المنسدلة و التي هي باليوزرفورم  عبارة عن كومبوبوكسات مأخوذ من نفس الورقة ..مثلما توضّحه الصّورة أدناه :

1.jpg.874dba7adf29faacaecf0cce6f5749e1.j

محاولة غير إحترافيّة منّي .. أتمنى أن تفي بالغرض و لو لجزء بسيط من مشروعك

فائق إحتراماتي

 

 

 

 

 

 

رضا.rar

تم تعديل بواسطه عبد العزيز البسكري
قام بنشر

مشكور أخي على الإجابة القيمة وجزاك الله خيرا لكن ياريت التعديل على نموذجي لأنني جد مبتدأ وأريد كود لمعاينة قوائم الاختيار

Bouton d'option & case à cocher

وكذا القوائم المتعلقة ببعضها وهذا حسب النموذج الخاص بي والموجود بالمرفقات

وشكرا

 

قام بنشر (معدل)

كيف يمكن الكتابة مكان سطر المعلومات المحذوفة حتى لا يترك فارغ وتتم الكتابة في آخر سطر فارغ؟؟؟؟؟؟؟؟؟؟

 يعني كيف نخلي البرنامج يأتي لنا بقيمة الأوبسيون بوكس من الجدول على الشيت 01 مثلا إلى اليوزر فورم  وكذلك هو الشأن  بشيك بوكس والكمبوكس المتعلق بكمبوبوكس آخر وهذا كله في حالة المعاينة

تم تعديل بواسطه reda23dz
قام بنشر

السّلام عليكم و رحمة الله و بركاته

أخي الكريم "REDA23DZ" .. أرجو المعذرة .. صدّقني فقط قضيّة وقت .. سأحاول بإذن الله إعادة الملف بكيفية مختلفة .. قدر المستطاع مثلما طلبت

فائق إحتراماتي

قام بنشر (معدل)

السّلام عليكم و رحمة الله و بركاته

أخي الكريم .. هذا ملف به تقريبًا ما طلبته .. فقط للتّنبيه الكومبوبوكس الخاص بالكلمتين " ممنوح - غير ممنوح " لا يظهر على اليوزرفورم إلاّ عند إختيار عبارة " نصف داخلي "

بالنسبة لتساؤلاتك .. سأحاول شرحها لك حين ميسرة .. لكن من الأحسن و من الأفضل لي و لك متابعة سلسلة دروس " علّمني كيف أصطاد " للأستاذ القدير .. " الصّقر " المثبّتة في المواضيع أعلى الصفحة .. فبها ستجد حلول جميع تساؤلاتك بإذن الله ..

فائق إحتراماتي

 

 

 

تم تعديل بواسطه عبد العزيز البسكري
قام بنشر

السلام عليكم تفضل اخي رضا نموذجين شاهدهما وإذا احتجت لاي شرح او توضيح او تغيير فأبشر وضًح بالتفصيل فقط

 

النموذج  الثاني واحد فريم اول مايفتح الفورم سيكون للمعاينة فقط أي تختار الرقم من الكمبويكس وستظهر النتائج لكن هنا النتائج ستختلف عن المعتاد طبعا الاسم واللقب بيظهر معاك بالتكست بوكس اما نوع الجنس إذا ذكر سينشط الاوبشن الخاض بالذكر وإذا إنثى سينشط الاوبشن الخاص بالانثى.كذلك في التشيك بوكسات بالمثل إذا نعم سينشط التشيك بوكس الخاص بذلك .بإختصار

إذا اردت إضافة سجل جديد ما عليك إلا ان تضغط علي التشيك بوكس جديد

النموذج الثاني عدد 2 فريم واحد للإضافة والآخر للمعاينة كالمعتاد .

 

Veiw And transfer.rar

Veiw And transfer.rar

قام بنشر (معدل)

بقي مشكلة واحدة وأرتاح:

ناقص عمود بإسم: الصفة: يأخذ القيم: خارجي - نصف داخلي - داخلي ليليه العمود الموجود بإسم: نوع النصف داخلي الذي يأخذ القيمتان: ممنوح - غير ممنوح فقط

بالنسبة لليوزر فورم والمعاينة كانت مثلما احتجت فمشكور أخي وألف شكر والله يبارك فيك لكن ياريت لو تكمل camboBox  الذي يحمل اسم: الصفة ويأخذ قيم العمود الموافق له (الصفة) في الشيت وعندما يأخذ القيمة: نصف داخلي يظهر الكمبوبوكس: نوع النصف داخلي (هذا الكمبوبوكس يظهر فقط مع الصفة: نصف داخلي) يعني مقصودي في كود المعاينة كيف يكون العمل حتى يظهر الكمبوبوكس (نوع نصف داخلي) بقيمتين: ممنوح وغير ممنوح عندما تكون قيمة الكمبوبوكس (الصفة) نصف داخلي لطالب نصف داخلي وكيف يكون الأمر لإخفائه (الكمبوبوكس: نوع نصف داخلي) في حالة الصفتين الخارجي والداخلي

وممكن اضافة زر للحذف ويكون عند حذف معلومات سطر معين (عند الأمر حذف) يتم الكتابة مكانه عند استعمال الأمر: إضافة جديد ولا ينزل إلى أسفل حتى يتم ملء جميع الأسطر الفارغة نتيجة الحذف وعند اكمال الحذف يذهب إلى أسفل عمود مملوء لتتم هناك إضافات أخرى

 

 

Veiw And transfer.rar

تم تعديل بواسطه reda23dz
قام بنشر

السلام عليكم ورحمة الله

تم التعديل حسب فهمـي إن شاء الله يكون المطلوب

 شاهد المرفقين إذا فية أي تعديل لا تتردد

 

 

 

 

One Frame.rar

Two Frame.rar

باقي الحذف نشوفه اظن انك تقصد التعديل اترك لي بعض الوقت اشوفه

قام بنشر (معدل)

بارك الله فيك أخي وجزاك الله خيرا

 فيما يخص الحذف: قصدي مثلا أنه بعد ادخال معلومات لمجموعة معينة من الطلاب مثلا 100 أريد حذف الطالب الموجود في السطر 20 مثلا عند تنفيذ الحذف أريد هذا السطر   أن يملء ببيانات الطالب الذي أريد ادخاله مباشرة بعد هذه المجموعة وهكذا إذا كان الحذف لطالبان وبعد ملء الأسطر الفارغة جراء الحذف بطلاب جدد ينتقل إلى آخر سطر فارغ

أو يتم حذف السطر بالكامل وإزاحة وعدم تركه فارغا

تم تعديل بواسطه reda23dz
قام بنشر (معدل)

العمود (الصفة) يأخذ القيم: نصف داخلي - خارجي - داخلي

العمود(نوع النصف داخلي: يأخذ القيم : ممنوح - غير ممنوح إذا كانت الصفة: نصف داخلي فقط ولا يأخذ أي قيمة في الحالتين: خارجي و داخلي

وكذلك الشأن بالقوائم المنسدلة في الفورم 

Two Frame_معدل.rar

Two Frame_معدل.rar

Two Frame_معدل.rar

تم تعديل بواسطه reda23dz
قام بنشر

السلام عليكم ورحمة الله

اخي انا جهزت الحذف لآخر سجل والحذف لسجل محدد برقمة

عفوا لكن الملاحظ هناك فجوة لم افهمها من خلال شرحك لما تريد ممكن اني لم أتصوًر المشروع.

صدقني اريد مساعدتك .

قم بعمل شيت بها العناوين كاملة فقط وقم بتعبئتها بكل الحالات

إذا كانت الصفة: نصف داخلي فقط ولا يأخذ أي قيمة في الحالتين: خارجي و داخلي

 فهمت انه إذا كانت الصفة نصف داخلي لاياخذ أي قيمة طيب وإذا كانت الصفة خارجي او داخلي ماهي القيم 

 

 

قام بنشر

شكرا أخي على المجهود:

نصف داخلي= ممنوح وغير ممنوح أما خارجي وداخلي فتبقى الخانة فارغة بالنسبة لنوع نصف داخلي لأنها خاصة بالتعريف فقط بنصف داخلي أما الصفات الأخرى فغير معنية 

قام بنشر (معدل)

يعني مشكلتي هي كيف أملء قيم الكمبوبوكس انطلاقا من خلية محددة عند المعاينة للمعلومات الموجودة في الجدول

تم تعديل بواسطه reda23dz
قام بنشر

السلام عليكم ورحمة الله

إليك شرح مبسط وعلي السريع طريقتين بسيطة جدا بالطرق التقليدية لتعبئة الكمبو بكس

 وهناك طرق كثيرة بإستخدام لغة البرمجة VBA

ملف وورد شرح الطريقة

وملف إكسل كمثال

شرح تعبئة الكمبوبكس بالطرق التقليدية بسيطه وسهلة.rar

مثال.rar

قام بنشر

أخي الكريم شكرا على الردود

مشكلتي ليست في التعبئة العادية وادخال المعطيات للجدول إنطلاقا من الفورم

المشكلة هي عند عمل زر معاينة ويكون عندي كمبوبوكس كيف نخلي الكود يأتيني بقيم معينة من عمود معين ويخلي الكمبوبوكس تأخذ هذه القيم  (عكس إدخال المعلومات من اليوزر للشيت- هذه الحالة أخذ القيم من الشيت إلى اليوزر).....

 

قام بنشر

السلام عليكم ورحمة الله

إرجاع القيم للكمبو هي مثل التكست في المرق وهو المثال المرسل لك سابقا في الإستعلام او المعاينة فقط تم إضافة كمبوبكس تحت كل تكست بوكس واضف تحت كل كود للتكست مثلة للكمبو

إن شاء الله واضح ومرفق لك المثال المذكور بملف إكسل

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

قام بنشر

مشكور أخينا على جهودك القيمة

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information