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

اخواني لدي كود للبحث في قاعدة البيانات وأريد التعديل عليه بحيث انه اذا لم يتم العثور على بيانات مطابقه يقوم باظهار رساله للمستخدم (لايوجد رقم مطابق )

 Dim X, Y
   X = InputBox(" intre your id ")
   
    Y = "SELECT * FROM TRYDATA WHERE ID='" & X & "'"
   Data1.RecordSource = Y
   Data1.Refresh


وفقكم الله وسدد خطاكم .....
الرد
تم الشكر بواسطة:
#2
(25-12-14, 04:18 PM)Ksa004 كتب :  Dim X, Y
   X = InputBox(" intre your id ")
   
    Y = "SELECT * FROM TRYDATA WHERE ID='" & X & "'"
   Data1.RecordSource = Y
   Data1.Refresh

If DATA1.Recordset.RecordCount = 0 Then
  MsgBox "لايوجد "
End If
الرد
تم الشكر بواسطة: Ahmed_Mansoor , Amir_Alzubidy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في قاعدة البيانات dr.mostashar 2 86 28-04-19, 02:44 PM
آخر رد: sendbad100
  البحث عن أداة ocx dr.mostashar 1 89 11-04-19, 07:05 PM
آخر رد: جاسم عبد
  سؤال حول البحث في combobox tighrmte 3 271 27-01-19, 11:08 PM
آخر رد: عبدالله الصافي
  سؤال بخصوص النقط والفواصل العشرية وغيرها في قاعدة البيانات hannileo 3 206 24-01-19, 01:58 PM
آخر رد: عبدالله الصافي
  سوال حول البحث بين التاريخين tighrmte 4 217 17-01-19, 12:35 AM
آخر رد: tighrmte
  كيفية عمل ازرار مأخوذة او مربوطة مع قاعدة البيانات hannileo 6 383 14-01-19, 10:07 AM
آخر رد: hannileo
  ترتيب البيانات tighrmte 2 164 12-01-19, 11:45 PM
آخر رد: tighrmte
  [Acces2003] ازاى اعمل قاعدة بيانات مشتركة ahmedhossam 4 2,490 25-12-18, 12:58 PM
آخر رد: aboezzat84
  [سؤال] كيفية تشغيل قاعدة بيانات برنامج VB6+Access على شبكة داخليه aboezzat84 2 340 25-12-18, 12:34 PM
آخر رد: aboezzat84
  مشكلة في تكرار البيانات عند الطباعة DATAREPORT دهشوش1 3 312 13-12-18, 05:03 AM
آخر رد: Ahmed_Mansoor

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


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