タイトル : VB6でACCESSのマクロ起動 投稿日 : 2008/08/08(Fri) 16:29 投稿者 : tetsu
VB6で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ボタンクリック時に起動するようにしています。 これをVB6でつくったフォームで、同じようにクリックしたらマクロ起動しのレポートが表示され、印刷できるようにしたいのです。 みなさまどうか宜しくお願い致します。 |