تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
البحث اكثر من مرة
#1
If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient

ساعات بعمل كذا بحث في نفس الوقت عن طريق combo اول مرة بتعمل بحث ثاني مرة تظهر رسالة خطا عند rs.close
فعايز كود لو
If rs.State = 1 Then rs.open
بس الكود ده في غلط اعمل ايه
الرد
تم الشكر بواسطة:
#2
تم عن طريق
Set rs = Nothing

شكرا جزيلا
الرد
تم الشكر بواسطة:
#3
باستعمال اداة داتا يمكنك عمل findfirst و findnext

ان كنت مهتما فسوف اضعها لك

كود :
Data1.Recordset.OpenRecordset
Data1.Recordset.FindFirst "[word]='" & Trim$(Text1.Text) & "'"
If Not Data1.Recordset.NoMatch Then
في حال الايجاد نفذ
else
في حالة عدم الايجاد نفذ
endif

Data1.Recordset.OpenRecordset
Data1.Recordset.FindNext "[word]='" & Trim$(Text1.Text) & "'"
If Not Data1.Recordset.NoMatch Then
في حال الايجاد نفذ
else
في حالة عدم الايجاد نفذ
endif
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال حول البحث في combobox tighrmte 3 167 27-01-19, 11:08 PM
آخر رد: عبدالله الصافي
  سوال حول البحث بين التاريخين tighrmte 4 152 17-01-19, 12:35 AM
آخر رد: tighrmte
  [سؤال] كود البحث عن ملف في الجهاز ناجح احمد 5 233 01-12-18, 11:10 PM
آخر رد: ناجح احمد
  [vb6.0] طريقة البحث بين تاريخين ahmedalrawad 3 293 10-09-18, 12:07 AM
آخر رد: جاسم عبد
  طريقة البحث في أي جزء من الاسم فيصل علي 2 312 01-09-18, 04:21 AM
آخر رد: فيصل علي
Question [vb6.0] يوجد مشكله في البحث حيث لا يظهر قيمة هذا الخيار عندي البحث الموجود في الصورة ؟؟ Microformt 5 289 20-08-18, 08:47 PM
آخر رد: elgokr
  البحث في عدة قواعد بيانات في نفس الوقت gonm64 2 225 10-08-18, 01:32 PM
آخر رد: gonm64
  منع تشغيل اكثر من نسخة من البرنامج alfakeehy 4 544 31-07-18, 09:02 PM
آخر رد: المهندس ابوبكر
  طريقة البحث في مربع النص dr.mostashar 3 315 15-07-18, 09:13 PM
آخر رد: elgokr
  احبابى فى الله برجاء المساعدة فى البحث بالكود مرفق مثال mhareek 6 455 03-05-18, 02:09 PM
آخر رد: mhareek

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم