منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سلام عليكم
صممت برنامج بسيط لتجربة كود بحث  يعطينى خطا فى الكود الاتى
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
البرنامج مرفق

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

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

(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 بارك الله فيك اخى العزيز  وادام الله عزك ونفعك بعلمك واعطاك الحكمة وغفر الله لك
 شكرا
جربت واشتغل تمام
تمام فهمت المشكلة كانت فين فى الاقواس [الاصناف]