您當(dāng)前位置：首頁 > 數(shù)據(jù)庫 > access > 當(dāng)您嘗試導(dǎo)出 Access 2007年中 MicrosoftGraph 對象編程錯(cuò)誤信息： " "

當(dāng)您嘗試導(dǎo)出 Access 2007年中 MicrosoftGraph 對象編程錯(cuò)誤信息： " "

來源：程序員人生發(fā)布時(shí)間：2013-12-22 09:26:24 閱讀次數(shù)：3558次

癥狀

當(dāng)您嘗試導(dǎo)出在 Microsoft office Access 2007, MicrosoftGraph 對象編程您收到以下錯(cuò)誤消息：

運(yùn)行時(shí)錯(cuò)誤 1004：
應(yīng)用程序定義或?qū)ο蠖x錯(cuò)誤。

當(dāng)您嘗試關(guān)閉錯(cuò)誤消息, 您收到以下錯(cuò)誤消息：

Chart 對象上操作失敗。
可能未注冊 OLE 服務(wù)器。
要注冊 OLE 服務(wù)器, 重新安裝它。

收到錯(cuò)誤消息, 后無法執(zhí)行下列操作：

•	保存表單
•	在視圖中打開窗體

替代方法

要解決此問題, 使用下列方法之一。

方法 1：操作屬性設(shè)置為 acOLEClose 之后導(dǎo)出對象

1.	啟動(dòng) Access 2007年。
2.	Microsoft Office 按鈕 , 依次打開。
3.	在打開對話框, 選擇與要, 數(shù)據(jù)庫，然后單擊打開。
4.	在創(chuàng)建菜單, 單擊數(shù)據(jù)透視圖。
5.	在設(shè)計(jì) 菜單上, 單擊顯示/隱藏組中字段列表。這樣可以打開圖表字段列表列表。
6.	將 CategoryName 從圖表字段列表移動(dòng)到除去此處分類字段。
7.	將 ProductSales 從圖表字段列表移動(dòng)到除去此處數(shù)據(jù)字段。按類別注意圖表顯示產(chǎn)品銷售額的總和。
8.	單擊 Microsoft Office 按鈕 , 然后單擊關(guān)閉。
9.	另存為對話框中, 鍵入 frmPivotChart 表單名稱 , 下，然后單擊確定。
10.	創(chuàng)建菜單, 上單擊窗體組 , 中窗體設(shè)計(jì) 并將 frmPivotChart 從導(dǎo)航窗格移動(dòng)到設(shè)計(jì)器。注意此過程創(chuàng)建子窗體。
11.	將命令按鈕添加到主窗體, 并將命令按鈕的 Name 屬性設(shè)置為 Command 。
12.	在設(shè)計(jì) 菜單, Controls 組, 中單擊按鈕，然后單擊 Form 2 設(shè)計(jì)器以窗體上放置命令按鈕。
13.	Command , 右擊，然后單擊屬性。
14.	屬性表對話框中, 單擊事件選項(xiàng)卡, 然后單擊省略號按鈕 () 為 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.	在文件菜單上, 單擊關(guān)閉并返回到 Microsoft Office Access 。
18.	在保存對話框中, 單擊是。
19.	另存為對話框中, 鍵入 frmMain 表單名稱 , 下，然后單擊確定。
20.	在主菜單, 單擊 Views 組, 中視圖并單擊窗體視圖。體出現(xiàn)在數(shù)據(jù)透視圖視圖。
21.	在 frmMain 表單, 單擊 Command 按鈕將透視圖導(dǎo)出到下列文件： C:PivotChart1.jpg
22.	在主菜單, 單擊 Views 組, 中視圖并單擊設(shè)計(jì)視圖。窗體設(shè)計(jì)視圖中打開。

方法 2：創(chuàng)建數(shù)據(jù)透視圖對象而不是圖形對象

對于此方法步驟是作為方法 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

然后, 執(zhí)行步驟 17 到 22 方法 1 中。

狀態(tài)

Microsoft 已確認(rèn)這是 " 適用于 " 一節(jié)中列出 Microsoft 產(chǎn)品中存在問題。

更多信息

步驟來重現(xiàn)問題

啟動(dòng) Access 2007年。

Microsoft Office 按鈕 , 依次新建。

單擊空白數(shù)據(jù)庫，在文件名框中, 鍵入 DatabaseName ，然后單擊創(chuàng)建。

在創(chuàng)建菜單上, 表組中單擊 " 表設(shè)計(jì) " 然后創(chuàng)建下表：

域名	數(shù)據(jù)類型
CategoryName	文本
ProductSales	貨幣

Microsoft Office 按鈕 , 依次保存。

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

注意當(dāng)您單擊確定 , 您可以創(chuàng)建一個(gè)主鍵。

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

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

在創(chuàng)建菜單上, 單擊窗體設(shè)計(jì) 窗體組中。

設(shè)計(jì) 菜單, 上控件組, 中 Chart 控件依次 Form 1 設(shè)計(jì)器。

10.

在圖表向?qū)?對話框中, 單擊下一步。

注意 Table:tabSales 自動(dòng)選擇下 哪個(gè)表或查詢是否將用于創(chuàng)建圖表 。

11.

在圖表向?qū)?哪個(gè)字段包含要用于圖表數(shù)據(jù) , 下選擇 CategoryName 在 " 可用字段。

12.

單擊 > 以 CategoryName 字段用于圖表 , 下移動(dòng)，然后單擊完成。

13.

對于 ProductSales 重復(fù)步驟 11 和 12。

14.

用鼠標(biāo)右鍵單擊圖表, 然后單擊屬性。

15.

然后單擊 Form 1 設(shè)計(jì)器設(shè)計(jì) 菜單, 上按鈕和控件組, 中。

16.

單擊取消以關(guān)閉命令按鈕向?qū)?。

17.

用鼠標(biāo)右鍵單擊 Command 控件, 然后單擊生成事件。

18.

在 VisualBasic 編輯器, 用以下代碼替換現(xiàn)有代碼。

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.

在文件菜單上, 單擊關(guān)閉并返回到 Microsoft Office Access 。

22.

視圖組, 中視圖 , 依次窗體視圖。

23.

在 Form 1 , 單擊 Command 。

注意出現(xiàn)該問題是 " 癥狀 " 部分中討論。

生活不易，碼農(nóng)辛苦
如果您覺得本網(wǎng)站對您的學(xué)習(xí)有所幫助,可以手機(jī)掃描二維碼進(jìn)行捐贈(zèng)
程序員人生