31-08-16, 11:30 PM
السلام عليكم
تحياتي وشكري وتقديري لصديقي العزيز امير وجزاه الله كل خير
اما بخصوص موضع الاخ allobaed وبعد اطلاعي على ملفه المرفق وبالتحديد بخصوص طلبك يمكنك استخدام الكود التالي
Dim x As String
x = Text4.Text
Adodc1.RecordSource = "Select * From Emp Where Num LIKE '" & x & "%'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
تحياتي وشكري وتقديري لصديقي العزيز امير وجزاه الله كل خير
اما بخصوص موضع الاخ allobaed وبعد اطلاعي على ملفه المرفق وبالتحديد بخصوص طلبك يمكنك استخدام الكود التالي
Dim x As String
x = Text4.Text
Adodc1.RecordSource = "Select * From Emp Where Num LIKE '" & x & "%'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم
