[Microformt]

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

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

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

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

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

 تحياتي

[حريف برمجة]

(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

[السيد الغالي]

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

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

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

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

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

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

 تحياتي

الاخ سالم السلام عليكم
في المرفقات تم التعديل حسب طلبكم

[Ahmed_Mansoor]

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

أهلا أخي الكريم سالم , إضافة لما تقدم به الإخوة جزاهم الله كل خير , هذا التعديل كنت قد عملته أثناء وضع الإخوه مشكورين لردودهم .

[Microformt]

(21-08-17, 01:37 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا أخي الكريم سالم , إضافة لما تقدم به الإخوة جزاهم الله كل خير , هذا التعديل كنت قد عملته أثناء وضع الإخوه مشكورين لردودهم .

اخي العزيز : احمد
 السلام عليكم ورحمة وبركاته
 لكم مني جزيل الشكر والتقدير والله يحفظكم ويرعاكم
 تحياتي