アクセスのセキュリティ警告を非表示にする方法
- ＶＢＳでアクセスのマクロを起動させる際にセキュリティの警告を非表示にする方法を教えてください。
- 現在のプログラムはデータベース名が『db.mdb』であり、マクロ名は『macro』です。
- プログラム内のコードを使ってアクセスのセキュリティ警告を無視する方法が存在するのか知りたいです。
- ベストアンサー
アクセスのセキュリティの警告の非表示
現在、ＶＢＳでアクセスのマクロを起動させているのですが、 起動時にセキュリティの警告を聞いてこないようにしたいのですが、 なにか方法はあるのでしょうか？ ちなみに現在のプログラムは '' データベース名・・・db.mdb（デスクトップにある場合） マクロ名・・・macro Dim AcApp Set AcApp = CreateObject("Access.Application") AcApp.visible = true AcApp.OpenCurrentDatabase "C:\Documents and Settings\×××\デスクトップ\db.mdb" AcApp.DoCmd.RunMacro "macro" AcApp.CloseCurrentDatabase AcApp.Quit Set AcApp = Nothing です。 よろしくお願い致します。
- nabe1020
- お礼率61% (8/13)
- Visual Basic
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
これかな？
関連するQ&A
- Excel から Accessクエリーを実行したい
下記のようなマクロを組んでMS Accessのクエリー結果をExcelに出力したいのですが「レコードがない」というエラーになります。正しいコーディングを教えてください。 Sub DataFromAccess() Dim AccessApp As Object Set AccessApp = CreateObject("Access.Application") myDBName = "C:\MyAccess.mdb" '出力先フルパス xlsName = "C:\Invoice.xls" With AccessApp .Visible = True .OpenCurrentDatabase myDBName, acViewNormal .DoCmd.OutputTo acOutputQuery, "クエリー名", acFormatXLS, xlsName, True .CloseCurrentDatabase .Quit End With Set AccessApp = Nothing End Sub
- 締切済み
- その他（プログラミング・開発）
- VBSでセキュリティ「中」のAccessをメッセージなしに開きたい
AccessのテーブルにCSVのデータをインポートするVBSを作っていますが、そのVBSを実行するパソコンののAccessのセキュリティが「中」となっているため、実行時に「開くかどうか」を聞いてきます。 セキュリティレベルを「低」に変更できないため、VBSか、Accessファイルに修正をしなければいけないのですが、どうすればよいか、よくわかりません。 ちなみに、VBSのコーディングは以下のようになっています。 'アクセスオブジェクトセット Set objAccess = CreateObject("Access.Application") 'データベースオープン objAccess.OpenCurrentDatabase(strMdbName) 'データベースセット Set objDB = objAccess.CurrentDb 'インポート実行 objAccess.DoCmd.TransferText ,defFile,strTableName,strInFile,False 'データベースクローズ objAccess.CloseCurrentDatabase s = s & "CloseCurrentDatabase" & vbCrLf objRS.Close objDB.Close Set objRS = Nothing Set objDB = Nothing Set objAccess = Nothing どうか、助けてください。お願いします。
- 締切済み
- その他（プログラミング・開発）
- 画面のちらつきをやめるにはどうすればいいでしょうか
アクセスです。 Sub test() Set objAcc = CreateObject("Access.Application") objAcc.OpenCurrentDatabase "C:\test.accdb", False objAcc.Run "プロシージャー" objAcc.Quit Set objAcc = Nothing End Sub ------------------------- 上記のプロシージャーを実行して、他のファイルのプロシージャーを実行しているのですが 毎回ファイルが立ち上がってしまいます。 画面のちらつきをやめるにはどうすればいいでしょうか？ DoCmd.SetWarnings False と DoCmd.SetWarnings True を入れてみましたが、無意味でした。 objAcc.OpenCurrentDatabase でアクセスが起動し、 objAcc.Quit で閉じます。 エクセルで例えるのなら、 Application.ScreenUpdating = False みたいなことがやりたいです。
- ベストアンサー
- オフィス系ソフト
- Access2.0、テーブルのエクスポート
Access2.0のテーブルをWSHを使用してエクスポートしようとすると エラーとなってしまいます。 エラーメッセージは、以下のとおりです。 以前のバージョンのMicrosoft Accessデータベースにオブジェクトをインポートすることはできません。 以下に、コードを抜粋します。 Dim strName Dim objAccess Dim objDB Dim tbf Set objAccess = CreateObject("Access.Application") objAccess.Visible = False objAccess.OpenCurrentDatabase("c:\****.mdb") Set objDB = objAccess.CurrentDb objAccess.Docmd.TransferText 0,,"テーブル名","C:\****.txt" → ここで、エラーとなります。 どなたか、テーブルをエクスポートする方法を知ってる方、いらっしゃいませんか？
- 締切済み
- SE・インフラ・Webエンジニア
- Accessのフォームだけを表示するには？
Accessのフォームを使って処理を行う時に、Access自身のバックグラウンドを表示しないでフォームのみ表示して処理するというようなことはできるのでしょか？ たとえば、Accessのインスタンスは非表示にしてフォームだけみえるようにする。 ＷＳＨで Set accApp = CreateObject("Access.Application") accApp.Visible = False accApp.OpenCurrentDatabase "C:\業務01.mdb" accApp.DoCmd.OpenForm "F010_情報表示フォーム", , , , acFormReadOnly accApp.Forms.[F010_010_情報表示].Visible = true などとして[F010_010_情報表示]フォームのみを表示するなどということはできるのでしょか？ 実際これでは、何も表示されません。
- 締切済み
- その他（ITシステム運用・管理）
- VBSにて、Accessのテーブルを削除
VBSの質問がここが妥当でなかったら、すみません。 VBSで、Accessの"A_TBL"というテーブルを削除したいのですが、 Set objAccess = CreateObject("Access.Application") objAccess.OpenCurrentDatabase("C:\test\TEST.mdb) objAccess.DoCmd.DeleteObject acTable, "A_TBL" を実行すると、 「実行時エラー：この変数は宣言されていません。:'acTable'] と出力され、エラーになります。どなたか、教えていただければうれしいです。 どうか、お願いします。
- ベストアンサー
- Visual Basic
- Access&VB
２つほど質問があるのですが、 1.VBからDAOでパスワードがかかっているACCESSに接続する場合に引数はどのように設定したらよいのでしょうか？ 2.ACCESSでクエリーを作成し、そのクエリーの結果をエクセルにエクスポートするという処理をやります。 このときクエリーはパラメータを要求します。どこかのタイミングでパラメータをわたせないでしょうか？ 具体的にはこんな感じです。 Dim objDb As Object Dim appAccess As Object Set appAccess = CreateObject("Access.Application") appAccess.OpenCurrentDatabase "パス名\Memo.mdb" appAccess.DoCmd.TransferSpreadsheet 1, 8,"クエリー名","パス名.xls", False,"" もしくは、 appAccess.DoCmd.RunMacro "マクロ名" （マクロの中身は「TransferSpreadsheet」） 分りにくい説明ですが、よろしくお願いします。
- ベストアンサー
- Visual Basic
- ExcelVBAからAccessのモジュールを実行したい
ExcelVBAからAccessのモジュールを実行したいのですが、 終了した後、タスクマネージャにExcelが残ってしまいます。 ExcelVBAは下記の通りです。 Dim objAccess As Object Dim strAccessPath As String strAccessPath = ThisWorkbook.Path & "\a.mdb" Set objAccess = CreateObject("Access.Application") objAccess.Opencurrentdatabase objAccessPath objAccess.Run "モジュール1" objAccess.closecurrentdatabase objAccess.Quit Set objAccess = Nothing です。 モジュールの内容は、 1.ExcelのシートをAccessにインポート 2.選択クエリでテーブルとの差分を抽出しグループ化 3.クエリをエクスポートする です。 objAccess.Run "モジュール1" をしなければExcelが残らないようなので Run以外の方法でモジュールを実行する方法をご教授ください。 （つたない説明でわかりにくい点あると思います。ご指摘ください）
- 締切済み
- Visual Basic
- VB6からアクセスのレポートをプレビューするには？
おはようございます。またまた躓いたのでお助け下さい<(_ _)>VB6で、アクセス2000にパーツ名を読み書きしています。アクセスの方でレポートを作ってあるのですが、印刷はいけそうなのですが、これを印刷前にプレビューしたいのですが、 Set accApp = CreateObject("Access.Application") accApp.OpenCurrentDatabase "C:\part-name.mdb" accApp.DoCmd.OpenReport "パーツ情報", acViewNormal 印刷について参考にさせていただいたソースです。DoCmd.OpenReport が印刷ですよね？ここを変更するのでしょうか？よろしくお願いします<(_ _)>
- ベストアンサー
- Visual Basic
- ACCESSレポートの起動のさせて方に関して
ＶＢ２００８の環境からＡＣＣＥＳＳのレポートを起動させたいと考えて います。 いろいろ検索しました結果、以下のような記述をしてみましたが、正しく起動 してくれません。。。 どのように記述するのが正しいのでしょうか？？？ 教えて下さい。 環境 ： ＶＢ２００８／ＡＣＣＥＳＳ２０００ 《記述内容》 ※ Microsoft Access 9.0 Object Libraryを追加 Dim accApp As Access.Application 'Access の新しいインスタンスを作成 accApp = CreateObject("Access.Application") 'データベースを Access ウィンドウで開く accApp.OpenCurrentDatabase("c:\sample1.mdb") '印刷 accApp.DoCmd.OpenReport("R_sanple") '現在開いているデータベースを閉じる accApp.CloseCurrentDatabase() 'インスタンス破棄 accApp = Nothing
- ベストアンサー
- Visual Basic
お礼
解決しました！ ありがとうございました。