Office中国论坛/Access中国论坛

标题: 求教删除表数据代码 [打印本页]

作者: hmsxzf 时间: 2009-6-6 22:18
标题: 求教删除表数据代码
我刚开始学代码,想要在窗体内设定一按钮在点击时可以清空一个表内的数据,请教各位这个代码该怎么写,我在网上查了很多人都是说" 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 时间: 2009-6-6 22:31
dim strsql as string
strsql="delete * from aaa"
docmd.runsql strsql

作者: hmsxzf 时间: 2009-6-6 22:38
谢谢 kelind,但是我把这个代码替换掉红色那行后,如果在删除的时候点否就会一直提问是不是要删除...

作者: ACMAIN_CHM 时间: 2009-6-7 16:09
CurrentDb.Execute "delete from AAA"

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)