如何清除一个表中的所有数据

runningleo

我在论坛上搜了。 都不是我想要的。
  看到一个说是  delete  表名。*
                        from 表名;
    我在vba下  说不可以用  *号 啊

  我是想 用一个按钮实现  清除某一个表中的所有数据

不是删除表。  
Private Sub Command30_Click()
On Error GoTo Err_Command30_Click
   
    DoCmd.DeleteObject acTable, "仓储明细"
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
   

Exit_Command30_Click:
    Exit Sub

Err_Command30_Click:
    MsgBox Err.Description
    Resume Exit_Command30_Click
   
End Sub
我写的这个不行！
给个代码吧 主要部分的！

runningleo

再顶顶

82077802

Rs0.Open STemp0, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

runningleo

3# 82077802 你给打代码要怎么用？ 具体点。我是新手

andymark

delete * from 表名

mrd_wxqs

docmd.runsql "delete * from 仓储明细:"

goodorbad

1.先创建一个删除查询
2.然后在窗体中的按钮代码中 用docmd.openquery去运行那个删除查询即可