Microsoft Access 掲示板
見積書～3つのクエリのIDでフィルターを掛けて、エクセルのブックの3シートへそれぞれエクスポートをする / 15
最新トピック
8
25 日前
Hatena様にご質問 25 日前
1
2 ヶ月前
排他制御 2 ヶ月前
6
5 ヶ月前
ﾓｼﾞｭｰﾙでｶﾚﾝﾄﾌｫｰﾑのｺﾝﾄﾛｰﾙを使うには 5 ヶ月前
7
6 ヶ月前
日付のテキストボックスからフォームが開けません 6 ヶ月前
9
6 ヶ月前
レポートにおける数値の間隔を広げる方法 6 ヶ月前
12
6 ヶ月前
リストボックスから複数選択しそれをテーブルに格納したい 6 ヶ月前
タグリスト
Markdown テーブル生成
Accessのテーブルやクエリのデータを貼り付ける場合は下記で、Markdown書式のテーブルに変換して貼り付けてください。
お世話になりました。取り急ぎ以下のコードでパラメータクエリを使用することなく、パラメータのポップアップが出てこなくて、フィルターの掛かったデータをエクセルのシート1/2/3にエクスポートすることが出来ました。大変に有難う御座いました。
Dim strQryName As String
Dim strSQL As String
Dim FileName As String
strQryName = "Q_明細1" '←お好みの名前にする
strSQL = "SELECT * FROM Q_見積明細1_P WHERE T_見積物件情報.見積りNo=" & Forms!F_見積_1!見積りNo
On Error Resume Next
CurrentDb.CreateQueryDef strQryName, strSQL
'↑でエラーなら存在済みとみなし↓SQL変更処理を行う
If Err <> 0 Then
CurrentDb.QueryDefs(strQryName).SQL = strSQL
On Error GoTo 0
End If
CurrentDb.QueryDefs.Refresh
RefreshDatabaseWindow
FileName = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "\")) & "見積書.xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strQryName, FileName, True, "明細1"
シート2/3は、シート1とほぼ同様のコードです。