حذف یک رکورد از دیتا بیس بعد از تایید کردن

[mm_ley]

با عرض سلام به اساتید و دوستان محترم

چون تازه کار هستم این سوالات ابتدایی مرا ببخشد


دوستان با این تکه کد یه
اسمی را در دیتا بیس پیدا می کنم حال بعد از پیدا کردن می خوام یه سووالی مبنی بر حذف این رکورد از من بپرسد و بعد از تایید من این رکورد را حذف کند این تکه از کد را بلد نیستم؟ کمکم می کنید

این هم از تکه کد جستجو برای یافتن رکوردی که قراره حذف بشه:

Dim intans As Integer
"'" & data1.Recordset.FindFirst "Name = '" & txtfind.Text
Do While Data1.Recordset.NoMatch = False
(intans = MsgBox("Continiue?", vbYesNo
If intans = 7 Then
Exit Do
End If
"'" & Data1.Recordset.FindNext "Name = '" & txtfind.Text
loop

[far_222000]

دستور حذف اینه: Data1.Recordset.Delete
باید بعد از حذف کردن، رکوردست رو UPDATE کنین که در کل می شه این:
Data1.Recordset.Delete
Data1.Recordset.Update

[mm_ley]

دوست عزیز با تشکر از پاسخ اینو میدونم

دنبال کدی هستم که ابتدا سوالی مبنی بر حذف مطرح کنه و بعد از زدن yes حذف انجام گیرد

بیشتر دنبال کد مطرح شدن جعبه سوال هستم

---

این کد درسته که نوشتم:

("اخطار" , vbExclamation,+ vbYESNO ,"می خواهید این رکورد را حذف کنید ")a=msgbox
If a = 6 Then
Data1.Recordset.Delete
End If
Data1.Refresh

[far_222000]

If MsgBox("Are you sure, do you want to remove selected record?", vbQuestion + vbYesNo, "Title") = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.Update
End If

[mm_ley]

با سلام به شما دوست خوب

این تکه کدی که من نوشتم را امتحان کردم کار میکنه آیا از نظر شما مشکلی داره؟

آیا بجای updodate از refresh استفاده شود در ساختار برنامه مشکلی پیش خواهد آمد؟

[far_222000]

کدی که شما نوشتین مشکلی نداره، تنها موضوعی که می شه روش بحث کرد، اینه که شما یه متغیر به نام a رو بی خودی تعریف کردین، در حالی که می شد تعریفش نکرد. اصول برنامه نویسی می گه تا جایی که می شه، Ram رو آزاد بذار!!!

راستش دقیقاً یادم نیست که فرق Update و Refresh چی بود، ولی اگه شما امتحان کردی و دیدی Refresh هم جواب می ده پس مشکلی نداره.

[mm_ley]

ممنون