هذا الكود مش شغال معايا خالص اتمنى المساعدة
Private Sub Command1_Click()
Dim kk As String
kk = "*" + Cmb_Kind + "*"
Adodc1.RecordSource = " select * from q_mat1 WHERE mat LIKE '" & kk & "' "
Adodc1.Refresh
End Sub
مش عارف السبب
كنت شغال بالاداة data وربطها DataGrid1 كانت تمام مع اكسيس 97 لكن مع لا تعمل مع اصدارات اكسيس الجديدة للاسف لا تعمل
افيدونى بالحل
thank you for all memeber
