منتدى جزيرة الرياضيات

منتدى جزيرة الرياضيات (http://www.hesab.net/vb/index.php)
-   جزيرة برنامج الفجوال بيسك (http://www.hesab.net/vb/forumdisplay.php?f=50)
-   -   الى الاستاذ خليل مع التحيه (http://www.hesab.net/vb/showthread.php?t=3622)

ابو مرام 02-18-2008 08:09 PM

الى الاستاذ خليل مع التحيه
 
Data1.Recordset.MoveFirst
("ادخل الرقم")xx=input box
"' "& &"'= " y=" n3
Data1.Recordset.FindLast y
Exit Sub

الاخ العزيز الاستاذ خليل
بارك الله فيك وفي جهودك فانت لك بصمه في جميع انحاء المنتدى وهذا ما يلاحظه الجميع عموماً لا اريد الإطالة عليك ولا استغني عن مساعدتك فعندي طلبين اتمنى ان اجد لها اجابه عندك
وهي
الكود اعلاه للبحث عن الرقم عن طريق ادارة الربط (data1) الا ان النتيجه خطأ
Data1.Recordset.FindLast y
فماهو الكود المناسب للبحث عن الرقم ارجو مساعدتي في ذلك
"' "& &"'= " y=" n3 علماً بان n3 يرمز لتكست الرقم في حقل الجدول
الامر الاخر
كيف يمكنني التنقل عن طريق زر الامر (enter) بدلاً من زر التنقل (tab)
اخيراً اعلم استاذي انني قد اكثرة عليكم في طلباتي ولكن عشمي فيك وفي الخيرين كبير
شكراً

الاستاذ خليل 02-18-2008 11:30 PM

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

لكن ممكن تعمل التالي :

كود:

data1.RecordSet.MoveFirst
    Do While Not (data1.RecordSet.EOF)
        '
        'code to process the current record
        اضف عنا كود يقوم بالتحقق من متغير السطر

        data1.RecordSet.MoveNext
    Loop



الساعة الآن 02:20 AM

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. TranZ By Almuhajir