كيف يمكن عرض رسالة تأكيد الحذف

أستعلم عن السجل الذي تم حذف (بعد عملية الحذف).

اشكرك اخي الكريم على الرد

لكن المشكله في كيفية اظهار رسالة تأكيد تفيد المستخدم أنه سوف يتم الحذف !

السلام عليكم ورحمة الله وبركاته أولاً انت لا تريد إجبار المستخدم على الحذف تريد أعطاءه فرصة التراجع وهذا هو الكود

Dim msg As String
		Dim title As String
		Dim style As MsgBoxStyle
		Dim response As MsgBoxResult
		msg = "هل تريد حذف هذا السجل؟"   ' Define message.
		style = MsgBoxStyle.Question Or _
		   MsgBoxStyle.Critical Or MsgBoxStyle.YesNo
		title = "MsgBox Demonstration"   ' Define title.
		' Display message.
		response = MsgBox(msg, style, title)

		If response = MsgBoxResult.Yes Then

ثانياً إذا استمر بعملية الحذف أو اختار نعم تريد أخباره بأنه تمت عملية الحذف بنجاح وهذا ممكن أن تجعل جملة الاستعلام sql في متغير من نوع نص string مثلاً dim a as string

وتعرض برساله

  MsgBox(a)

اشكرك جزيل الشكر

هذا ماكنت ابحث عنه