آپدیت شدن فرم و ساب فرم بدون بستن آن

[padide55]

کد دابل کلیک حذف رو به این صورت تغییر بدهید
در رکورد جدید عمل نکند

Private Sub txtdelet_DblClick(Cancel As Integer)

If Me.NewRecord Then

MsgBox "رکورد خالي قابل حذف نمي باشد"

Else

DoCmd.OpenForm "frmMsgDelete"

With Form_frmMsgDelete

.Label1.Caption = "آياحذف شود؟"

.Label2.Caption = "در صورت حذف غير قابل برگشت است."

.Label2.ForeColor = vbRed

.Caption = "حذف رکورد"

End With

End If

End Sub