آموزش اکسس

آموزش مایکروسافت اکسس - Access Training

آموزش اکسس

آموزش مایکروسافت اکسس - Access Training

آموزش اکسس

ارائه آموزش‌ها و نکات کلیدی مربوط به نرم افزار اکسس.
جزییات و نکات ریز اکسس را با ما داشته باشید و پویایی دوباره‌ای به برنامه خودتان دهید.

آخرین نظرات

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

چهارشنبه, ۱۷ مرداد ۱۳۹۷، ۰۵:۰۰ ب.ظ - مشاهده: ۱۵

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

سلام

 

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

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

  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

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

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

 

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

  • میـMiRـزا
  • http://access-training.blog.ir/post/50

Delete the record by vba

حذف رکورد

نظرات  (۰)

هیچ نظری هنوز ثبت نشده است

ارسال نظر

ارسال نظر آزاد است، اما اگر قبلا در بیان ثبت نام کرده اید می توانید ابتدا وارد شوید.
شما میتوانید از این تگهای html استفاده کنید:
<b> یا <strong>، <em> یا <i>، <u>، <strike> یا <s>، <sup>، <sub>، <blockquote>، <code>، <pre>، <hr>، <br>، <p>، <a href="" title="">، <span style="">، <div align="">