[hamada salah90]

السلام عليكم

أريد كود يجعل  مربع نص

Text1

في الحدث

Change

ان يظهر بحث في قاعدة البيانات وتظهر النتائج في

List1

وان يتم البحث ايضا عندما نقوم بالتحريك في الليست بوكس بالضغط إلى اسفل

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

Dim dbADODB As New ADODB.Connection

Dim rsEMPL As New ADODB.Recordset

Private Sub Form_Load()

If dbADODB.State = adStateOpen Then dbADODB.Close

dbADODB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\GG.mdb" & ";"

rsEMPL.Open "select * from EMPL ", dbADODB, adOpenKeyset, adLockOptimistic

End Sub

Private Sub Text1_Change()

Adodc1.RecordSource = "select * from [EMPL] where  [Name] like '" & Text1.Text & "%'"

Adodc1.CommandType = adCmdText

Adodc1.Refresh

End Sub

مرفق مثال للتعديل