مدیریت حذف رکورد توسط کدنویسی vba در اکسس

بسم الله الرحمن الرحیم

سلام

 

قطعا با افزودن دکمه با عملکردِ حذف رکورد آشنا هستید. ولی مختصرا یک توضیحی برای افزودن دکمه حذف رکورد توسط خودِ اکسس میدهم تا دوستانی هم که آشنا نیستند، آشنا بشوند! (عجب جمله‌ای شد! )

برای افزودن دکمه حذف رکورد توسط خود اکسس کافیست مراحل زیر رو انجام بدهید؛

1. در حالت طراحی یا Design View فرم مورد نظر را باز کنید.
2. از تب طراحی یا Design و بخش کنترلرها Controls بر روی فلش رو به پایین که لیست کشویی را باز میکند، گزینه Use Control Wizards را فعال کنید.
3.  یک مورد از نوع دکمه یا Button انتخاب و به فرم اضافه کنید.
4. از ستون سمت چپ فرم باز شده، عبارت Record Operations را انتخاب کنید.
5. از ستون سمت راست، عبارت Delete Record را انتخاب کنید و بر روی دکمه Next کلیک کنید.
6. در بخش بعدی متن یا نماد دکمه را انتخاب کنید و سپس بر روی دکمه Next کلیک کنید.
7. در انتها نام دکمه را مشخص و یا تایید کنید و تمام!

حالا یک دکمه دارید که از طریقش میتونید رکوردهای فرمتون رو حذف کنید.

 

و اما اصل مطلب!

در ادامه میخوایم یک دکمه رو کدنویسی کنیم تا بتونیم فرآیند حذف رکورد را مدیریت و کنترل کنیم.

برای اینکار مراحل بالا را انجام دهید ولی فقط دکمه را اضافه کنید و نیازی به انجام مراحل ویزارد نیست!

در رویداد On Click دکمه و در محیط VBA کدهای زیر را اضافه کنید:

On Error GoTo btnDel_Click_Err

If Not Form.NewRecord Then
    If vbYes = MsgBox("از حذف اطلاعات جاری اطمینان دارید؟", vbMsgBoxRight + vbMsgBoxRtlReading + vbQuestion + vbYesNo, "Access-Training.blog.ir") Then
        DoCmd.SetWarnings False
        DoCmd.RunCommand acCmdDeleteRecord
        DoCmd.SetWarnings True
    Else
    
    End If
Else
    MsgBox "اطلاعاتی برای حذف موجود نیست! ;(", vbMsgBoxRight + vbMsgBoxRtlReading + vbExclamation,"Access-Training.blog.ir"
End If

btnDel_Click_Exit:
    Exit Sub
btnDel_Click_Err:
    MsgBox Error$
    Resume btnDel_Click_Exit

اطلاعات را ذخیره کنید و کدهاتون را یکبار از طریق منوی دیباگ، کامپایل کنید.

بخش دیدگاه‌ها منتظر نظرات شما هست.

 

تا آموزش بعدی یا علی