[ولد رائع]

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