| タイトル | ： VB6でACCESSのマクロ起動 |
| 記事No | ： 12867 |
| 投稿日 | ： 2008/08/08(Fri) 16:29 |
| 投稿者 | ： tetsu |
VB６でACCESSの 性別指定 というマクロを起動させたいのですが、
Dim obj As Object
Set obj = CreateObject("Access.Application")
obj.OpenCurrentDatabase App.Path & "C:\藤谷 徹\meishi.mdb"
obj.Visible = True
obj.Application.Run "性別指定"
Set obj = Nothing
で実行すると 実行時エラー'7866' データベースファイルがないか、他のユーザーが排他モードで開いているため、このデータベースを開くことができません。 と表示されます。
どうすればよろしいのでしょうか？？
ちなみに 性別指定 というマクロは、テキストボックスの値をよみ、値が男なら男だけのレコードを抽出したレポートを開き、印刷するというマクロです。
フォームにOKボタンを設置し、OKボタンクリック時に起動するようにしています。
これをVB６でつくったフォームで、同じようにクリックしたらマクロ起動しのレポートが表示され、印刷できるようにしたいのです。
みなさまどうか宜しくお願い致します。
|