كود رسالة بنتيجة البحث

[bomosa2006]

السلام عليكم ورحمة الله وبركاته

الاحبه الكرام تحيه طيبه لكم 

لدي مربع نص وزر للبحث اضع فيه رقم هوية وطنيه واقوم بالبحث عنه في السجلات 

ارغب بكود رسالة تظهر لي في حالة تم ايجاد السجل (تم اظهار بجثك بنجاح)

ورسالة اخرى تظهري في حالة عدم وجود سجل يحمل رقم الهوية ( عفواُ لا يوجد بيانات للسجل الحالي)

 

وشكرا

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

On Error Resume Next
Dim X As Integer

    mySQL = "Select * From tbl1"
    
' اذا كان TextBox رقم
    mySQL = mySQL & " WHERE TName = " & Me.TextBox
    
' اذا كان TextBox نوعه نصي
'    mySQL = mySQL & " WHERE TName ='" & Me.TextBox & "'"
    Debug.Print mySQL
    Set rst = CurrentDb.OpenRecordset(mySQL)
    
    X = rst!TName
    If X <> 0 Then
       MsgBox "OK"
    Else
       MsgBox "No"
    End If

تحياتي

[bomosa2006]

شكرا تم حل المشكلة

تم تعديل ديسمبر 8, 2019 بواسطه bomosa2006