عبد الرحمن شفيق

للرفع

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

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

<

أستاذى القدير // رجب جاويش بارك الله فيكم دائما سباق لعمل الخير بالفعل هو المطلوب تماما جزاك الله خيرا

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

الاستاذ الكريم / سليم حاصبيا بالنسبة لـ sh12 فقد قمت في بداية الكود بجعل sh12 تساوي الشيت 1 Set sh12 = Sheets("Sheet1") وبالتالي لا اجد مشكلة من رقم 12 او غيره وللعلم استاذنا الفاضل ... الكود يعمل حتي كلمة else بشكل اكثر من راائع وقبل اضافتها كان لايوجد اي مشاكل ولكن بعدما احتجت الي ظهور رسالة تفيد بعدم وجود الرقم عند البحث في القائمة المحددة واضفت else والـ msgbox ظهرت المشكلة في انتظار ردودكم

استخدم الكود التالي في البحث في فورم اقوم بكتابة الرقم في تكست بوكس1 وتظهر نتيجة البحث في تكست بوكس2 وتكست بوكس3 ويعمل بشكل جيد ولكني احببت ان اضيف له جزء يقوم باعطائي رسالة في حالة عدم وجود هذا الكود في القائمة المحددة بان هذا الرقم غير موجود ولكن يحث معي خطأ ما !!!!1 فما هو الخطأ في هذا الكود Private Sub TextBox1_Change() Set sh12 = Sheets("Sheet1") LR = sh12.[G20000].End(xlUp).Row For Each cl In sh12.Range("G2:I" & LR) If (Val(Me.TextBox1)) = cl Then Me.TextBox2 = cl.Offset(0, 1) Me.TextBox3 = cl.Offset(0, 2) Else MsgBox "لاتوجد نتائج للبحث", vbMsgBoxRight, "عفوا" End If Next End Sub اظن ان الخطأ في الجزء .. ولكني لا اعلم اين Else MsgBox "لاتوجد نتائج للبحث", vbMsgBoxRight, "عفوا" في انتظار ردودكم اساتذتي

كل الشكر والتقدير لك استاذ الكبير / رجب جاويش وبالنسبة للعنوان مفهوم جدا ولكن هذا من السرعة في عرض الموضوع عليكم وبخصوص الكود ارجو ان تكرمت شرح السطر التالي وخصوصا الرقم -4 Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) وما المقصود بـ Left وما هو المقصود بـ Len لك ارق التحيات

لدي ملف اكسيل به فورم يفتح عند بداية فتح الملف به رقم سري واسم مستخدم احتاج لكود يقوم بكتابة اسم الملف الذي اقوم فتحه في ليبل في هذا الفورم الذي يظهر في بداية التشغيل ولكم جزيل الشكر

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

<>

منتهي الجمال والحلاوة والروعة استاذ / حمادة عمر استاذ / رجب جاويش لكم مني ارق التحيات والتقديرات

اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين

بالفعل استاذي الغالي الكبير / خبور خير لم اجد من كلمات الاستاذ / حمادة عمر للرد في هذا الموضوع جزاك الله خيرا