الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سااااعدوني

مغلق
بدأه مرهف الاحساس في 20 مايو 2003 · 5 رد · 686 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

مجتاااااااج مساعدتكم

ياليت تعطوني كود للبحث ( بحث عن طريق الرقم )

والرقم له مفتاح اساسي في قاعده البيانات

واذا ادخل رقم موجود يظهر له رساله (( الرقم موجود ))

للمعلوميه قاعدة البيانات في الاكسس مربوطه في الفيجوال

عن طريق الاداه ado واذا امكن برضو كود السجل التالي والسابق

تحياتي للجميع

#2

السلام عليكم

بعد التحية ،،، تفضل /

كود البحث :

'
   rs.Find = "[اسم الحقل] =" & Trim(Text1.Text) & ""
If rs.RecordCount = 0 Then
    MsgBox "لا يتم الحصول على الرقم المطلوب"
Else
    MsgBox "تم الحصول على الرقم : " & rs![اسم الحقل], vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading
End If
'

كود السجل التالي

'
  If Not rs.EOF Then rs.MoveNext
  If rs.EOF And rs.RecordCount > 0 Then
    Beep
    rs.MoveLast
  End If
'

كود السجل السابق :

'
  If Not rs.BOF Then rs.MovePrevious
  If rs.BOF And rs.RecordCount > 0 Then
    Beep

    rs.MoveFirst
  End If

وتقبل تحياتي .

#3

Visitor_OM

مشكور يالغالي على تقديم المساعده

لكن كود البحث لم يعمل في البرنامج

#4

العفو اخي العزيز ولكن ممكن توضحلي ايش بيعطيك من رسائل او غير ذلك في حالة تطبيق كود البحث .

#5

صباح الخير

Visitor_OM شاكر لك اهتمامك يالغالي

والخطا اللي يعطيني اياه يطلع لي مسج:

argument not optional

والخطا في كلمة find

#6

مرحبا أخي العزيز

جرب تحذف علامة اليساوي من بعد find مباشرة .

rs.Find "[اسم الحقل] =" & Trim(Text1.Text) & ""

وإذا ما نجح راح ارفق لك مثال حول استخدم Find ,،، بإذن الله

هذا الموضوع مغلق.