منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

وهذا الكود المستخدم :

كود :

Private Sub Command2_Click()

a = InputBox(" ادخل رقم السجل المدني  ")

b = "id='" & a & "'"

Data1.Recordset.FindNext b

If Data1.Recordset.NoMatch Then

MsgBox " ادخل الاسم كاملاً "

End If

End Sub

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

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

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

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

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

جرب find في الكود

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ابو عبير

ولد رائع

ابو عبير

عقيل العراقي

hamada666