ايران ويج

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

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


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

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

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

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

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

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

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

---

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

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

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

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

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

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

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

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

ممنون