④レポート印刷ボタン コマンド100
詳しくは Access2000 プロが作った！お手本データベース４１選 著者 葛西 秋雄
発行所 株式会社技術評論社
工事仕様書ボタンAccessからExcelに転記する参考
精算表・決算書確定申告用AccessからExcelに高速自動化ボタン
➄購買商品明細 サブフォーム
定形入力 "B"000000\-00;0;* 例230101-01 2023/01/01
費用 B ******-** 収益 A******-**
Wクリック時 イベントプロシージャ
Private Sub 購買要求_ID_DblClick(Cancel As Integer)
DoCmd.OpenForm "見積書", , , "受注コード = " & Me!受注コード
End Sub
Form見積書 売上 収益用
売上合計税込みの金額クリック テキストボックス クリック時 マクロ実行設定
購買要求ID A******-** 参照 "A"の時
勘定科目 消費税の金額がコピーできるマクロ名 マクロ8 10消費税売上用のコピー実行
マクロの条件 If [参照]="A"=True Then
各値の代入設定 マクロ実行 各テキストにコピーします
Form購買要求 仕入 費用用
合計税込みの金額クリック テキストボックス クリック時 マクロ実行設定
購買要求ID B******-** 参照 "B"の時
勘定科目 消費税の金額がコピーできるマクロ名 マクロ8 10消費税仕入れ用のコピー実行
マクロの条件 If [参照]="B"=True Then
各値の代入設定 マクロ実行 各テキストにコピーします
③複写ボタン 発注書・見積書 似たような内容を複写 SQLリンクテーブルにも対応
支出 B 決定金額1 クエリ クロス集計レポート合計の為費用マイナス
Access発注書・見積書完全版（無料） 64bit 拡張子accde
勘定科目練習用 excel 申告用 確定申告用
2025/06/08更新
2025/07/02更新 SQLリンク複写できます(改善）
2025/07/08更新Excel申告用決算書貼り付けの問題文字に半角スペースで調整してください
2025/08/15印刷ブレビュー集計に年度１月～１２月と対象株式年度４月～翌年３月追加
2025/09/27Excel転記の時 残高勘定科目期間限定から累計に変更 納入終了日betweenからis not null
2025/10/05 sql server FOREIGN KEY制約 新しいクエリ作成 更新 削除方法更新
2025/10/19Excel試算表整理しました チェックボタンを有無で通常と期間の絞り込み現金など累計から
期間の入力分だけで合計一致確認にしました。Access勘定科目入力後その都度確認用です。
個人事業主の期間でつくっています利益剰余金は元入金に振り替えています。
2025/10/29 前払費用の問題解決しまたテストよろしくお願いします
2025/11/12 Access勘定科目入力方法説明例題Excel申告用のシート名[Access入力]に書いています
再振替処理に挑戦しています決算書両方に出ます計算して入力ください自動化？
2025/11/24精算表合計一致しませでした どうも経過勘定の問題かもしれませんと短期貸付金年度またぐ問題
いろいろありました短期貸付金だけは解決できていない受領する前に入力して合計一致にする
2025/12/06短期借入金短期貸付金累計にして通常モード相殺０円 KLM列に開始日１年前からの表示入力確認です
今度は固定資産の売却の時の事業主貸と事業主借がExcelの試算表で金額が消える問題があります
とりあえず事業主借は2行にして出力します
2025/12/12 2仕入と期首 期末 棚卸高Excel精算表G列70行で計算されず仕入が上書きになっています 手動計算有
修正しましたが確認してください ベクターは確認してから差し替えします
2025/12/21 発注書見積書・・・12行固定としてExcelの様な請求書
作り方はユニオンクエリcopilotに聞いて作っています
2026/02/09 配列にしてExcelに飛ばす練習自動ボタンクリック45秒から5秒にしましたが間違いがあるかもわからないが
更新します確認後ベクターに更新します
一つ一つのコードをCOPILOTに投げて繋げました COPILOT即VBAコードを書いてくれますそれをコーピーするだけ
エラーコードを投げるとコードの間違い探す1秒で書き換えてくれます 使い道次第でいい先生チョット頑固の所
と感じたが私のレベルでは一生かかっても出来なかっただろうが感想ですコードは理解せずブロックとしてみている為
説明は全然できません sql server テーブルkarikanjoukamoku karigyoubangou
kasikanjoukamoku
kasigyoubangou 数字追加のお願い Excelの勘定科目の行番号を決めて配列でBC列 GHIJ列BC列のコピーです
2026/02/19 問題点 短期借入金・短期貸付金 チェック無の時今は相殺で0円を累計として考えます合計一致確認できれば改善
2026/02/27 事業主借と仮払金精算表に２行で出力していました １行に改善更新します。不具合確認中
2026/03/03 Excel精算表で現金・普通預金をマイナスの時貸方に表示しました
2026/03/07 支出の部購買明細 写真に勘定科目入力ヒントを入れました写真フォルダーリンクを合わせてください
"C:\見積書\写真" 勘定科目コンボボックスで選択してください
2026/03/24 勘定科目入力支援更新しました
支出の部現金を右手で支払う 左借方仕入 右貸方現金 資産減少
収入の部現金を左手で受取る 左借方現金 資産増 右貸方売上
経過勘定入力支援Copilotに聞くのも1つの方法と思います
ダウンロードファルダーmitumori zip 5MB右クリック
プロバティ 下の許可するに ☑チェック 自己責任でお願いします
ダウンロードフォルダーmitumori .zipを開く解凍後 9.5MB
リンク先にしています 設定見積書フォルダー
"C:\見積書\accessseisan\申告用.xlsx"
"C:\見積書\機械保全ﾃﾞｰﾀｰ.xlsx"
"C:\見積書\工事仕様書.xlsx"
リンクの内容
Excel ユニオンクエリ Module1～10botton コード Excel精算表と 申告用
使い方は説明できますが、Accessの突然のエラーはわかりません
サポートはできませんが、エラー内容を教えていただければ 改善していきます
購買要求クエリにフィールドに参照を追加
式 参照: Left([購買要求 ＩＤ],1) 左から１文字 "B" か"A"******-**
次に[参照]を使ってマクロをつくります
マクロ8 10消費税売上用のコピー
マクロ8 10消費税仕入れ用のコピー
form名 起動時ボタンにボタンをつくり
ボタン名 コマンド142
コマンド142のプロバティ
クリック時 イベントプロシージャ
Private Sub コマンド142_Click()
ここに色々の条件を入れて
Call seisan100(Me) 'Module9のSub seisan100(Form_起動時ボタン)を呼び出す
End Sub
標準モジュール名 Module9 コード作成
Sub seisan100(Form_起動時ボタン)
'エクセルオブジェクトを作成
Dim objExcel As Object: Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
objExcel.DisplayAlerts = False
objExcel.Workbooks.Open "C:\見積書\accessseisan\申告用3.xlsx"
Dim dtFrom As String
Dim dtTo As String
Dim isChecked As Boolean
Dim cn As Object: Set cn = CurrentProject.Connection
Dim rs As New ADODB.Recordset
Dim objSheet As Worksheet: Set objSheet = objExcel.Workbooks(1).Worksheets("精算")
Dim data As Variant
Dim i As Long, r As Long
Dim kamoku As String
Dim kingaku As Currency
Dim kingakuH As Currency
Dim kingakuS As Currency
dtFrom = Format(Forms!起動時ボタン!text115, "yyyy/mm/dd")
dtTo = Format(Forms!起動時ボタン!text117, "yyyy/mm/dd")
isChecked = Nz(Forms!起動時ボタン!チェック167, False)
Dim sql1 As String, sql2 As String, sqlPL As String, mySQL As String
'===========================
' ① 費用・収益（B列・C列）
'===========================
sqlPL = _
"SELECT k.aitekanjoukamoku AS 科目名, " & _
" Sum(k.hiyou) AS 費用合計, " & _
" Sum(k.syuueki) AS 収益合計, " & _
" m.karigyoubangou AS 行番号 " & _
"FROM koubai AS k " & _
"LEFT JOIN (" & _
" SELECT syoubunrui, karigyoubangou FROM karikanjoukamoku " & _
" UNION " & _
" SELECT syoubunrui, kasigyoubangou AS karigyoubangou FROM kasikanjoukamoku" & _
") AS m ON k.aitekanjoukamoku = m.syoubunrui " & _
"WHERE k.nounyuusyuuryoubi BETWEEN #" & dtFrom & "# AND #" & dtTo & "# " & _
"GROUP BY k.aitekanjoukamoku, m.karigyoubangou"
rs.Open sqlPL, cn
If Not rs.EOF Then
data = rs.GetRows
For i = 0 To UBound(data, 2)
kamoku = data(0, i)
kingakuH = Nz(data(1, i), 0) '費用
kingakuS = Nz(data(2, i), 0) '収益
r = Nz(data(3, i), 0)
If r > 0 Then
'★ 除外対象
If kamoku = "元入金" Or _
kamoku = "繰越利益剰余金" Or _
kamoku = "期末商品棚卸高" Or _
kamoku = "商品・製品" Or _
kamoku = "短期貸付金" Or _
kamoku = "短期借入金" Or _
kamoku = "長期借入金" Or _
kamoku = "利益剰余金" Then
GoTo NextI
End If
objSheet.Cells(r, 1).Value = kamoku
If kingakuH <> 0 Then objSheet.Cells(r, 2).Value = kingakuH 'B列
If kingakuS <> 0 Then objSheet.Cells(r, 3).Value = kingakuS 'C列
End If
NextI:
Next i
End If
rs.Close
'===========================
' ② 現預金（sql1）
'===========================
'①～⑰コードあります省略しますAccessからExcel精算表
'・・・・・・・・・・・・・・・
設定 費用＝B 条件 [参照]="B"
form購買要求,決定金額1,更新後処理,イベントプロシージャ
Private Sub 決定金額1_AfterUpdate()
If [参照]="B"=True Then
Me!決定金額1 = Abs(Me!決定金額1) * -1
End If
End Sub
確定申告 個人事業主 データーベース 簿記を習う方に参考
Accessフォームフロントエンドsql sever
業務効率を考えるとaccessだけではだめだと思い
ローマ字編 英語ではありません Accessにsql リンクテーブル Accessテストしています
ダウンロード後 ご自分でリンクテーブル作ってください
既定値 テーブルからフォームに変更しました
レコードの削除 VBA連鎖削除追加 2025/05/27
SQL Server Manegement Studio ODBC Access2021 64bit Excel
フォーム名 koubai kanjouhimokuID 入力エラー 訂正 2025/06/08
マクロ値の代入 アイテム テキスト名 式 テキスト名 ok
SQL Serverリンクすると式DLookUp [条件]Like[ ]&'*'" × 使用不可 になりました
私にはわからない問題使って経験訂正しています
Aボタン 商品マスター 開く
Private Sub コマンド33_Click()
DoCmd.OpenForm "商品マスター", , , "NNA = " & Me!コンボ24
End Sub
B マクロ2 商品を選択した時更新後処理で 単価の値を商品単価 仕入単価
値の代入 コピーしています
その都度 商品単価 仕入単価 値段を変えてください
C 受取日 納入終了日 が入力された時点で数量が変わり在庫数です
仕入フォームの下にあり隠れています
会社登録IDは０変更なし既定値にしています
テーブル名kaisyatouroku でも変更できます
レポート用 発注書・見積書検収受領書納品書請求書
テーブルのレコードコピー貼り付け手動でもいいのですが作ってみました
参考Copilot に聞いて作成しています
フォームの購買要求 購買要求IDをテーブルのkoubaiyoukyuu IDを選択してコピーしています
貼り付ける時購買要求IDをA******-50にしています。後でかえてください
テーブルのフィールド名ですサブフォームもテーブルのフィールド名にしています
Private Sub 明細コピー2_Click()
On Error GoTo Err_明細コピー2_Click '必要に応じて記入
Dim db As DAO.Database
Dim rsSource As DAO.Recordset
Dim rsTarget As DAO.Recordset
Dim parentID As String
Dim newParentID As String
' 現在の親IDを取得
parentID = Me.koubaiyoukyuuID ' 親フォームのIDコントロール名 (Me![購買要求 ＩＤ])
newParentID = Left$(parentID, 8) & "50" ' 新しい親IDの生成左から８文字目50に変更
' データベースを開く
Set db = CurrentDb
' 親テーブルのコピー
Set rsSource = db.OpenRecordset("koubai") ' コピー元のテーブル
Set rsTarget = db.OpenRecordset("koubai") ' コピー先のテーブル
With rsSource
.MoveFirst
Do Until .EOF
If .Fields("koubaiyoukyuuID") = parentID Then
rsTarget.AddNew
rsTarget!koubaiyoukyuuID = newParentID ' 新しい親IDを設定
rsTarget!gyousyaID = .Fields("gyousyaID") ' 必要なフィールドのコピー
rsTarget!syainID = .Fields("syainID")
rsTarget!hakkoubi = .Fields("hakkoubi")
'・・・・・・・・・・・・
rsTarget.Update
End If
.MoveNext
Loop
.Close
End With
' サブフォーム（子テーブル）のコピー
Set rsSource = db.OpenRecordset("koubaimeisai") ' 子テーブルのコピー元
Set rsTarget = db.OpenRecordset("koubaimeisai") ' 子テーブルのコピー先
With rsSource
.MoveFirst
Do Until .EOF
If .Fields("koubaiyoukyuuID") = parentID Then
rsTarget.AddNew
rsTarget!koubaiyoukyuuID = newParentID ' 新しい親ID
rsTarget!syouhinID = !syouhinID ' 商品ID
rsTarget!syouhintanka = !syouhintanka ' 商品単価
rsTarget!tani = !tani ' 単位
rsTarget!hidukezaikoruikei = !hidukezaikoruikei ' その他フィールド
'・・・・・・・・・・・・
rsTarget.Update
End If
.MoveNext
Loop
.Close
End With
Set rsSource = Nothing
Set rsTarget = Nothing
Set db = Nothing
MsgBox "複写した番号は ‘" & Left$(parentID, 8) & "50" & "‘ です。"
Exit_明細コピー2_Click: '必要に応じて記入なぜかVBAエラー回避わかっていません
Exit Sub
Err_明細コピー2_Click:
MsgBox Err.Description
Resume Exit_明細コピー2_Click
End Sub
購買要求ID B・・・・ー・・を複写して見積書を作る時はIDをWクリックして収入の部に移動して購買要求IDを変更してくださいテキストに定形入力を設定しています
収入の部 プロバティ設定 定形入力"A"000000\-00;0;*にしています
支出の部 "B"000000\-00;0;*
Microsoft Access 2021 64bit
動作環境
OS
Windows 10/ 11 64bit
プロセッサー 1.6 GHz以上で2コアのプロセッサが推奨されています
メモリ 64ビット版OSでは4 GBディスク領域 インストールには4
GBの空きディスク領域が必要です
画面解像度 1280
x 768以上の画面解像度が推奨されています
Microsoft 365 Access Runtime 無料インストール方法
Access発注書・見積書はOffice 64bit版が条件になります
Office2019またはOffice2021は Microsoft 365 Access Runtime ファイルは、サポートされているすべての言語の
６４bit(×64)バージョンで無料でダウンロードできます
お問い合わせ
Access発注書・見積書使っていただいている皆様の意見ご感想をいただき改善していきたいと思います
質問 意見は有難く拝読させていただきますが、返信は勝手ながら当方の都合により、必ずしも出来る訳ではない
ことをお許しください
個人事業主
屋号 HTNメンテナンス工業
開業 2019年１月１日
旗手伸生
職種 製造業機械保全データー＆CAD
Gmail
（nobita0848@gmail.com）
見積書 12行 空白行
改ぺージはありません
