AccessのデータをExcelテンプレートに出力・自動印刷したい

締切済

質問者：momo-chan
質問日時：2002/01/18 17:42
回答数：1件

Access2000を使っています。
クエリで必要なデータだけをフォーム上に抽出した後、フォーム上のコマンドボタンをクリックすることで、Excel2000で作成したテンプレートに出力・自動印刷したいのですがこんなことできますか？できるのでしたら方法を教えてください。マクロでもいいのですが、できればVBAのコードで教えていただければ助かります。
よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

このQ&Aに関連する最新のQ&A

「エクセルテンプレート」に関するQ&A：エクセルのテンプレートのカレンダーで

さらに表示

「アクセステンプレート」に関するQ&A：アクセスの一度作成したデータをテンプレート的に使えないでしょうか

「Excel テンプレート」に関するQ&A： Excelテンプレート設定

「Access テンプレート」に関するQ&A： ACCESS VBAからWordのテンプレートに

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： bin-chan
回答日時：2002/01/18 20:32

Excel97での変換の部分のVBAコードです。

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, _
"(ここにテーブルorクエリ名)", _
App.Path & "\(ここに出力ファイル名を記述).xls"

- 1
- 件

通報する

このQ&Aに関連する人気のQ&A

「エクセルテンプレート」に関するQ&A： ExcelかWordで旅行の日程表を作りたい

さらに表示

「Access テンプレート」に関するQ&A： Win7のリモートデスクトップでお手上げです！

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

質問する（無料）

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

専門家回答数ランキング

専門家

※過去一週間分の回答数ランキングです。

質問する（無料）

他の専門家の回答をチェック

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

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

QACCESSでメインフォーム上のオプショングループに設定したマクロでサブフォームに抽出結果をだしたい

メインフォームとサブフォームがあり、
メインフォーム上でオプショングループ（年月日の月のみ）
を作成しました。

例えばオプショングループの「１月」ボタンを
クリックすると、サブフォームの１月のデータが
すべて抽出されるようにしたいと思うのです。

普通のフォームにおけるマクロでは、
条件に[Forms]![メインフォーム名]![指定月（オプショングループの名前です）]=1
where条件式に[月]=1
とすると、きちんと実行されるのですが、
サブフォームにおいては、これではできないのです。

どこをどうすればよいのかご回答のほどよろしくお願いいたします。

Aベストアンサー

> サブフォーム名、つまり、そのサブフォームのプロパティにある名前でよいということでしょうか？

はい。そうです。

> [Forms]![メインフォーム名]![サブフォーム名]!.[Form]![月]

! が多いですね (^^ゞ

サブフォームのコントロールを取得する
http://www.accessclub.jp/bibouroku/ziten.cgi?action=view&data=19
こちらに詳しく書いてありますので参考にしてください。

参考URL：http://www.accessclub.jp/bibouroku/ziten.cgi?action=view&data=19

他の回答も見る

QAccess2000　単票フォーム上のボタンを押すと、同じIDを持つフォームが開くよういしたい

Accessの初心者です。
本当に超がつく初心者ですので、解説もしてくださるととても嬉しいです。
宜しくお願いします。

請求書番号連番を取得するフォーム（テーブルも）があります。
請求書番号は特殊な為、現時点ではじか打ちで作成しています。
それとは別に、顧客ごとに請求データを入力するフォーム（テーブルも）があります。
その二つは、請求書番号でひもづけています。

<請求書番号連番取得フォーム/帳票>
・請求書番号
・請求日
・顧客ID

<請求データの入力フォーム_A社/単票>...続きを読む

Aベストアンサー

＃２です。

意味合いが違ってましたね。

「顧客ID」に対応した「フォーム名」情報がテーブルで作られているとします。
もしくは、「顧客ID」と A社、B社、C社などが紐付けされ、その社ごとに「フォーム名」情報が得られるとすると

ボタンがクリックされた時の処理例）

Private Sub ボタン_Click()
　　Dim sForm As String
　　Dim sWhere As String
　　Dim sArg As String

　　sWhere = "請求書番号='" & Me.請求書番号 & "'"
　　sArg = "'" & Me.請求書番号 & "'"
　　sForm = DLookup("フォーム名","テーブル名/クエリ名","顧客ID='" & Me.顧客ID & "'")
　　DoCmd.OpenForm sForm, , , sWhere, , , sArg
End Sub

呼ばれた各「請求データの入力フォーム」での処理

Private Sub Form_Open(Cancel As Integer)
　　If (Me.Recordset.RecordCount = 0) Then
　　　　Me.請求書番号.DefaultValue = Me.OpenArgs
　　　　DoCmd.GoToRecord , , acNewRec
'☆　　　　Me.ラベル１.Caption = "新規"
'☆　　Else
'☆　　　　Me.ラベル１.Caption = "既存"
　　End If
End Sub

※「顧客ID」に対応した「フォーム名」情報ではなく、「会社名」なり「会社ID」が得られるのであれば以下のような感じかと
（会社IDが得られるとした場合）

Private Sub ボタン_Click()
　　Dim sForm As String
　　Dim sWhere As String
　　Dim sArg As String

　　sWhere = "請求書番号='" & Me.請求書番号 & "'"
　　sArg = "'" & Me.請求書番号 & "'"
　　Select Case DLookup("会社ID","テーブル名","顧客ID='" & Me.顧客ID & "'")
　　　　Case 1
　　　　　　　　sForm = "請求データの入力フォームA"
　　　　Case 2
　　　　　　　　sForm = "請求データの入力フォームB"
　　　　Case 3
　　　　　　　　sForm = "請求データの入力フォームC"
　　　　Case Else
　　　　　　　　sForm = "請求データの入力フォームETC"
　　End Select
　　DoCmd.OpenForm sForm, , , sWhere, , , sArg
End Sub

他の回答も見る

QAccessで、マクロを使ってフォームやクエリを開くとき、最末尾の情報を表示する

いつも大変お世話になっております。
Accessのマクロ機能で、フォームやクエリを開く動作を指定して、開いた時に最末尾の情報を表示するようにしたいのですが、どのように指定すればよいですか？
情報は常に増えますが、その時の最末尾の情報が表示されればＯＫです。

大至急の回答をお願いします。m(＿＿)m

Aベストアンサー

マクロで、「レコードの移動」にして、
「レコード」を「最後のレコード」にしてみてください。

他の回答も見る

Qクエリの抽出結果がフォームに表示できない

ACCESS2010を使用しています。

フォーム画面で、選択クエリのデータをコンボボックスで選択し結果を表示させ、その後エクセル形式でエクスポートしたいと思っています。
選択結果をエクセル形式でエクスポートはうまくいくのですが、フォーム画面には表示がされません。

Q_名簿では　授業名のフィールドに抽出条件として　[Forms]![F_名簿表示画面]![combo1]　としています。

また、コンボボックスで選択した後にフォームに表示させるコマンドボタンは下記のように記述しています。
この記述でフォームに表示...続きを読む

Aベストアンサー

クエリに抽出条件があるなら
フィルタは必要ありませんね。

Private Sub cmd名簿_Click()
　　Me.Requery
End Sub

これだけです。

他の回答も見る

Qaccess2000　クエリの抽出条件欄で・・・

access2000で質問です。
フォームからいくつかの条件（10件くらい）を入力させて、すべてに合致した
レコードを抽出します。ただし何も入力しない項目は無視し、全く条件を指定
しない場合は全抽出となります。
例えば、クエリの抽出条件のところでｉｆ文を使って、ｎｕｌｌの場合は抽出
条件なし、ｎｕｌｌ以外の場合は入力したものを抽出、みたいな事ができない
ものでしょうか？
よいやり方があれば教えてください。よろしくお願いします。

Aベストアンサー

ボタン等のイベントプロシジャに、こんなんどうでしょう。
stLinkCriteria = ""
If not IsNull(Me![検索１]) Then
　if stLinkCriteria = "" Then
else
stLinkCriteria = stLinkCriteria & " and "
end if
stLinkCriteria = stLinkCriteria & " フィールド１ = '" & 検索１ & "' "
end if
If not IsNull(Me![検索２]) Then
　if stLinkCriteria = "" THen
else
stLinkCriteria = stLinkCriteria & " and "
end if
stLinkCriteria = stLinkCriteria & " フィールド２ = ...続きを読む