قمت بتصميم برنامج بسيط لتسجيل الطلاب في معهد وبه بعض الازرار مثل الاضافة والتعديل والبحث والحذف جميعها تعمل بصورة جيدة الا انه واجهتني مشكلتين الاولي عندما اضغط زر البحث يظهر صندوق وعندما اقوم بالكتابة فيه باللغة العربية تظهر الحروف في شكل حروف لاتينية ولا ادري ماهي المشكلة والمشكلة الثانية انه عندما اجري بحث بواسطة الاسم فانه يجري البحث الا الاسم الاولي فانه لا يعطي نتيجة ومرفق لكم صورة الصندوق والكود المستعمل
هذا هو الكود
Dim a As String
a = InputBox("ادخل الاسم")
rs.MoveFirst
Do While Not rs.EOF
If rs![c_no] = a Then
Text1 = rs![c_no]
Text2 = rs![c_name]
Text3 = rs![c_address]
Text4 = rs![c_dep]
Text5 = rs![c_tel]
Text6 = rs![c_e]
Exit Sub
End If
rs.MoveNext
Loop
