[عبدو الليبي]

وثاني حاجة وضع الكود في الفورم الذي يوجد به الكمبو بوكس وسميه باسم comboitem:

كود :

Private Sub ComboItem_Click()
On Error Resume Next
'''''''''''''''' äÓÊÏÚí åÐÇ ÇáßæÏ ãä ÇÏáÉ ÇáãæÏíá ÍÊí íÊã ÇáÈÍË ÈÓÑÚÉ ÏÇÎá ÇáßãÈæ ÈæßÓ
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
KeyAscii = AutoMatchCBBox(ComboItem, KeyAscii)

Adodc2.RecordSource = "select * from emp_data where m_name like '" & Trim(ComboItem.Text) & "%'"
Adodc2.Refresh

If Adodc2.Recordset.BOF Or Adodc2.Recordset.EOF Then
CmdDel.Enabled = False
Else
CmdDel.Enabled = True
End If

End Sub

Private Sub ComboItem_DropDown()
On Error Resume Next  ' ÑÈØ ãÚ ÌÏæá ÈíÇäÇÊ ÇáãæÙÝíä
ComboItem.Clear
Adodc1.Recordset.MoveFirst
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
If Trim(("itemname")) <> "" Then
ComboItem.AddItem Adodc1.Recordset.Fields(1)
End If
Adodc1.Recordset.MoveNext
Loop




End Sub

Private Sub ComboItem_KeyPress(KeyAscii As Integer)
On Error Resume Next
'''''''''''''''' äÓÊÏÚí åÐÇ ÇáßæÏ ãä ÇÏáÉ ÇáãæÏíá ÍÊí íÊã ÇáÈÍË ÈÓÑÚÉ ÏÇÎá ÇáßãÈæ ÈæßÓ
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
KeyAscii = AutoMatchCBBox(ComboItem, KeyAscii)

Adodc2.RecordSource = "select * from emp_data where m_name like '" & Trim(ComboItem.Text) & "%'"
Adodc2.Refresh

If Adodc2.Recordset.BOF Or Adodc2.Recordset.EOF Then
CmdDel.Enabled = False
Else
CmdDel.Enabled = True
End If

End Sub

تحياتي....