[hum100]

سلام عليكم
صممت برنامج بسيط لتجربة كود بحث  يعطينى خطا فى الكود الاتى
adogrid.Refresh
----------------------
Private Sub Command4_Click()
adogrid.RecordSource = "Select * from الاصناف where المعرف='" + Text1.Text + "' or اسم الصنف='" + Text1.Text + "'"
adogrid.Refresh
If adogrid.Recordset.EOF Then
MsgBox "gfgfgf", vbCritical, "fgfgfgfg"
Else
adogrid.Caption = adogrid.RecordSource
End If

End Sub
البرنامج مرفق

[السيد الغالي]

(12-05-18, 04:31 PM)hum100 كتب : سلام عليكم
صممت برنامج بسيط لتجربة كود بحث  يعطينى خطا فى الكود الاتى
adogrid.Refresh
----------------------
Private Sub Command4_Click()
adogrid.RecordSource = "Select * from الاصناف where المعرف='" + Text1.Text + "' or اسم الصنف='" + Text1.Text + "'"
adogrid.Refresh
If adogrid.Recordset.EOF Then
MsgBox "gfgfgf", vbCritical, "fgfgfgfg"
Else
adogrid.Caption = adogrid.RecordSource
End If

End Sub
البرنامج مرفق

وعليكم السلام 
التعديل في المرفقات

[عبدالله الصافي]

الافضل ان تجعل كل مسميات الحقول بقاعدة البينات باللغة الانجليزية
أما خاصية عنوان الحقل فلا ضرر من كونه عربي

[hum100]

(14-05-18, 10:00 AM)السيد الغالي كتب :

(12-05-18, 04:31 PM)hum100 كتب : سلام عليكم
صممت برنامج بسيط لتجربة كود بحث  يعطينى خطا فى الكود الاتى
adogrid.Refresh
----------------------
Private Sub Command4_Click()
adogrid.RecordSource = "Select * from الاصناف where المعرف='" + Text1.Text + "' or اسم الصنف='" + Text1.Text + "'"
adogrid.Refresh
If adogrid.Recordset.EOF Then
MsgBox "gfgfgf", vbCritical, "fgfgfgfg"
Else
adogrid.Caption = adogrid.RecordSource
End If

End Sub
البرنامج مرفق

وعليكم السلام 
التعديل في المرفقات
[/quo بارك الله فيك اخى العزيز  وادام الله عزك ونفعك بعلمك واعطاك الحكمة وغفر الله لك
 شكرا
جربت واشتغل تمام
تمام فهمت المشكلة كانت فين فى الاقواس [الاصناف]