[حريف برمجة]

(20-08-17, 07:45 PM)Microformt كتب :

بسم الله الرحمن الرحيم

الاخوه الكرام

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

كيف اجعل يظهر للمستخدم رسالة عند عدم وجود  الاسم الذي يبحث عنه في برنامجي المرفق؟؟

نامل الله المساعدة والله يحفظكم ويرعاكم

 تحياتي

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

استبدل الكود الموجود في كوماند1 بهذا الكود :

كود :

Dim strSQL As String

Set db = OpenDatabase(App.Path & "\db2.mdb", 2)

If Combo1.Text = "الاســـم" Then

strSQL = "select * from Sameer where SName='" & Text1.Text & "'"

ElseIf Combo1.Text = "رقم التلفون" Then

strSQL = "select * from Sameer where Phone='" & Text1.Text & "'"

End If

Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

If rs.RecordCount = 0 Then

MsgBox "عفواً السجل غير موجود"

Else

Call Flx_FillData

End If