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

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

A 回答 (1件)

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



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

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

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

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

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

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

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

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

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

普通のフォームにおけるマクロでは、
条件に[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社/単票> ※これがB社、C社と複数存在します。
・顧客ID
・請求書番号
・商品CD


<請求書番号連番取得フォーム/帳票>上にボタンをつくり、そのボタンを押すと、
同じ顧客IDを持つ<請求データの入力フォーム/単票>が開けたらな・・・と思っているのですが、
わかりますでしょうか・・・・。

どうか、宜しくお願い致します。



<請求書番号連番取得フォーム/帳票>
_________________________________________________________________
請求書番号|請求日 |顧客ID| 
_________________________________________________________________
09BB87ZZ1|2009/04/01|0001 |■(ボタン)
--------------------------------------------
09BS87AA2|2009/04/10|0003 |■(ボタン)
--------------------------------------------

↑この1行目の■(ボタン)を押すと、顧客ID「0001」の請求書番号「09BB87ZZ1」の単票フォームが開き、
(請求書番号欄に「09BB87ZZ1」が入っている。)
2行目の■(ボタン)を押すと、顧客ID「0003」のフォームを開く・・・というような動きです。


説明が下手で申しわけありません。
お願いします。

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



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



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

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

Aベストアンサー

#2です。

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

「顧客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.ラベル1.Caption = "新規"
'☆  Else
'☆    Me.ラベル1.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

#2です。

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

「顧客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(...続きを読む

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

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

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

Aベストアンサー

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

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

ACCESS2010を使用しています。

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



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

また、コンボボックスで選択した後にフォームに表示させるコマンドボタンは下記のように記述しています。
この記述でフォームに表示がされなくて困っています。


Private Sub cmd名簿_Click()

'コンボボックス値指定→検索
Dim stList As String
Dim stFil As String
'[授業名]を指定
If combo1 <> "" Then
stFil = "[授業名]='" & combo1 & "'"
End If

Me.Filter = stFil
Me.FilterOn = True

End Sub

どうすればフォームに表示がされるでしょうか。
ご指導の程お願いいたします。

ACCESS2010を使用しています。

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



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

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

Aベストアンサー

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

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

これだけです。

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

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

Aベストアンサー

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

DoCmd.ApplyFilter , stLinkCriteria

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


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

このカテゴリの人気Q&Aランキング

おすすめ情報