您當前位置：首頁 > 數據庫 > access > 當您嘗試導出 Access 2007年中 MicrosoftGraph 對象編程錯誤信息： " "

當您嘗試導出 Access 2007年中 MicrosoftGraph 對象編程錯誤信息： " "

來源：程序員人生發布時間：2013-12-22 09:26:24 閱讀次數：3565次

癥狀

當您嘗試導出在 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 產品中存在問題。

更多信息

步驟來重現問題

啟動 Access 2007年。

Microsoft Office 按鈕 , 依次新建。

單擊空白數據庫，在文件名框中, 鍵入 DatabaseName ，然后單擊創建。

在創建菜單上, 表組中單擊 " 表設計 " 然后創建下表：

域名	數據類型
CategoryName	文本
ProductSales	貨幣

Microsoft Office 按鈕 , 依次保存。

類型 tabSales 表名稱中, 框，然后單擊 " 確定 " 。

注意當您單擊確定 , 您可以創建一個主鍵。

視圖組, 中單擊數據表視圖, 并在 CategoryName 和 ProductSales 字段然后鍵入下列值：

CategoryName	ProductSales
飲料	45000
condiments	15000
生成	65000
seafood	33000

在創建菜單上, 單擊窗體設計窗體組中。

設計菜單, 上控件組, 中 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 。

注意出現該問題是 " 癥狀 " 部分中討論。

生活不易，碼農辛苦
如果您覺得本網站對您的學習有所幫助,可以手機掃描二維碼進行捐贈
程序員人生