مشكلتي مع البحث يبحث ويظهر اول قيمة للتاريخ الاول

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

شاشة رقم 10

رقم الزبون

تاريخ الشراء

بحث

الأرصدة السابقة مربوط بالارصدة السابقة

قيمة المشتريات

المدفوعات

الأرصدة الحالية مربوط بالارصدة الحالية

زبون جديد

اضافة سجل جديد

الـــــــــــشـــــــــــــــــــــــــرح

عندما يأتي زبون اشوف اذا كان تم تسجيله من ضمن الزبائن أو لا ؟

فإذا لم يكن مسجل الزبون نضغط على زبون جديد ونضيف بيانات عن الزبون ..

لكن لما يكون زبون ولدي بياناته اضغط على زر اضافة سجل جديد ..

وبعد كذا نختار رقم الزبون وندخل تاريخ الشراء ..

ونضغط زر البحث وتظهر شاشة رقم 11

شاشة رقم 11 مكونه من text2 مربوط برقم الزبون .. ويكون مخفي اثناء التنفيذ ..

وtext3 مربوط بالأرصدة الحالية .. ويكون مخفي اثناء التنفيذ ..

وtext1 تظهر فيه نتيجة البحث ..بحيث يظهر لي اخر تاريخ قام الزبون بالشراء في هذا التاريخ ..

يعني ممكن زبون رقم 1 قام بالشراء في تاريخ 11-11-1111 ونفس الزبون قام بالشراء في تاريخ 12-11-1111

يعني زي ما ذكرت تطلع قيمة اخر تاريخ حتى استفيد من التواريخ في الجرد ..

ولما تظهر النتيجة تظهر في الأرصدة السابقة في شاشة رقم 10

واسجل قيمة المشتريات وقيمة المدفوعات ..

ويحسب لي الارصدة الحالية ..

واسوي له حفظ .. بحيث يكون الرصيد الحالي في المرة القادمة يكون رصيد سابق ..

(( انا مشكلتي في كود بحث في شاشة رقم 11 لما ابحث يظهر لي نتيجة رصيد واحد وهي اول قيمة تم اضافتها

ومو قيمة اخر شراء "اي الرصيد الحالي " ))

وهذا الكود اللي انا استخدمته

Private Sub Command1_Click()

X = InputBox("بحث", "أدخل رقم الزبون")

Data1.Recordset.Index = "رقم الزبون"

Data1.Recordset.Seek "=", X

With Data1.Recordset

If Data1.Recordset.NoMatch Then

Data1.Recordset.MoveFirst

MsgBox "sorry", vbOKOnly, "buy"

End If

Text1.Text = Val(Text3.Text)

Form9.Text9 = Val(Text1.Text)

End With

End Sub

ما الحل ؟؟؟؟؟؟؟؟؟