点击下载附件

Private Sub 创建白云石查询_Click()
    Set qdf = CurrentDb.CreateQueryDef("qry白云石", "select * from 白云石")
    Application.RefreshDatabaseWindow  '刷新
    MsgBox "创建成功！"

End Sub

Private Sub 删除白云石查询_Click()
    DoCmd.DeleteObject acQuery, "qry白云石"
    Application.RefreshDatabaseWindow  '刷新
    MsgBox "删除成功！"
End Sub

 

Private Sub 根据表名创建一个查询_Click()
    Set qdf = CurrentDb.CreateQueryDef("" & "qry" & Me.txt表名 & "", "select * from " & Me.txt表名 & "")
    Application.RefreshDatabaseWindow  '刷新
    MsgBox "创建成功！"
End Sub

Private Sub 删除此查询_Click()
    DoCmd.DeleteObject acQuery, "" & "qry" & Me.txt表名 & ""
    Application.RefreshDatabaseWindow  '刷新
    MsgBox "删除成功！"

End Sub