تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف اجعل برنامجي المرفق يظهر رسالة في حالة عدم التعديل على السجل ؟؟
#1
Question 
الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل برنامجي المرفق يظهر رسالة في حالة عدم التعديل على السجل ؟؟
وكيف اجعل برنامجي المرفق يظهر رسالة في حالة تم التعديل على السجل ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم


الملفات المرفقة
.rar   noy2.rar (الحجم : 1.47 ك ب / التحميلات : 37)
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته


تفضل أخي االكريم


كود :
Private Sub Command1_Click()
Dim M As VbMsgBoxResult
M = MsgBox("هل تريد تعديل البيانات", vbYesNo + vbQuestion)

If M = vbYes Then
'هنا ضع كود تعديل السجل

  MsgBox "تم تعديل السجل", vbInformation, "Edit"

ElseIf M = vbNo Then
  MsgBox "لم يتم تعديل السجل", vbExclamation, "Edit"
End If

End Sub

وفقك الله
الرد }}}}
تم الشكر بواسطة: Microformt
#3
(26-04-14, 12:28 AM)Sniper.ps كتب : وعليكم السلام ورحمة الله وبركاته


تفضل أخي االكريم


كود :
Private Sub Command1_Click()
Dim M As VbMsgBoxResult
M = MsgBox("هل تريد تعديل البيانات", vbYesNo + vbQuestion)

If M = vbYes Then
'هنا ضع كود تعديل السجل

  MsgBox "تم تعديل السجل", vbInformation, "Edit"

ElseIf M = vbNo Then
  MsgBox "لم يتم تعديل السجل", vbExclamation, "Edit"
End If

End Sub

وفقك الله
---------------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
لك مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تصحيح كود التعديل حافظ حافظ 0 30 أمس, 02:12 PM
آخر رد: حافظ حافظ
Question [vb6.0] كيف اغلاق ملف قاعدة بيانات اكسس مفتوحة من خلال برنامجي ؟؟ Microformt 3 44 21-09-17, 04:20 PM
آخر رد: Amir_alzubidy
  امل ان اجد احد فيكم من اعضاء المنتدى الكريم يقوم بالعديل لي علا المثال المرفق wolf1120 9 244 21-09-17, 02:06 PM
آخر رد: wolf1120
  من يقدر استبدال قاعد بيانات المثال المرفق ب (sqlite) scsi7000 1 59 19-09-17, 01:06 PM
آخر رد: Amir_alzubidy
Question [vb6.0] كيف اجعل خلفية Text شفافه ؟؟ Microformt 3 112 17-09-17, 06:49 PM
آخر رد: Microformt
Question [vb6.0] كيف يتم تعطيل عمل ازارار ctrl+Ait+Delete عند تشغيل برنامجي ؟؟ Microformt 4 121 13-09-17, 08:17 AM
آخر رد: Amir_alzubidy
  [سؤال] مشكلة في برنامجي أرجو حلها suzoki 1 74 08-09-17, 06:06 AM
آخر رد: suzoki
Question [vb6.0] كيف اجعل الصوره تتوسط الفورم سوى كان عند التكبير او التصغير ؟ Microformt 1 82 05-09-17, 10:22 PM
آخر رد: Amir_alzubidy
Question [vb6.0] الاستعلام برقم الموظف في برنامجي المرفق ؟ Microformt 9 180 27-08-17, 01:44 PM
آخر رد: Microformt
Question [vb6.0] كيف اجعل يظهر للمستخدم رسالة عند عدم وجود الاسم الذي يبحث عنه في برنامجي المرفق؟؟ Microformt 4 140 22-08-17, 07:00 PM
آخر رد: Microformt

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم