السلام عليكم
ارجوكم المساعدة في تعديل هدا الكود
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
الدي يظهر على النحو التالي
ليظهر على النحو التالي
حيث البحث يعتمد عل متغيرين هما اسم الطالب وعنوانه
وجزاكم الله خيرا