ساعدوني في find first

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

وكل عام وأنتم بخير

أخى العزيز

مبدأيا أبشرك بأنك هتصادف مشاكل كثيرة عندما تعمل على الأداة Data لأنها تربط الأدوات بالبيانات ، فمجرد التحرك من سجل لسجل يحفظ المدخلات.

أما مشكلتك فأعتقد أن حلها أن تضيف الطريقة Refresh قبل أن تتحرك ليذهب لأول سطر ويبدأ القراءة - لأنك تبحث عن أول سجل.

أخي الكريم

مشكلة أداة الداتا تكمن عند ربط مربعات النصوص بالحقول فالحل هو

1 - ان تزل أي روابط لمربعات النصوص وتجهلها فارغة

2 - اكتب الكود التالي

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

وبالنسبة لكود البحث عن التالي هو :

Dim s As String
s = "st_name='" + nam + "'"
Data1.Recordset.FindNext 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

جرب هذه الأكواد وادعيلي :D