求教删除表数据代码

hmsxzf

我刚开始学代码,想要在窗体内设定一按钮在点击时可以清空一个表内的数据,请教各位这个代码该怎么写,我在网上查了很多人都是说" CurrentDb().Execute "delete * from 表名" "
我写入成下面的样子后却一直提示"缺少 语句结束",请问到底要怎么样写才行,我的表名是"AAA"表内只有一个字段"BBB"
代码如下:
Private Sub Command3_Click()
On Error GoTo Err_Command3_Click

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Command3_Click:
    CurrentDb().Execute delete * from AAA
    Exit Sub
Err_Command3_Click:
    MsgBox Err.Description
    Resume Exit_Command3_Click
   
End Sub

红色处提示"缺少 语句结束"的错误
希望有人能帮我改一下,谢谢.
我初学,恳请能有解释.

kelind

dim strsql as string
strsql="delete * from aaa"
docmd.runsql strsql

hmsxzf

谢谢 kelind,但是我把这个代码替换掉红色那行后,如果在删除的时候点否就会一直提问是不是要删除...

ACMAIN_CHM

CurrentDb.Execute "delete from AAA"




******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次