02-01-15, 03:48 PM
السلام عليكم
ضيفي datacombo واربطيها مع حقل التسلسل مثلا ثم ضعي الكود التالي
On Error Resume Next
Dim x As String
x = DataCombo3
Adodc1.RecordSource = " select * from table1 where [Identifier] like '" & x & "'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
اسم الحقل Identifier اخذته من مشروعك الذي لدي نسخة منه وهكذا لبيقية الحقول التي تريدين البحث عنها
ارجو ان يكون هذا واضحا
تحياتي لك
ضيفي datacombo واربطيها مع حقل التسلسل مثلا ثم ضعي الكود التالي
On Error Resume Next
Dim x As String
x = DataCombo3
Adodc1.RecordSource = " select * from table1 where [Identifier] like '" & x & "'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
اسم الحقل Identifier اخذته من مشروعك الذي لدي نسخة منه وهكذا لبيقية الحقول التي تريدين البحث عنها
ارجو ان يكون هذا واضحا
تحياتي لك
تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم
