无法删除该复选框

Question

我试图选中数据表视图中的复选框，然后点击删除按钮删除数据并收到此错误...我不知道问题是什么？...我试过了编码

Dim strsql as string 

strsql = "DELETE * FROM mytablename WHERE delete = YES" 
Docmd.Runsql strsql
end sub

编码是对还是错？

Answer 1

也许你真的需要一个带有命令按钮的未绑定表单。单击命令按钮将生成消息框功能。单击“是”，您的数据将被删除。

1. 使用“创建表单”向导创建表单，但不要将其连接到表或查询。在创建表单时，请转到“表单属性”，“数据”选项卡。将“记录来源”留空。

我想你的桌子可能有一个名为“DelRec”的字段。这将是“是/否”。

1. 您可以创建一个SELECT查询:(这在设计视图中）（在此示例中命名为Query1）

   SELECT MyTableName。*，MyTableName.DelRec 来自MyTableName WHERE（（（MyTableName.DelRec）= True））;

2. 使用命令按钮创建未绑定的表单。

On Click事件将是：

Private Sub Command0_Click()

Dim Wrng As Integer

DoCmd.OpenQuery "Query1"

Wrng = MsgBox("Are you sure you want to delete these records?",     vbExclamation + vbDefaultButton2 + vbYesNo, "Warning Title")

If Wrng = 6 Then
        DoCmd.Close acQuery, "Query1"
        DoCmd.RunSQL "DELETE MyTableName.*, MyTableName.DelRec " & _
                     "FROM MyTableName " & _
                     "WHERE (((MyTableName.DelRec)=True)) "
End If

End Sub

Answer 2

首先，YES不是有效值。您的意思是True还是"Yes"？ 其次，如果它有效，你需要刷新表格。