تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة البحث في مربع النص dr.mostashar 3 52 15-07-18, 09:13 PM
آخر رد: elgokr
  احبابى فى الله برجاء المساعدة فى البحث بالكود مرفق مثال mhareek 6 229 03-05-18, 02:09 PM
آخر رد: mhareek
  منع تشغيل اكثر من نسخة من البرنامج alfakeehy 3 172 01-03-18, 05:53 PM
آخر رد: alfakeehy
  [سؤال] استثناء داتا معينةعند امر البحث amro_demon 4 100 18-02-18, 01:23 PM
آخر رد: amro_demon
  البحث عن ملفات dr.mostashar 3 83 10-02-18, 02:12 PM
آخر رد: Eng27
  [vb6.0] استفسار عن كود البحث SALEM-900 5 200 24-01-18, 06:21 PM
آخر رد: Amir_Alzubidy
  طلب كود للاضافة والتعديل على اكثر من جدول w123eg 0 68 10-01-18, 08:26 PM
آخر رد: w123eg
  [سؤال] البحث بالسنة Abdellah 4 206 19-11-17, 04:19 PM
آخر رد: Abdellah
  مساعدة في البحث والجمع sulimanalahdl 4 222 10-11-17, 02:17 AM
آخر رد: sulimanalahdl
  البحث في ملف word dr.mostashar 2 203 01-11-17, 10:03 PM
آخر رد: dr.mostashar

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


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