如何清空所选择的表的所有记录?

goto2008

如何清空所选择的表的所有记录?

ytf123

清空表记录的方法
1、CurrentDb().Execute "delete * from 表名"
2、docmd.runsql "SQL语句"
3，RunSQL "Delete * From 表名"

goto2008

汗......单纯的删...我懂

就是想和子窗体的打勾...........如果配套?
当子窗体的"删除"有打勾...再点击删除按扭...就可以删除刚选择的表...
没选择的就不要删..

andymark

Private Sub Command2_Click()
Dim Sql As String
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection
Sql = "select * from 表1 where 删除=true"
Rs.Open Sql, Conn, adOpenKeyset, adLockOptimistic
Do While Not Rs.EOF
   Conn.Execute "delete * from " & Rs.Fields("表名") & ""
   Rs.MoveNext
Loop
Set Rs = Nothing
Set Conn = Nothing
End Sub

j2l

ding,ding,!

Haoxu123

学习中....