تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
محتاج اكواد للبحث
#1
بسم الله الرحمن الرحيم

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

ارجو من المبرمجين ~

مساعدتي لبرمجة برنامج ( مستفيدي جمعية خيرية )

قمت بتصميم البرنامج واضافة بعض الأكواد ~
ولكن عندما اريد البحث بواسطة رقم الملف او السجل المدني ... يظهر لي
خطأ :



وهذا الكود المستخدم :
كود :
Private Sub Command2_Click()


a = InputBox(" ادخل رقم السجل المدني  ")
b = "id='" & a & "'"
Data1.Recordset.FindNext b

If Data1.Recordset.NoMatch Then
MsgBox " ادخل الاسم كاملاً "

End If
End Sub

ايضا : احتاج كود للبحث عن كلمة من الحقل او رقم من الحقل ..



جزاكم الله خيرا ~
الرد }}}}
تم الشكر بواسطة:
#2
اخي الكريم هذا كود بحث للاسم وللرقم بستخدم Option3 وOption4 ويرجاء تغيير البيانات الذي تريد استخدمها حسب الذي ليدك في قاعدة البيانات
PHP كود :
Dim tt As String
Dim ss 
As Single

If Option3.Value True Then
Data1
.Recordset.MoveFirst
tt 
InputBox("ادخل اسم النزيل")
Do While 
Not (Data1.Recordset.EOF)
If 
tt Data1.Recordset.Fields("اسم النزيل"Then
Exit Sub
Else
Data1.Recordset.MoveNext
End 
If
Loop
MsgBox 
("لا يوجد سجل بهذا الاسم يرجى معاودة الادخال")
End If

If 
Option4.Value True Then
Data1
.Recordset.MoveFirst
ss 
InputBox("ادخل رقم النزيل")
Do While 
Not (Data1.Recordset.EOF)
If 
ss Data1.Recordset.Fields("رقم النزيل"Then
Exit Sub
Else
Data1.Recordset.MoveNext
End 
If
Loop
MsgBox 
("لا يوجد سجل بهذا الرقم يرجى معاودة الادخال")
End If 
الرد }}}}
تم الشكر بواسطة:
#3
يعطيك العافية ~ طبقت الطريقة لكن للاسف ~ للحين يظهر خطأ
الرد }}}}
تم الشكر بواسطة:
#4
اتاكد حبيبي من كتابه الكود في الاماكن الصحيحه والاكود كون متاكد منه وشكرا
الرد }}}}
تم الشكر بواسطة:
#5
جرب find في الكود
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو المساعدة في تحويل اكواد bidaya 7 102 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  اخواني ارجو تعديل الكود للبحث بين تاريخين علوش 7 786 20-06-16, 08:13 PM
آخر رد: Amir_alzubidy
  [vb6.0] طلب اكواد ADO ahmedsalah_333 2 579 25-02-15, 12:38 PM
آخر رد: bushramalla
  محرر اكواد derbaliammar 3 548 21-08-13, 02:41 PM
آخر رد: سيف الورد
  مكتبة اكواد فيجول بيسك | Visual Basic Codes " derbaliammar 1 844 25-07-13, 08:37 AM
آخر رد: pcfbs2000
  السلام عليكم ... محتاج كود يفتح لي ملف نوع txt من خلال برنامجي s.w.e 4 660 17-05-13, 12:19 AM
آخر رد: s.w.e
  اكواد متنوعة لـ ـ vb6 VBMaged 4 636 01-05-13, 07:01 AM
آخر رد: VBMaged
  مساعدة ف بعض اكواد الحركة والتصادم احمد الهارب 21 1,684 19-04-13, 01:30 AM
آخر رد: احمد الهارب
  ممكن كود للبحث عن مجلد مع خيارات معينة القناص المحترف 1 445 09-03-13, 04:36 PM
آخر رد: VB_Coder
  ممكن كود للبحث عن ملف داخل الجهاز عبدالله الصافي 5 715 08-03-13, 10:20 PM
آخر رد: المبتدئ

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


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