就是想和子窗体的打勾...........如果配套?
当子窗体的"删除"有打勾...再点击删除按扭...就可以删除刚选择的表...
没选择的就不要删..作者: andymark 时间: 2007-8-30 13:48
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 时间: 2007-8-30 13:56
ding,ding,!作者: Haoxu123 时间: 2007-8-30 14:21
学习中....