当前位置:Gxlcms > mysql > 当您尝试导出Access2007年中MicrosoftGraph对象编程错误信息

当您尝试导出Access2007年中MicrosoftGraph对象编程错误信息

时间:2021-07-01 10:21:17 帮助过:51人阅读

症状 当您 尝试 导出 在 Microsoft Office Access 2007, MicrosoftGraph 对象 编程 您收到以下 错误 消息: 运行时 错误 1004: 应用程序定义或 对象 定义 错误 。 当您 尝试 关闭 错误 消息, 您收到以下 错误 消息: Chart 对象 上操作失败。 可能未注册 OL

症状

当您尝试导出在 Microsoft Office Access 2007, MicrosoftGraph 对象编程您收到以下错误消息:

运行时错误 1004:

应用程序定义或对象定义错误

当您尝试关闭错误消息, 您收到以下错误消息:

Chart 对象上操作失败。

可能未注册 OLE 服务器。

要注册 OLE 服务器, 重新安装它。

收到错误消息, 后无法执行下列操作:

保存表单
在视图中打开窗体

替代方法

要解决此问题, 使用下列方法之一。 方法 1: 操作属性设置为 acOLEClose 之后导出对象

1. 启动 Access 2007年。
2. Microsoft Office 按钮 , 依次 打开 。
3. 在 打开 对话框, 选择与要, 数据库, 然后单击 打开 。
4. 在 创建 菜单, 单击 数据透视图 。
5. 在 设计 菜单上, 单击 显示/隐藏 组中 字段列表 。 这样可以打开 图表字段列表 列表。
6. 将 CategoryName 从 图表字段列表 移动到 除去此处分类字段 。
7. 将 ProductSales 从 图表字段列表 移动到 除去此处数据字段 。 按类别 注意 图表显示产品销售额的总和。
8. 单击 Microsoft Office 按钮 , 然后单击 关闭 。
9. 另存为 对话框中, 键入 frmPivotChart 表单名称 , 下, 然后单击 确定 。
10. 创建 菜单, 上单击 窗体组 , 中 窗体设计 并将 frmPivotChart 从导航窗格移动到设计器。 注意 此过程创建子窗体。
11. 将命令按钮添加到主窗体, 并将命令按钮的 Name 属性设置为 Command 。
12. 在 设计 菜单, Controls 组, 中单击 按钮 , 然后单击 Form 2 设计器以窗体上放置 命令 按钮。
13. Command , 右击, 然后单击 属性 。
14. 属性表 对话框中, 单击 事件 选项卡, 然后单击省略号按钮 () 为 On Click 事件。
15. 选择生成器 " 对话框中, 选择 代码生成器 , 然后单击 确定 。
16. 在 VisualBasic 编辑器, 用以下代码替换代码。Private Sub Command1_Click() Dim grpApp As Graph.Chart Set grpApp = Me.Graph1.Object grpApp.Export "C:Graph1.jpg", "JPEG" Set grpApp = Nothing Me.Graph1.Action = acOLEClose End Sub
17. 在 文件 菜单上, 单击 关闭并返回到 Microsoft Office Access 。
18. 在 保存 对话框中, 单击 是 。
19. 另存为 对话框中, 键入 frmMain 表单名称 , 下, 然后单击 确定 。
20. 在 主 菜单, 单击 Views 组, 中 视图 并单击 窗体视图 。 体出现在数据透视图视图。
21. 在 frmMain 表单, 单击 Command 按钮将透视图导出到下列文件:

C:PivotChart1.jpg

22. 在 主 菜单, 单击 Views 组, 中 视图 并单击 设计视图 。 窗体设计视图中打开。
方法 2: 创建数据透视图对象而不是图形对象对于此方法步骤是作为方法 1, 中除对于步骤 16 步骤相同。

要使用此方法, 请按照步骤 1 到 15 方法 1 中。 在步骤 16, 用以下代码替换代码。Option Compare Database Private Sub Command1_Click()   Dim frm As Access.Form   Set frm = Me.frmPivotChart.Form   frm.ChartSpace.ExportPicture "C:PivotChart1.jpg", "JPEG" End Sub然后, 执行步骤 17 到 22 方法 1 中。

状态

Microsoft 已确认这是 " 适用于 " 一节中列出 Microsoft 产品中存在问题。

更多信息

步骤来重现问题

1. 启动 Access 2007年。
2. Microsoft Office 按钮 , 依次 新建 。
3. 单击 空白数据库 , 在 文件名 框中, 键入 DatabaseName , 然后单击 创建 。
4. 在 创建 菜单上, 表 组中单击 " 表设计 " 然后创建下表:
域名 数据类型
CategoryName 文本
ProductSales 货币
5. Microsoft Office 按钮 , 依次 保存 。
6. 类型 tabSales 表名称 中, 框, 然后单击 " 确定 " 。 注意 当您单击 确定 , 您可以创建一个主键。
7. 视图 组, 中单击 数据表 视图, 并在 CategoryName 和 ProductSales 字段然后键入下列值:
CategoryName ProductSales
饮料 45000
condiments 15000
生成 65000
seafood 33000
8. 在 创建 菜单上, 单击 窗体设计 窗体 组中。
9. 设计 菜单, 上 控件 组, 中 Chart 控件依次 Form 1 设计器。
10. 在 图表向导 对话框中, 单击 下一步 。 注意 Table:tabSales 自动选择下 哪个表或查询是否将用于创建图表 。
11. 在 图表向导 哪个字段包含要用于图表数据 , 下选择 CategoryName 在 " 可用字段 。
12. 单击 > 以 CategoryName 字段用于图表 , 下移动, 然后单击 完成 。
13. 对于 ProductSales 重复步骤 11 和 12。
14. 用鼠标右键单击图表, 然后单击 属性 。
15. 然后单击 Form 1 设计器 设计 菜单, 上 按钮 和 控件 组, 中。
16. 单击 取消 以关闭 命令按钮向导 。
17. 用鼠标右键单击 Command 控件, 然后单击 生成事件 。
18. 在 VisualBasic 编辑器, 用以下代码替换现有代码。Option Compare Database Private Sub Command1_Click()   Dim grpApp As Graph.Chart   Set grpApp = Me.Graph0.Object   grpApp.Export "C:Graph0.jpg", "JPEG"   Set grpApp = Nothing End Sub
19. 在 工具 菜单上, 单击 引用 。
20. 中 引用 - DatabaseName 对话框中, 单击以选中 Microsoft 12.0 MicrosoftGraph 对象库 , 然后再单击 确定 。
21. 在 文件 菜单上, 单击 关闭并返回到 Microsoft Office Access 。
22. 视图 组, 中 视图 , 依次 窗体视图 。
23. 在 Form 1 , 单击 Command 。 注意 出现该问题是 " 症状 " 部分中讨论。

人气教程排行