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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الاحتفاظ بنتائج البحث Abdellah 16 275 14-03-17, 03:05 AM
آخر رد: Abdellah
  [vb6.0] البحث بشرطين Abdellah 4 154 07-03-17, 10:47 AM
آخر رد: Abdellah
  استفسار عن اضافة اكثر من صورة الي رقم واحد عمر سالم 1 106 26-02-17, 01:21 PM
آخر رد: Ahmed_Mansoor
  طباعة الدرجة باللون الاحمر اذا كانت اكثر من 50 haiderkh 7 128 22-02-17, 05:42 PM
آخر رد: haiderkh
  استفسار عن البحث في عدة حقول واربعه كمبوبكس alfakeehy 8 329 05-02-17, 07:39 PM
آخر رد: alfakeehy
Question [vb6.0] كيف انشي استعلام يظهر عدد نتايج البحث؟؟ Microformt 1 113 29-01-17, 09:33 PM
آخر رد: السيد الغالي
  [vb6.0] البحث في أكثر من جدول أيمن الفخراني 3 174 22-01-17, 03:03 PM
آخر رد: أيمن الفخراني
Question [vb6.0] اين المشكلة في برنامجي المرفق لا يظهر في البحث سوى سجل واحد؟؟ Microformt 7 281 16-01-17, 10:51 PM
آخر رد: عبدالله الصافي
Question [vb6.0] كيف يتم برمجة خيارت البحث (بدقة) في برنامجي المرفق ؟؟ Microformt 2 246 14-01-17, 05:57 PM
آخر رد: Microformt
  [كود] طلب تعديل على كود البحث بأي حرف في حقلين الطايش 7 312 24-12-16, 01:29 AM
آخر رد: الطايش

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


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