Microsoft Access Club Access超初心者対象Forum Access初級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

投稿記事の一括表示

タイトル Application.FileDialogがエラー
記事No42740
投稿日: 2011/09/30(Fri) 11:56
投稿者kuma
解決済: ON
OS:Windows7
Access Version:2007

現在、受注管理システムの作成作業中です。どうしてもわからないので投稿させていただきます。
新規でaccdbを作成しているのですが、既存別システムのaccdbを参照しながらVBA記述しています。
ファイルを参照する機能にてタイトルのFileDialog記述を既存別システムからコピペして実行したところ
エラーとなってしまいました。
構文は
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = "c:\"
.Title = "原価表の保存元ファイルを指定してください"
If .Show = True Then
Me!元原価表 = .SelectedItems(1)
Else
Me!元原価表 = ""
End If
End With
If Me!元原価表 = "" Then
MsgBox "元ファイルを指定してください"
End If

ですが実行時エラー(-2147467259)FileDialogメソッドは失敗しました'_Applicationオブジェクト'
となって動作しません。
同一PC上で既存システムの該当モジュール部分を実行しても正常に動作するのに新規作成したaccdbだと
エラーになるのが不思議です。どなたかわかる方教えてください。
以上

タイトルRe: Application.FileDialogがエラー
記事No42741
投稿日: 2011/09/30(Fri) 13:44
投稿者Moko
解決済: ON
参照設定で

Microsoft Office 12.0 Object Library

にチェックしてください。

優先順位などは、既存システムを参考にすれば良いと思います。

タイトルRe^2: Application.FileDialogがエラー
記事No42744
投稿日: 2011/09/30(Fri) 19:46
投稿者kuma
解決済: ON
> 参照設定で
>
> Microsoft Office 12.0 Object Library
>
> にチェックしてください。
>
> 優先順位などは、既存システムを参考にすれば良いと思います。

うまく動作しました。
ありがとうございました。

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード

ページの先頭へ 前ページへ戻る