20-08-17, 07:45 PM
بسم الله الرحمن الرحيم
الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل يظهر للمستخدم رسالة عند عدم وجود الاسم الذي يبحث عنه في برنامجي المرفق؟؟
نامل الله المساعدة والله يحفظكم ويرعاكم
تحياتي
20-08-17, 07:45 PM
21-08-17, 01:16 AM
(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 If21-08-17, 01:21 AM
(20-08-17, 07:45 PM)Microformt كتب : [ -> ]بسم الله الرحمن الرحيمالاخوه الكرامالسلام عليكم ورحمة وبركاتهكيف اجعل يظهر للمستخدم رسالة عند عدم وجود الاسم الذي يبحث عنه في برنامجي المرفق؟؟نامل الله المساعدة والله يحفظكم ويرعاكمتحياتي
الاخ سالم السلام عليكم
في المرفقات تم التعديل حسب طلبكم
21-08-17, 01:37 AM
وعليكم السلام ورحمة الله وبركاته
أهلا أخي الكريم سالم , إضافة لما تقدم به الإخوة جزاهم الله كل خير , هذا التعديل كنت قد عملته أثناء وضع الإخوه مشكورين لردودهم .
أهلا أخي الكريم سالم , إضافة لما تقدم به الإخوة جزاهم الله كل خير , هذا التعديل كنت قد عملته أثناء وضع الإخوه مشكورين لردودهم .
22-08-17, 07:00 PM
(21-08-17, 01:37 AM)Ahmed_Mansoor كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
أهلا أخي الكريم سالم , إضافة لما تقدم به الإخوة جزاهم الله كل خير , هذا التعديل كنت قد عملته أثناء وضع الإخوه مشكورين لردودهم .
اخي العزيز : احمد
السلام عليكم ورحمة وبركاته
لكم مني جزيل الشكر والتقدير والله يحفظكم ويرعاكم
تحياتي