تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد تعديل هذا الكود للبحث لاى كلمه فى النص
#1
السلام عليكم ورحمة الله وبركاته 
كل عام وانتم بخير بمناسبة السنة الهجرية
اريد تعديل هذا الكود للبحث لاى كلمه فى النص

Private Sub DataCombo1_Change()
On Error Resume Next
Dim x As String
x = DataCombo1
Adodc3.RecordSource = " select * from mm where ad like '" & x & "%'"
Adodc3.CommandType = adCmdText
Adodc3.Refresh

End Sub
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم
وانتم بخير اهلا و سهلا بكم

تعديل الكود :
PHP كود :
Private Sub DataCombo1_Change()
On Error Resume Next
Dim X 
As String
DataCombo1
Adodc3
.RecordSource "Select * From mm Where ad Like '%" "%'"    'VB6 Code
Adodc3.CommandType = adCmdText
Adodc3.Refresh

End Sub 
الرد }}}}
#3
شكرا اخى الكريم وزادك الله علما
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [ تمّ الحل ] : إضافة كومبوبوكس للبحث بحقل معيّن عبد العزيز البسكري 10 196 13-01-17, 04:47 AM
آخر رد: عبد العزيز البسكري
  اريد تفعيل الماوس في الفكس جرايد كنونو 1 136 05-01-17, 11:21 PM
آخر رد: AL_BRNS
  [كود] طلب تعديل على كود البحث بأي حرف في حقلين الطايش 7 173 24-12-16, 01:29 AM
آخر رد: الطايش
  ما الخطء في هذا الكود bidaya 2 81 22-12-16, 05:09 AM
آخر رد: Ahmed_Mansoor
  لو سمحتوا انا اريد عند كتابة تاريخ الميلادي يظهر لى فى تكس تاريخ المعاش على سن 60 رجل الكهرباء 3 132 17-12-16, 08:54 PM
آخر رد: رجل الكهرباء
  مساعدة في تطبيق هذا الكود bidaya 0 73 06-12-16, 04:46 AM
آخر رد: bidaya
  أضافة كلمة لأخر النص Jonewickk 1 83 27-10-16, 11:24 PM
آخر رد: Ahmed_Mansoor
  [vb6.0] الكود باستخدام فيجوال بيسك6 تالين الورفلي 2 139 23-10-16, 10:38 AM
آخر رد: Ashraf Elafify
Question [vb6.0] كيف اشترط على المستخدم ان يحدد السجل الذي اريد حذفه في برنامجي المرفق ؟؟ Microformt 2 134 21-10-16, 01:31 PM
آخر رد: Microformt
  اريد تغيير قاعدة البينات من اكسس الى سيكوال هل يكفي اغير كود الاتصال sendbad100 3 151 17-10-16, 05:00 PM
آخر رد: sendbad100

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم