لاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل برنامجي يظهر رسالة للمستخدم أنه لايوجد بيانات في الاستعلام ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم
(12-07-14, 09:49 PM)vbnet كتب : [ -> ].....
كود :
Set rs = db.OpenRecordset("SELECT ........
If rs.RecordCount = 0 Then
MsgBox "عفواً... لا توجد معلومات.", vbMsgBoxRight + vbMsgBoxRtlReading
End If
.....
---------------------------------------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
لك مني فائق اشكر والتقدير على ما تقدمة من دعم فني والله يحفظكم ويرعاكم
ولكم مني فائق الاحترام
Set rs = db.OpenRecordset("SELECT
If rs.RecordCount = 0 Then
MsgBox "نعتذر قاعدة البيانات المطلوبة مفقودة", vbMsgBoxRight + vbMsgBoxRtlReading
End If