ارجوا الدخول بسرعة

[spider man2]

لسلام عليكم
ارجوكم المساعدة في تعديل هدا الكود
On Error GoTo err:
Dim prompt, title, s, y As String
prompt = "أدخل اسم الطالب"
title = "بحث"
y = InputBox(prompt, title)
If Len(y) = 0 Then
Exit Sub
Else
nam = y
s = "st_name='" + y + "'"
Data1.Recordset.FindFirst s
If Data1.Recordset.NoMatch = True Then
MsgBox "هذا الطالب غير مسجل"
Else
Txt1.Text = Data1.Recordset![st_no]
Txt2.Text = Data1.Recordset![st_name]
Txt3.Text = Data1.Recordset![address]
Txt4.Text = Data1.Recordset![b_date]
Txt5.Text = Data1.Recordset![phone]
End If
err:
Exit Sub
End If

الدي يظهر على النحو التالي
http://img56.imageshack.us/img56/4123/17ws5.jpg

ليظهر على النحو التالي

http://img56.imageshack.us/img56/6995/28zl2.jpg

حيث البحث يعتمد عل متغيرين هما اسم الطالب وعنوانه
وجزاكم الله خيرا

[bgd]

لا يمكن اخي الكريم ابدا فعل ذلك
حيث ان الشاشة الاولى لا تحتمل اكثر من متغير واحد للإدخال والذي يتم استخراجه بواسطه دالة inputbox
ولعمل النموذج الثاني لا بد من تصميم فورم خاص لها وتضع فيه ما اردت من المتغيرات للبحث