ظهور اسم المريض بمجرد كتابة رقم الملف

اخوانى الاعزاء

قمت بربط Adodc1 مع مجموعة Textbox و Datagrid والجدول المربوط به اسمه Transactions وقد خزنت بيانات المرضى فى جدول اخر اسمه Patiant فانا أريد أن اكتب فى Textbox المربوط مع جدول Transactions رقم الملف فيظهر اسم المريض فى Textbox مربوط ايضا مع جدول Transactions وقد جربت الكود التالى ونجح ولكنى احس ان هناك طريقة اسهل من ذلك او احترافية اكثر من ذلك

وهذا هو الكود الذى استخدمته

Private Sub Text6_GotFocus()

Adodc4.RecordSource = "select PatiantName from Patiant where FileNo like '" & Val(Text2.Text) & "'"



Adodc4.Refresh



Dim Rs As ADODB.Recordset



Set Rs = Adodc4.Recordset



Set Text10.DataSource = Rs

Text6.Text = Text10.Text



    If Text6.Text = "" Then

  

      MsgBox "تأكد من رقم الملف.....  الملف المطلوب غير مدرج فى السجلات & Chr(13) & "الملف غير موجود", vbCritical + vbOKOnly, "

        

           End If

        

End Sub