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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد البحث فى حقل يحتوي على الاسم رباعي الحزين اوى 0 45 19-06-21, 12:15 AM
آخر رد: الحزين اوى
  [vb6.0] كيفيه ربط اكثر من برنامج معاا فى صفجة واجدة exe MEDHAT_R_S 0 150 12-04-21, 12:09 PM
آخر رد: MEDHAT_R_S
  رسالة خطأ في كود البحث في قاعدة البيانات اكسس ahmed201 1 248 04-01-21, 06:52 PM
آخر رد: aboezzat84
  [سؤال] كيفيه البحث باستخدام الكود aboezzat84 1 251 28-12-20, 05:59 PM
آخر رد: sendbad100
  منع تشغيل اكثر من نسخة من البرنامج alfakeehy 7 2,773 22-10-20, 04:51 PM
آخر رد: Microformt
  اخى الغالى الاستاذ امير سول فى الاستعلام من اكثر من جدول mhareek 2 372 03-10-20, 09:05 PM
آخر رد: mhareek
  كيف اظهر نتائج البحث في كريستال ريبورت princeofislam 7 1,600 31-08-20, 11:39 AM
آخر رد: Nasa_use
  البحث بين تاريخين mohfar 13 3,980 25-07-20, 11:08 PM
آخر رد: مصمم هاوي
  طلب كود جلب اكثر من صوره من المسح الضوئي وحفظها بصيغة pdf ahmed250 13 1,483 25-07-20, 06:19 AM
آخر رد: ahmed250
  منع تكرار كلمة في حال وجود اكثر من textbox gonm64 2 552 25-05-20, 03:23 AM
آخر رد: gonm64

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


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