在窗体上添加和删除数据表数据时，怎样让不显示添加和删除对话框

就是不要这个对话框出现；

清除按钮的程序如下：

Private Sub 清除_Click()

DoCmd.RunSQL "delete * from 员工临时表"
'DoCmd.SetWarnings False
'DoCmd.SetWarnings True
DoCmd.RunSQL "delete * from 生产量临时表"
'DoCmd.SetWarnings False
'DoCmd.SetWarnings True
Me.Child50.Requery
Me.List36.Requery

End Sub

添加按钮程序如下：

Private Sub Command29_Click()
    Dim strSQL As String
       strSQL = "INSERT INTO 生产量表(员工姓名,产品名称,工序,班产量,工价,单日工资,日期) SELECT 员工姓名,产品名称,工序,班产量,工价,单日工资,日期 FROM 员工临时表,生产量临时表;"
        'DoCmd.SetWarnings False
        DoCmd.RunSQL strSQL
        'DoCmd.SetWarnings True
MsgBox "添加成功"
Me.List36.Requery
End Sub

请问问题出在哪？