ازرار التنقل بين السجلات

أخي السائل

أولاً: لقد تخطيت قراءة السجل الأول بوضعك السطر التالي في أول الحلقة:

fight.Recordset.MoveNext

لذا أنصحك وضعه قبل جملة Wend مباشرة وجرب مرة أخرى وأخبرني بالنتيجة

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

أخي العزيز

كما قال الأخ qushisha

الخطأ هو أن

fight.Recordset.MoveNext

يجب أن تكون قبل Wend وليس عند البدء في البحث بالسجل حيث أنه البرنامج يسأل اذا لم نصل الى آخر سجل فإنه يقفز الى السجل التالي الذي لا يكون موجود فعليا لهذا يحصل الـخطأ . انقلها الى ما قبل Wend كالتالي :

Private Sub cmdnext1_Click()
Dim i As Integer
Dim j As Integer

While Not fight.Recordset.EOF

txtnum1.Text = fight.Recordset![aircraft_code]
txttype1.Text = fight.Recordset![Type]
txtair1.Text = fight.Recordset![Source]
txtarr1.Text = fight.Recordset![destination]
txttime1.Text = fight.Recordset![depth_time]
txtpr1.Text = fight.Recordset![journey_his]
i = fight.Recordset![aircode]
j = fight.Recordset![city_code]

		city.Refresh
		city.Recordset.MoveFirst
		While Not (city.Recordset.EOF)
		If j = city.Recordset.Fields(0) Then
		city_name1.Text = city.Recordset.Fields(1)

				master.Refresh
				master.Recordset.MoveFirst
				While Not (master.Recordset.EOF)
				If j = master.Recordset.Fields(0) Then
				airline_name1.Text = master.Recordset.Fields(1)
				Exit Sub
				End If
				master.Recordset.MoveNext
				Wend
		End If
		city.Recordset.MoveNext
		Wend

fight.Recordset.MoveNext
Wend
If fight.Recordset.EOF Then
MsgBox "C?E ??? CI? ??? ?C???I ??? EC??"
End If
End Sub

جرب وان شاء الله سينفع .

بالتوفيق

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

شكرا جزيلا على الرد سوف احاول ان انفذ الكود اخبركم بالنتيجه

:)