منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
محتاج اكواد للبحث - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : محتاج اكواد للبحث (/showthread.php?tid=8604)

محتاج اكواد للبحث - ابو عبير - 23-04-13

بسم الله الرحمن الرحيم

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

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

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

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



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


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

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

End If
End Sub

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



جزاكم الله خيرا ~

محتاج اكواد للبحث - ولد رائع - 23-04-13

اخي الكريم هذا كود بحث للاسم وللرقم بستخدم 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 


محتاج اكواد للبحث - ابو عبير - 24-04-13

يعطيك العافية ~ طبقت الطريقة لكن للاسف ~ للحين يظهر خطأ

محتاج اكواد للبحث - عقيل العراقي - 25-04-13

اتاكد حبيبي من كتابه الكود في الاماكن الصحيحه والاكود كون متاكد منه وشكرا

محتاج اكواد للبحث - hamada666 - 27-04-13

جرب find في الكود