完全删除事件中的记录[英] Completely delete a record inan event

问题描述

你好,

我有一个表单,它提供了一个用于擦除图像记录的命令按钮.但是,它只会删除图像的链接(图像描述),留下与该图像关联的所有其他字段的完整记录.当用户搜索所有记录时,这会成为一个问题.他们得到一个空图像屏幕,但描述(作者和日期)仍然存在.我怎样才能完全删除整条记录.这是下面的代码.在此先感谢

私有子 cmdErasePic_Click()
If Not IsNull([imageFile]) Then
If MsgBox("此图像将被永久删除,您确定吗?", vbYesNo + vbQuestion) = vbYes Then
Me!frmimagesubform.Form![imgPicture].Picture = """
我![imageFile] = 空
SysCmd acSysCmdClearStatus
调用表_当前
结束如果
结束如果
End Sub

推荐答案

你好,

我有一个表单,它提供了一个用于擦除图像记录的命令按钮.但是,它只会删除图像的链接(图像描述),留下与该图像关联的所有其他字段的完整记录.当用户搜索所有记录时,这会成为一个问题.他们得到一个空图像屏幕,但描述(作者和日期)仍然存在.我怎样才能完全删除整条记录.这是下面的代码.在此先感谢

私有子 cmdErasePic_Click()
If Not IsNull([imageFile]) Then
If MsgBox("此图像将被永久删除,您确定吗?", vbYesNo + vbQuestion) = vbYes Then
Me!frmimagesubform.Form![imgPicture].Picture = """
我![imageFile] = 空
SysCmd acSysCmdClearStatus
调用表_当前
结束如果
结束如果
结束子
展开|选择|Wrap|行号

展开|选择|换行|行号

你好,

我尝试将 sql 放入事件中,如下所示:

私有子 cmdErasePic_Click()
If Not IsNull([imageFile]) Then
If MsgBox("图像将被永久删除,你确定吗?", vbYesNo + vbQuestion) = vbYes Then
''我!frmimagesubform.Form![imgPicture].Picture = ""
''我![imageFile] = 空
''SysCmd acSysCmdClearStatus
DoCmd.SetWarnings 错误
将 strSQL 调暗为字符串
''删除当前记录
mysql = "DELETE * FROM imageInventory where imageInventory.imageID = "&我![imageID]
DoCmd .RunSQL strSQL
''以某种方式移动记录指针
DoCmd.SetWarnings True
结束如果
结束如果
结束子

该模块告诉我它不喜欢"Docmd".请帮忙.谢谢

本文地址:https://www.itbaoku.cn/post/1050407.html