+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كيف اجعل يظهر للمستخدم رسالة عند عدم وجود الاسم الذي يبحث عنه في برنامجي المرفق؟؟ (/showthread.php?tid=21444)
كيف اجعل يظهر للمستخدم رسالة عند عدم وجود الاسم الذي يبحث عنه في برنامجي المرفق؟؟ - Microformt - 20-08-17
بسم الله الرحمن الرحيم
الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل يظهر للمستخدم رسالة عند عدم وجود الاسم الذي يبحث عنه في برنامجي المرفق؟؟
نامل الله المساعدة والله يحفظكم ويرعاكم
تحياتي
RE: كيف اجعل يظهر للمستخدم رسالة عند عدم وجود الاسم الذي يبحث عنه في برنامجي المرفق؟؟ - حريف برمجة - 21-08-17
(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 IfRE: كيف اجعل يظهر للمستخدم رسالة عند عدم وجود الاسم الذي يبحث عنه في برنامجي المرفق؟؟ - السيد الغالي - 21-08-17
(20-08-17, 07:45 PM)Microformt كتب :بسم الله الرحمن الرحيمالاخوه الكرامالسلام عليكم ورحمة وبركاتهكيف اجعل يظهر للمستخدم رسالة عند عدم وجود الاسم الذي يبحث عنه في برنامجي المرفق؟؟نامل الله المساعدة والله يحفظكم ويرعاكمتحياتي
الاخ سالم السلام عليكم
في المرفقات تم التعديل حسب طلبكم
RE: كيف اجعل يظهر للمستخدم رسالة عند عدم وجود الاسم الذي يبحث عنه في برنامجي المرفق؟؟ - Ahmed_Mansoor - 21-08-17
وعليكم السلام ورحمة الله وبركاته
أهلا أخي الكريم سالم , إضافة لما تقدم به الإخوة جزاهم الله كل خير , هذا التعديل كنت قد عملته أثناء وضع الإخوه مشكورين لردودهم .
RE: كيف اجعل يظهر للمستخدم رسالة عند عدم وجود الاسم الذي يبحث عنه في برنامجي المرفق؟؟ - Microformt - 22-08-17
(21-08-17, 01:37 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته
أهلا أخي الكريم سالم , إضافة لما تقدم به الإخوة جزاهم الله كل خير , هذا التعديل كنت قد عملته أثناء وضع الإخوه مشكورين لردودهم .
اخي العزيز : احمد
السلام عليكم ورحمة وبركاته
لكم مني جزيل الشكر والتقدير والله يحفظكم ويرعاكم
تحياتي