dhaif

كود حذف سجل و كود تحديث حقل

2 ردود في هذا الموضوع

السلام عليكم ورحمة الله
طلبي هو كود لكل حالة ممايلي :
 1- استبدال رسالة حذف السجل في النموذج برسالة أخرى غير الرسالة اللتي خاصة بالاكسس ( هل تريد حذف السجل ( نعم ) (لا)
2- استبدال رسالة تحديث حقل التاريخ  برسالة غير الرسالة اللتي تصاحب استعلام التحديث لذلك الحقل  ( هل تريد تحديث السجلات ( نعم ) (لا)

3- استبدل رسالة استعلام الحاق ( هل تريد ........ ( نعم )  ( لا )

ولكم جزيل الشكر ..........

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

تفضل

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
'مضمون الرسالة التي ترغب بظهورها
Msg = "هل تريد تنفيذ ...... ?"    
' نوع و طبيعة الخيار
Style = vbYesNo + vbCritical + vbDefaultButton2    
' عنوان الرسالة
Title = "MsgBox Demonstration"    

Response = MsgBox(Msg, Style, Title, Help, Ctxt)

If Response = vbYes Then    ' User chose Yes.
' في حال كانم الجواب نعم
	Docmd.openquery "اكسب اسم الاستعلام هنا"
Else    
' في حال كان الجواب لا
	msgbox "تم إلغاء الامر "
End If

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .