الإخوة الكرام
السلام عليكم ورحمة الله وبركاته
إخواني بين يدي نموذج بحث حملته من هذا المنتدى طبعاً قمت بالتعديل عليه .
أريد أن يطلع الإسم ورقم السجل في النموذج الرئيسي .
وكذلك إريد خروج رسالة في حالة عدم وجود الإسم .
لو تلاحظون إنه عند كتابة رقم في مربع البحث وكان الرقم صحيح سوف تظهر بياناته لكن الإسم والرقم لا تطلع في مربع النص .
وإليكم المرفق .
يا إخواني هل من مساعدة .
وعليكم السلام " أبو عبير 2005"
حسب طريقتي
جعلت النموذج الفرعي ياخذ جميع البيانات المطلوب اظهارها من الجدول
ثم النموذج الرئيسي ياخذ من النموذج الفرعي
واليك الملف بعد التعديل
بالتوفيق
لا تؤجل عمل اليوم الي الغد
ألف ألف شكر . رحم الله والديك
بارك الله فيك وفي ذريتك وبارك الله في علمك وعملك .
تقبل فائق تقديري واحترامي .
أخواني هل بالإمكان المساعدة بخروج رسالة في حالة عدم وجود رقم أو إسم ( عفواً لا يوجد رقم مطابق ) .
السلام عليكم اخي " أبو عبير 2005"
بدلا من ان (تدخل) عليك (الاختيار) فهو اسهل برأيي من التخمين ان كان الرقم او الاسم سبق ادخالة بالجدول أم لا ، ففي حالة وضعت رسالة بالنموذج القديم فسوف تظهر لك رسالة - مزعجة - في كل مرة لا يوجد فيها ما ادخلتة ...
فعدلت لك النموذج - ارجو ان يعجبك - وجرب - البرنامج مرفق بعد التعديل
بالتوفيق
لا تؤجل عمل اليوم الي الغد
بارك الله فيك وفي ذريتك
الله لا يحرمك الأجر ولا يحرمنا منك .
فكرتك ممتازة جداً وسوف استخدمها بإذن الله تعالى .
ولكن حالياً أحتاج خروج رسالة لأن نموذجي عبارة عن إدخال رقم السجل وإذا طلعت الرسالة بأنه لا يوجد بيانات يتم إكمال الباقي .
أرجو أن تساعدني في طلبي .
تقبل فائق تقديري واحترامي .
السلام عليكم اخي " أبو عبير 2005"
اليك التعديل كما تريد وعلي قد ما عرفت
واليك البرنامج
بالتوفيق
لا تؤجل عمل اليوم الي الغد
بارك الله فيك وفي ذريتك
الله لا يحرمنا منك ولا يحرمك الأجر
جزاك الله كل خير .
أخي الكريم بارك الله فيك
أرجو أن يكون صدرك رحباً ليتحمل كثرة طلباتي .
أخي الغالي أريد أن أعمل زر بحث . بدل البحث عند حدث التغيير لأنه شوه برنامجي لذلك أطلب مساعدتك .
تقبل شكري وتقديري .
السلام عليكم اخي " أبو عبير 2005"
جرب كدة
البرنامج
يمكن تعديل هذا الكود اذا كنت عايز تبحث عن جزء من الكلمة او الكلمة كلها
VarSearch = "*" & txt.Text & "*"
فيكون
VarSearch = txt.Text & "*"
او
VarSearch = "*" & txt.Text
حاول وجرب وشوف النتيجة بنفسك
بالتوفيق
لا تؤجل عمل اليوم الي الغد
الله يبارك فيك وفي مالك وولدك وزوجك ويكتب لك الأجر
فرج الله همك كما فرجت همي .
الله لا يحرمنا منك ومن ابداعاتك .
تقبل فائق تقديري واحترامي .
أخي الغالي بارك الله فيك
أنا حاولت أطبق كود البحث عن الكلمة كاملة ( يعني يكتب محمد ثم يعمل بحث ) لكن عندما طبقت كودك التالي
VarSearch = "*" & txt.Text
تطلع الرسالة بأن الإسم موجود ولكنه الحقيقة الإسم غير موجود في القاعدة
أما الأكواد الثانية في تبحث في جزء من الكلمة .
أرجو أن تتحملني على ثقل دمي بارك الله فيك .
تقبل فائق تقديري واحترامي .
هل من مجيب
السلام عليكم اخي " أبو عبير 2005"
استخدم هذا الكود - حيث تريد ان تبحث عن الاسم الذي ( يبدأ بــ)
VarSearch = txt.Text & "*"
وهذا حيث تريد ان تبحث عن الاسم الذي ( يحتوي علي)
فمثلا اذا كتبت كلمة محمد سيجدها واذا كتبت محمر لن يجدها
VarSearch = "*" & txt.Text & "*"
وهذا حيث تريد ان تبحث عن الاسم الذي ( ينتهي بــ)
VarSearch = "*" & txt.Text
بالتوفيق
لا تؤجل عمل اليوم الي الغد
بارك الله فيك وفي ذريتك .
تقبل تقديري واحترامي .
تكفون محتاج الحل بأسروع وقت بارك الله فيكم .
السلام عليكم اخي " أبو عبير 2005"
لكي تربط الجدول الثاني مع الجدول القديم لازم يكون بينهم شيئ مشترك
وتم ربطهم بواسطة الحقل ( Sid ) وهو ( السجل المدني للطالب) الذي لا يتكرر
مرفق ملفك بعد التعديل
بالتوفيق
لا تؤجل عمل اليوم الي الغد
بارك الله فيك وفي ذريتك .
مشكور وما قصرت الله يجعله في موازين حسناتك .
تقبل تقديري واحترامي .