السلام عليكم ورحمة الله وبركاته
يااخوان تعبت جدا ومليت جدا من عمل زر بحث لهذا البرنامج
ياليت تساعدوني في عمل الكود ثم ارفاقه مره اخرى.
الله يجزاكم الفردوس الأعلى..........
استاذي بن حسن المتواضع ........شكرا وجزاك الله الجنه
نزلت المرفق عطاني مشكله في المسار ثم اخذت الكود تبعك ووضعة في البرنامج السابق في كماند بحث
وشتغل ممتاز.
ولكن المشكله احتاج الي رساله غير موجود اذا بحثت عن اسم غير موجود في الجدول.
الطلب الأخير لوا سمحت في هذا الكود يجب عليه كتابة الأسم كامل هل ممكن تساعدني في جعله يعمل مع
جزء بسيط من الأسم او مجرد الأسم فقط وليس كامل الأسم يعني (علي محمد احمد)
هل استطيع اكتب فقط علي ويعمل البحث.
آسف على الاطاله
سبحان الله وبحمده سبحان الله العظيم
أيوة كده يا اخي إدعيلي :D
إليك كود زر البحث
Dim sName As String
sName = InputBox("أدخل إسم الطالب")
If sName <> "" Then
Data1.Recordset.MoveFirst
Data1.Recordset.Find "st_name like %" & sName & "%"
If Data1.Recordset.EOF Then MsgBox "غير موجود"
End Ifلك تحياتي
أسألكم الدعاء لأبي و أمي
اشتغل زى الحلاوه ياقمر.........والله سوف اسئل الله ان يغفر لوالديك في صلاة الظهر مع الجماعه.
سبحان الله وبحمده سبحان الله العظيم
أيوة بالله عليك إدعيلهم و أدعوا لي معهم
الأهم يا اخي أنك تفهم الكود و طريقة عمله
و انصحك بذك في البرمجه عموما
وربنا يوفقك :D
أسألكم الدعاء لأبي و أمي
هذا الموضوع مغلق.