تقييم الموضوع :
  • 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 191 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  اخواني ارجو تعديل الكود للبحث بين تاريخين علوش 7 904 20-06-16, 08:13 PM
آخر رد: Amir_alzubidy
  [vb6.0] طلب اكواد ADO ahmedsalah_333 2 638 25-02-15, 12:38 PM
آخر رد: bushramalla
  محرر اكواد derbaliammar 3 572 21-08-13, 02:41 PM
آخر رد: سيف الورد
  مكتبة اكواد فيجول بيسك | Visual Basic Codes " derbaliammar 1 881 25-07-13, 08:37 AM
آخر رد: pcfbs2000
  السلام عليكم ... محتاج كود يفتح لي ملف نوع txt من خلال برنامجي s.w.e 4 683 17-05-13, 12:19 AM
آخر رد: s.w.e
  اكواد متنوعة لـ ـ vb6 VBMaged 4 657 01-05-13, 07:01 AM
آخر رد: VBMaged
  مساعدة ف بعض اكواد الحركة والتصادم احمد الهارب 21 1,758 19-04-13, 01:30 AM
آخر رد: احمد الهارب
  ممكن كود للبحث عن مجلد مع خيارات معينة القناص المحترف 1 474 09-03-13, 04:36 PM
آخر رد: VB_Coder
  ممكن كود للبحث عن ملف داخل الجهاز عبدالله الصافي 5 760 08-03-13, 10:20 PM
آخر رد: المبتدئ

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


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