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



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


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