طلب تطبيق كود الاستاذ عمر الحسيني على ملفي

[زياد عبد الجليل]

السلام على حميع الاخوة الافاضل صحيح ان الاكسل بحر كلما علمنا شئ غابت عنا اشياء اساتذتي الافاضل عندي ملف للاستاذ عمر الحسيني فيه كود يقوم بالقص و النسخ مختصر و رائع و لكن الاشكال عندما جئت لتنفيذه على ملفي لم اعرف اين السر فقد جربت كل الطرق و عدلت في الخلايا و طبقت الملف نفسه مع زيادة في الاعمدة و لكن كان الفشل السمة الغالبة على عملي خاصة واني لا اساوي شئ امام عمالقة هذا المنتدى فكل استاذ يعتبر مدرسة قائمة بذاتها وكل كود ينسينا في الكود الذي بعده ...ولم اعرف ما السبيل اساتذتي ارجو تطبيق ملف الاستاذ عمر على ملفي خاصة وان عملي بقي فيه تطبيق هذا الكود فقط ...شكرا مسبقا لكم على مساعدتكم وتقبلو مني فائق عبارات الاحترام و التقدير:

ملف الاستاذ عمر :

 

Omar_1.rar

وهذا ملفي ..ملف التلميذ

حذف و لصق في صفحة ثانية.rar

تم تعديل أغسطس 17, 2016 بواسطه زياد777

[أبو حنــــين]

الأخ زياد

جرب المرفق الذي أنجر بطريقة أخرى

 

حذف و لصق.rar

تم تعديل أغسطس 18, 2016 بواسطه أبو حنــــين

[omar elhosseini]

 

يرجي عدم فتح اكثر من موضع لنفس المشاركة

 

[زياد عبد الجليل]

شكرا جزيلا ابو حنين تسلم الايادي اعطيتني الملف كامل مكمل خارج من الفرن و الله اكثر من ممتاز ...تشكراتنا استاذ و بارك الله فيك  اخي ابو حنين لو اضفنا مثلا عمود بعد الملاحظات و سميناه مثلا القسم ووضعنا فيه بيانات كيف يمكن اخفاءه من الليست بوكس عند عمل كليك و من ثمة اضهاره في تاكس بوكس11 و اجراء الادخال و  التعديل و الحذف...الخ

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

تم تعديل أغسطس 18, 2016 بواسطه زياد777

[أبو حنــــين]

السلام عليكم

جرب المرفق

 

2حذف و لصق.rar

[زياد عبد الجليل]

كم انت كبير يا ابن الصحراء....ما هذه الروعة اخي ابو حنين و الله روعة لاتوصف و اكواد وكانك تاتي بها من السماء الله يبارك فيك اخي ...بقي بعض الاشياءدفقط ان لبيتها  اكون شاكرا لك لاني عملت كود و يعمل و لكن عند التسجيل الجديد يقع اختلال ...الطلب يكمن في :

1- عند الضغط على الليست بوكس تنتقل البيانات الى التاكس بوكس وهنا عند الضغط على موافق للتسجيل اي ادخال جديد يمكن ان يحدث تكرار نفس التلميذ في القائمة انا اود وضع كود تاتي من خلاله رسالة تقول  لا يسمح بتكرار تسجيل نفس التلميذ في نفس القسم مثل (كود نقل تلميذ الى قسم لا يسمح بنقله الى نفس القسم) مع اسمه و لقبه و قسمه  .هاهو الكود الذي و ضعته و لكن حدثت هناك مشاكل لاني لازلت مبتدئ في الاكواد.

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

وفي الاخير اجدد لك شكري و اعجابي باعمالك ...تقبل مني اصدق عبارات الشكر و التقدير ...بارك الله فيك ومع الف سلامة اخي .

Private Sub CmdSaveN_Click()
Dim x As Range
If TextBox2 <> "" Then
    Set x = Range("A:A").Find(TextBox2, , xlValues, xlWhole, , , False)
    If Not x Is Nothing Then
    MMS = "åÐÇ ÇáÊáãíÐ ãÓÌá   " & vbNewLine & ListBox1.List(ListBox1.ListIndex, 3) & "  " & ListBox1.List(ListBox1.ListIndex, 4) & _
"  Ýí ÞÓã  " & ComboBox2.Value & _
"  åá ÊæÏ ÊßÑÇÑ äÝÓ ÇáÊáãíÐ"
TI = "  ÍÐÝ ÊáãíÐ "
NN = vbInformation + vbMsgBoxRight + vbYesNo
If MsgBox(MMS, NN, TI) = vbNo Then
For ii = 3 To 11
Me.Controls("TextBox" & ii) = ""
Next
Exit Sub
    End If
End If

 

تم تعديل أغسطس 19, 2016 بواسطه زياد777

[زياد عبد الجليل]

رجاء هل يمكن مساعدتي في اتمام المطلوب و شكرا

[أبو حنــــين]

مرحبا

جرب المرفق

3حذف و لصق.rar

[زياد عبد الجليل]

بارك الله فيك  استاذ ابو حنين غاية في الروعة