ACCESSは2000です。
どうかよろしくお願いします。
ソースを書いてくださってもいいですし、ホームページでもいいですので・・・

A 回答 (2件)

VBの参照設定で


Microsoft Access 9.0 Object Library
のチェックをONにしてください。


sghさんの言われているとおり、自Accessアプリ内の制御は基本的にDoCmdを使用します。

VB6や外部のAccessなど(Office製品のVBA全て)から使用するのであれば、頭に対象となるAccess.Applicationの情報を付加するだけで、対象のAccessオブジェクトのDoCmd命令を実行することができます。


Sub subAccReportPrint()
  Dim accApp As Access.Application
  
  'Access の新しいインスタンスを作成
  Set accApp = CreateObject("Access.Application")
  
  'データベースを Access ウィンドウで開く
  accApp.OpenCurrentDatabase "c:\test.mdb"
  
  '印刷
  accApp.DoCmd.OpenReport "レポート名", acViewNormal
  
  '現在開いているデータベースを閉じる
  accApp.CloseCurrentDatabase
  
  'インスタンス破棄
  Set accApp = Nothing
End Sub

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=37226
    • good
    • 0

VB6からACCESSですか?それともVBA..



VBAからなら
DoCmd.OpenReport "レポート名", acViewNormal
となります。
外していたらごめんなさい。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QAUTOCADをPDF変換して印刷したいのですが

AUTOCADをPDFに変換して印刷たいのですが
PDFでPC上ちゃんと見える線が印刷するとその線だけ消えています。
ワイプアウトで一部隠れてるのが原因かと思ったのですが
ちゃんと出てる図面もあります。

PDFをどうにかして印刷できないでしょうか?

AUTOCAD2010でDWG to PDFでPDF変換してます。
Adobe® Acrobat® 8 Standard を使ってます。

よろしくおねがいします。

Aベストアンサー

AutoCAD2010より低いバージョンでの話になるので参考までに。

新規作成した時に最初にできる「0」というレイヤーは印刷のときに不具合をおこす場合があるようです。
(印刷時に印刷されない等)

一度「0」のレイヤー内のオブジェクトを新たに作ったレイヤーに移して見てください!

また、Adobe Acrobatがインストールされている場合は
DWG to PDFではなく、「印刷→Adobe PDF→ファイルへ出力にチェック」を試してください!こちらの方が線がきれいにでると思います。

以上。
健闘を祈ります!!

QAccess2007でAccess2000のモジュールを動かす

いつもお世話になります。
Access2007でAccess2000のモジュールを動かすことができなくて困っています。
新しい職場のPCが全てAccess2007に変わってしまいました。
今までは、Access2000でした。そのとき作成したフォームモジュールがAccess2007で全く動作しなくなり困っています。
Access2007でAccess2000ファイルはそのまま読み込み、フォーム自体は表示されます。しかし、VBで作成したモジュールが全く動作しません。
自宅では、Access2000のままですので、Access2000をAccess2007のファイルに変換することなくAccess2000のフォームモジュールを動かす方法はあるのでしょうか。
よろしくお願いします。

Aベストアンサー

>そのとき作成したフォームモジュールがAccess2007で全く動作しなくなり困っています
どういうメッセージが表示されたのか、何も表示されずに動かないのかわかりませんが、最近Access2000->access2007を行いました。
私の場合は次の2点の修正で動きました。

まず、Ofiice2007系でのセキュリティの強化によって、信頼できる場所か信頼できる発行元の設定が必要です。
http://our-plaza.sakura.ne.jp/ac2007/ac2007.html

2007以前で使えたFileSearch関数が使えなくなった。
http://support.microsoft.com/kb/935402/ja

Qillustrator10、印刷可能範囲だけPDFに変換できますか?

よろしくお願いします。

友達にweb上でチラシを見てもらおうとしてます。

pdfに変換してweb上にアップして、友達の自宅PCにて確認してもらおうとしてますが、
PDF変換すると、画像がある範囲すべてがPDF変換されてしまいます。

プリンタで印刷できる範囲のみだけにしたいのですが、イラレで表示されている印刷可能範囲の点線の内側のみをPDF変換することは可能でしょうか?

Aベストアンサー

色々やり方はあると思いますが、私なら・・・。

1)まず、元データを「複製を保存」か「別名で保存」で保存しておきます。

2)で、すべてのレイヤーを1つにまとめて、印刷範囲の白ベタを作って【最前面】に配置します。

3)そのまま、すべてを選択して「メニューバー→オブジェクト→クリッピングマスク」を実行します。

4)これで印刷範囲のデータ出来上がり。

5)「別名で保存」か「データの書き出し」でPDFデータを作って終わり。

QAccess2000にExcel2000のデータを読み込みたい。

Access上のVBAでExcelよりデータを読み込もうと思います。
最終行を求めるに xlUp を使用しようと思いましたが、

#実行時エラー '1004'
#Rangeクラスの Select メソッドが失敗しました。

となります。

どこをがおかしいでしょうか?


  Dim wb As Excel.Workbook
  Dim ws As Excel.Worksheet

  Set wb = GetObject(C:\abc.xls")  '---オープン確認
  Set ws = wb.Worksheets("Sheet1")

  ws.Range("A65536").Select   '----実行時エラー
  ws.Selection.End(xlUp).Select  
  
  


また、abc.xlsにマクロが含まれているためにマクロを有効にするかどうかの確認メッセージがでます。これを有効、無効どちらでもいいですが、メッセージ無しに開くにはどうすればいいでしょうか?

Aベストアンサー

 Selectメソッドは選択しようとしているセルを含むワークシートがアクティブではないと失敗するため、ほかのメソッドの実行に成功するような場合でもSelectメソッドはエラーになる可能性があります。実際、GetObject関数ではワークブックを非表示状態で開いているため、Selectメソッドが失敗しているのです。このため、Selectメソッドを実行する前に
wb.Application.Windows("abc.xls").Visible = True
としてワークブックを再表示しておく必要があります。

>メッセージ無しに開くにはどうすればいいでしょうか?
 確認メッセージはGetObject関数を実行すると直ちに表示されるので、ActiveXオブジェクトを開いた後に確認メッセージを抑止するための処理を記述する余地はありません。また、GetObject関数はActiveXオブジェクトを開くための汎用的な関数であり、個別のActiveXオブジェクト用のオプションをつけることはできないため、ActiveXオブジェクトを開くときに確認メッセージを抑止する手段もありません。ですから、GetObject関数を使う限りは確認メッセージ無しにExcelワークブックを開くことは不可能だと思います。


 というわけで、素直にDoCmd.TransferSpreadsheetメソッドでテーブルにデータを読み込むのが無難です。
  DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "テーブル名", "C:\abc.xls", False
(末尾のBooleanは、先頭をフィールド名として読み込むのであればTrueにして下さい)

 Selectメソッドは選択しようとしているセルを含むワークシートがアクティブではないと失敗するため、ほかのメソッドの実行に成功するような場合でもSelectメソッドはエラーになる可能性があります。実際、GetObject関数ではワークブックを非表示状態で開いているため、Selectメソッドが失敗しているのです。このため、Selectメソッドを実行する前に
wb.Application.Windows("abc.xls").Visible = True
としてワークブックを再表示しておく必要があります。

>メッセージ無しに開くにはどうすればいいでしょ...続きを読む

Qコンビニword印刷、PDF変換でok

コンビニでusbに保存したwordをPDFにへんかんすればどこのコンビニからでも印刷できますでしょうか?

パソコンは今ネット環境がありません
なのでusbを使い、印刷するしか方法が無く印刷したいものが3枚ほどなので漫画喫茶は高くなるし困っています。
詳しい方教えてください
ちなみにPDF変換をしないとwordはどこのコンビニも印刷不可ということでしょうか?

Aベストアンサー

PDFであれば、多くのコンビニで備えているマルチコピー機を使って印刷できます。
Windowsのエクスプローラーのようにフォルダーが表示されるので、
フォルダー内のファイル(PDF)選択も簡単です。
wordの印刷機能はありません。

QVBのソース上からAccessのmdbファイルのクエリを呼び出す

Accessのmdbファイルにクエリを登録したのですが、これをVB側から呼び出すやり方がわかりません。どなたか教えてもらえないでしょうか?
あと、引数がついた場合もお教え願いないでしょうか。

Aベストアンサー

参照設定でMicrosoft DAO3.5 ObjectLibraryを設定して

Private Sub cmd1_Click()

Dim db As DAO.Database
Dim qd As DAO.QueryDef
Dim rs As DAO.Recordset

Set db = DBEngine.OpenDatabase("フルパス\ファイル名.mdb") 'DBに接続する。

Set qd = db.QueryDefs("クエリ名") 'クエリーを呼び出す
  qd.Parameters("パラメタ名").Value = 値 'パラメータ名を指定して値を設定

Set rs = qd.OpenRecordset 'クエリの結果のレコードセットを得る

End Sub

これで良いと思いますが。

Qイラストレータ→PDF変換で、必要な部分だけ印刷したい

イラストレータCSで作成したものを、
イラストレータがインストールされてないパソコンから印刷したいため、
PDFファイルに変換して印刷しようと思っています。
しかし設定用紙サイズの枠外まで絵を描いてしまったので
PDFファイルにするとその印刷部分外まで一緒に保存されてしまい、
希望の用紙サイズとは全く違うサイズになっていまいます。

トンボなどは設定できるようですが、画像サイズの設定をして
そこだけPDF保存、ということは出来るのでしょうか?
若しくは印刷段階で「真ん中のここだけ印刷」みたいなことは出来るのでしょうか?
スライスを使用したりして多少の悪あがきはしてみましたが…
これが限界のようです。
何か良い知恵があれば是非是非ご教授のほどお願いいたします。

また、PDFファイルに変換すると絵全体が白っぽくなるのですが…
これの回避の仕方などはあるのでしょうか?
過去の質問を見たのですがMacでの質問しか見つけられなかったので、
これも一緒に質問させていただきます。

因みにパソコンはWin2000(イラレ搭載)とWinXP(印刷用)、
使用してるのはAcrobat Reader 5.0になります。
他足りない情報があればご指摘くださればすぐに補足させて頂きます。
どうぞよろしくお願いいたします。

イラストレータCSで作成したものを、
イラストレータがインストールされてないパソコンから印刷したいため、
PDFファイルに変換して印刷しようと思っています。
しかし設定用紙サイズの枠外まで絵を描いてしまったので
PDFファイルにするとその印刷部分外まで一緒に保存されてしまい、
希望の用紙サイズとは全く違うサイズになっていまいます。

トンボなどは設定できるようですが、画像サイズの設定をして
そこだけPDF保存、ということは出来るのでしょうか?
若しくは印刷段階で「真ん中のここだけ印刷...続きを読む

Aベストアンサー

「書類サイズ」が大きいのではないでしょうか。それを用紙サイズと同じにしてからpdfで保存すればその範囲のものしかできないと思います。
当方CSは使っていませんが同様では?違っていたらゴメンナサイ。

QページソースからのURL抽出

VBでページソースにあるURLを全て抽出したいと考えています。
どのようにすれば良いか教えてください。
サンプルコードがあると助かります。
具体的には、以下の通り。
(1)ウェブページのソースを読み込む
(2)読み込んだソースを1行ずつ探索し<a href="****">の****の部分を全て読み込んでいく
(3)ExcelのURL欄に順に入力していく
(4)URL一覧の出来上がり
よろしくお願いします。

Aベストアンサー

こんにちは。

VB or VB(A) ? 開発環境が不明ですよ。

質問の内容ならたいしてソースは変わらないですけど、ちゃんと
明記した方が良いですよ。Excel に出力するなら VBA でって前提
で回答します。

> (1)ウェブページのソースを読み込む

とありますが、リンク抽出が目的であるならソースを読み込んで
テキスト解析するより、DOM を利用した方が簡単です。

DOM を取得する方法はいくつかありますけど、一番簡単な IE を
使った例。

Sub sample()

  Dim ie  As Object ' InternetExplorer
  Dim dom  As Object ' HTMLDocument
  Dim anc  As Object ' HTMLAnchorElement
  Dim sAddr As String
  
  Const IE_READYSTATE_COMPLETE As Long = 4&
  
  Set ie = CreateObject("InternetExplorer.Application")
  ie.Visible = True
  
  ie.navigate "ここに目的のURL"
  While ie.Busy Or ie.readyState <> IE_READYSTATE_COMPLETE
    DoEvents
  Wend
  
  Set dom = ie.document
  For Each anc In dom.links ' // or dom.getElementsByTagName("a")
    sAddr = anc.href
    ' // javascript:void(0) 等の除去
    If InStr(LCase$(sAddr), "javascript") = 0 Then
      ' // 出力(仮にイミディエイトウインドウ)
      Debug.Print sAddr
    End If
  Next
  
  Set dom = Nothing
  Set ie = Nothing

End Sub

要は、For Each ループでアンカー要素を回せばよいわけで、DOM の取得が
できるのであれば、その方法は何でもよいです。

丸投げというわけではないのでしょうが、結果としてそのようになって
しまうのは本意ではありませんので、端折った回答にしておきます。
Excel のセルへ書き出す方法は、ご自分で考えてください。

最後に、IE 操作と DOM オブジェクトについて参考となる定番ページを
紹介しておきます。

[三流君VBAでIE操作]
http://www.ken3.org/cgi-bin/group/vba_ie.asp

こんにちは。

VB or VB(A) ? 開発環境が不明ですよ。

質問の内容ならたいしてソースは変わらないですけど、ちゃんと
明記した方が良いですよ。Excel に出力するなら VBA でって前提
で回答します。

> (1)ウェブページのソースを読み込む

とありますが、リンク抽出が目的であるならソースを読み込んで
テキスト解析するより、DOM を利用した方が簡単です。

DOM を取得する方法はいくつかありますけど、一番簡単な IE を
使った例。

Sub sample()

  Dim ie  As Object ' InternetExpl...続きを読む

Qエクセルファイルを印刷のところからPDFに変換

こんにちは。
会社で私が使ってるパソコンだけが、ファイルメニューの印刷を選んで、出てきた印刷ウインドウの中にプリンターの名前と一緒にAdobe PDF とあるので、それを選択すると簡単にPDFファイルに変換出来ます。
これは他のパソコンには入っていないようです。他の人が同じようにしてくれと言ってきますが、私もどうしてこうなっているのか記憶にありません。何かのプラグインが入っているのでしょうか?

ウインドウズXP で オフィス2000です。

よろしくお願いします。

Aベストアンサー

Adobe Acrobat が導入されていると考えるのが普通でしょう。
http://www.kit-systems.co.jp/webkcore/maketemplate9/maketemplate9-2.htm

http://dopub.jp/aboutpdf.php
でそう表示されています。

ちなみに「CubePDF」ではAdobe PDFとは表示されず、CubePDFと表示されます。
http://www.atmarkit.co.jp/fwin2k/win2ktips/1331cubepdf/cubepdf.html

QIEの操作で新ページのソース取得方法は?

VBによりIEでページを表示させ、そのページから新しいページに移動させたとき、その新ページのHTMLのDocument取得方法をご教示頂きたくお願いします。

Aベストアンサー

すみません。

HTMLタグ付きなら
WebBrowser1.Document.body.innerHTML
だったと思います。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング