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

[arpachi]

با سلام خدمت دوستان گرامی
لطفا درنمونه پیوست هنگامی که میخواهیم یک رکورد را از جدول و لیست در داخل فرم توسط دکمه حذف ، که برای آن کد vb نوشته ایم حذف نماییم پیغام خطا میدهد. و ازنمونه های داخل سایت هم هیچکدام را نتوانستم استفاده کنم.لطفاراهنمایی نمایید.

[arpachi]

کسی نیست کمک کنه !:ناراحت::افسرده:

[ATA_TABRIZ]

با سلام
ميتوني براي يه Command دستور زيرو وارد كني


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
me.refresh

[arpachi]

دوست عزیز کارنکرد!:گیج:
درصورت امکان فایل نمونه را اصلاح کنید.
پیشاپیش ممنون.

[ATA_TABRIZ]

سلام
شرمنده من با ورژن 2003 كار ميكنم نتونستم فايلتو باز كنم اگه فايل 2003 را داري بذار تا برات درست كنم بعد تبديلش كن به ورژن با لاتر

[Abbas Amiri]

کد مربوط به دکمه حذف مطابق زیر تغییر دهید


Private Sub btn_del_Click()
record_id = List.Column(0)
If IsNull(record_id.Value) Then
MsgBoxFa "áØÝÇð í˜ ÑÏíÝ ÑÇ ÇäÊÎÇÈ äãÇííÏ", vbOKOnly + vbExclamation, "ÎØÇ"
Else
CurrentDb.Execute "DELETE * FROM tbGroup_entities WHERE ID=" & record_id
List.Requery
If List.ListCount < 1 Then
Exit Sub
Else
End If
End If
End Sub

[arpachi]

ممنون از همه دوستان
مشکل حل شد.