أخي العزيز
السلام عليكم ورحمة الله وبركاتة
لقد قمت باضافة حقلين الى الجدول
إسم_المؤلف وهو مسجل مسبقا ً .
إسم_المؤلف2 وهو الحقل المظاف 1
إسم_المؤلف3 وهو الحقل المظاف 2
المطلوب عندما اختار البحث حسب المؤلف
يقوم البرنامج بالبحث في الحقول الثلاثة التالية :
إسم_المؤلف
إسم_المؤلف2
إسم_المؤلف3
الكود المكتوب هو
Private Sub Command1_Click()
On Error Resume Next
Set DataGrid1.DataSource = Nothing
If Combo1.ListIndex = 0 Then
If Option1.Value = True Then
Adodc1.RecordSource = "Select * From Table1 Where إسم_المؤلف= '" & Text1 & "'"
End If
If Option2.Value = True Then
Adodc1.RecordSource = "Select * From Table1 Where إسم_المؤلف LIKE '%" & Text1 & "';"
End If
If Option3.Value = True Then
Adodc1.RecordSource = "Select * From Table1 Where إسم_المؤلف LIKE '" & Text1 & "%';"
End If
If Option4.Value = True Then
Adodc1.RecordSource = "Select * From Table1 Where إسم_المؤلف LIKE '%" & Text1 & "%';"
End If
هل يجوز لي تغيير الكود ليصبح
* From Table1 Where إسم_المؤلف3 ,إسم_المؤلف2 ,إسم_المؤلف= '" & Text1 & "'"
If Option2.Value = True Then