اريد ان يتم تطبيق الشرط التالي على كافة حقول الجدول، بحيث يقرأ جميع السجلات
إلى أن يجد القيمة المطلوبة
If Text1.Text = rs![uid] And Text2.Text = rs![upass] Then call vv
استخدمت طريقة Do while كالآتي :
do while not rs.EOF If Text1.Text = rs![uid] And Text2.Text = rs![upass] Then rs.movenext call vv end if loop
إلا أنه عند التشغيل فإن البرنامج يتوقف عن العمل ويبقى معلق
ما السبب وما الخطأ في الكود؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
باستخدام الكود أم بالأداة ؟
عن طريق الكود
rs.Open "select * from Table1 where uid='" & Text1.Text & "' and upass='" & Text2.Text & "'", cn, adOpenStatic, adLockOptimistic
if rs.RecordCount >0 then
call vv
else
msgbox("عفوا لا توجد نتائج")
end if
السلام عليكم
أعتقد الخطأ كله انك حطيتي جملة الشرط داخل الـحلقة
جربي تكتبي الكود كده
If Text1.Text = rs![uid] And Text2.Text = rs![upass] Then do while not rs.EOF rs.movenext call vv loop end if
جربي ولو في أي مشكلة ان شاء الله مش هتأخر
سلام
===========
الى اللقاء
JusT LeT YouR MinD WorK
أذا أردت الحصول على الحقول
for i = 0 to rs.fields.count - 1 all = all & rs(i).name & vbtab & vbtab next msgbox all do while not rs.eof for i = 0 to rs.fields.count - 1 all = all & rs(i).value& vbtab & vbtab next rs.movenext loop msgbox all
هذا الموضوع مغلق.
