- ベストアンサー
Access&VBの質問について
- VBからDAOでパスワードがかかっているACCESSに接続する際の引数の設定方法について質問です。
- ACCESSでクエリーを作成し、その結果をエクセルにエクスポートする処理において、パラメータの設定方法について質問です。
- VBとAccessの連携について、具体的なコード例と共に説明をお願いします。
- zima_id
- お礼率59% (28/47)
- Visual Basic
- 回答数3
- ありがとう数3
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
その後解決しましたでしょうか？ お休みになったので、ちょっと実験してみました。 ちゃんとできましたので、報告しておきます。 Dim objAccess As Access.Application Set objAccess = CreateObject("Access.Application") objAccess.OpenCurrentDatabase "C:\TEST.MDB" objAccess.DoCmd.OpenForm "FORM2", acNormal objAccess.Forms("FORM2")![個数].Value = 200 objAccess.DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Q1", "C:\TEST1.XLS" objAccess.DoCmd.Close acForm, "FORM2" objAccess.CloseCurrentDatabase objAccess.Quit パラメータを渡すためだけに作ったフォームがFORM2で、FORM2に[個数]と言うテキストボックスを配置しました。 パラメータクエリーQ1のパラメータの部分は>[Forms]![FORM2]![個数]という感じで、フォームの[個数]を参照するようにしてあります。 FORM2を開いて、テキストボックス[個数]に値を入れてから、TranserSpreadSheetをするようにしました。
その他の回答 (2)
- arata
- ベストアンサー率49% (139/279)
そうです。 １．Accessでテーブルと連結していないフォームを作って、パラメータクエリーのパラメータは、フォームのテキストボックスを参照するようにしておく。 ２．実行時には、ＶＢのコントロールにより、Accessのフォームを開き、フォームのテキストボックスにＶＢのテキストボックスの値を入れる。 ３．TransferSpreadsheetを行う とすると解決するような気がするのですが、うまくいくかどうかは、試していないので、わかりません。
- arata
- ベストアンサー率49% (139/279)
１については、下記のURLを参照してください。 ２については、試したわけではないので自信はありませんが、パラメータクエリーのパラメータをフォームのテキストボックスを参照するようにして、マクロやモジュールで、フォームのテキストボックスに値を入れておけば、聞かれないのではないかと思うのですが。
補足
１については解決しました。ありがとうございました。 ２について、arataさんが言われている"フォーム"とはaccessのフォームのことでしょうか？ VBのフォーム上のテキストボックスの値をクエリーが要求する引数として渡したいのですが、やっぱりそんなことはできないのでしょうか？
お礼
いろいろとありがとうございました。ちょっとやってみます。