25-12-14, 04:18 PM
السلام عليكم ورحمة الله وبركاته ,,,
اخواني لدي كود للبحث في قاعدة البيانات وأريد التعديل عليه بحيث انه اذا لم يتم العثور على بيانات مطابقه يقوم باظهار رساله للمستخدم (لايوجد رقم مطابق )
Dim X, Y
X = InputBox(" intre your id ")
Y = "SELECT * FROM TRYDATA WHERE ID='" & X & "'"
Data1.RecordSource = Y
Data1.Refresh
وفقكم الله وسدد خطاكم .....
اخواني لدي كود للبحث في قاعدة البيانات وأريد التعديل عليه بحيث انه اذا لم يتم العثور على بيانات مطابقه يقوم باظهار رساله للمستخدم (لايوجد رقم مطابق )
Dim X, Y
X = InputBox(" intre your id ")
Y = "SELECT * FROM TRYDATA WHERE ID='" & X & "'"
Data1.RecordSource = Y
Data1.Refresh
وفقكم الله وسدد خطاكم .....