تصميم نموذج بحث

[عدي الزرفي]

السلام عليكم 

ارجو منكم اخوتي الاعزاء

شرح طريقة عمل نموذج بحث بمجرد كتابة احرف من الاسم ويكون في نفس نموذج البيانات الخاصة في كل موظف  وعندما يظهر الاسم المطلوب يتم النقر عليه فتظهر معلوماته كما في الصورة المرفقة 

[عدي الزرفي]

اين الابطال 

 

[شامل2]

السلام عليكم

نضيف مربع نص وليكن text14 ونضيف عنده حدث ( عند التغيير )

 

Private Sub text14_Change()
Dim ct As String * 1
  Dim ss As String * 1
  ct = """"
  ss = "*"
  Me.text14.Tag = Me.text14.Text
  Me.RecordSource = "SELECT * FROM S_Name WHERE sName LIKE " & ct & ss & (Nz(Me.text14.Tag)) & ss & ct & ""
 
  If Me.RecordsetClone.RecordCount = 0 Then
      Me.RecordSource = ""
   End If

  Me.text14 = Me.text14.Tag
  Me.text14.SetFocus
  SendKeys "{f2}"
  Me.Refresh
End Sub

 

حيث ان  S_Name هو مصدر بيانات النموذج و  sName  حقل الاسم الموجود في النموذج الذي نبحث عنه

[عدي الزرفي]

شكرا على الاجابة

جاري التجربه

[عدي الزرفي]

السلام عليكم 

ارفق لك البرنامج اخي العزيز ارجو منك عمل طريقة البحث كما في الصورة الرجاء المساعدة      

اريد ان يبحث بمجرد كتابه الحروف ومن ثم اختيار الاسم المطلوب والنقر عليه ليتم عرض معلوماته كما في الصورة المرفقة

 

 

 odai.rarodai.rar

 

[عدي الزرفي]

ارجو المساعدة

[شامل2]

السلام عليكم

الاخ عدي شاهد المرفق

تحت التصميم2.rar