フォーム　発注書 見積書　納品書　請求書　勘定科目入力用

①コンボ223伝票の種類を決める

いよいよインボイス制度１０月から開始Accessで、適格請求書発行してみませんか
Access 2021に変更　
　購買要求クエリを基にForm 購買要求と見積書２個つくりました発注書　検収書　受領書
見積書　納品書　請求書　月分一括請求書　　消費税8% 10% 対象外

コンボボックス　社員ID

既定値　　　　　　=[社員ID].[itemdata](0)

納期

テーブル購買要求のフィールド納期
の規定値にDate()+5とした。

定型入力もありますが
カレンダーが使用できるようになった
設定不可欠

レポートを開く　　印刷ブレビュー
Where条件式　= [Forms]![購買要求]![購買要求 ＩＤ]=[購買要求]![購買要求 ＩＤ]

レポート印刷ボタン　　　コマンド100

クリック時　マクロ名　ボタン
Where 条件式　　としてフォーム購買要求の購買要求IDとレポート購買要求の購買要求IDの等しいのを選び
ビュー　印刷ブレビュー
フォーム購買要求の入力が終わり　　レポートをフォーム画面と同じ購買要求IDを選び一枚一枚印刷する。マクロです　

Private Sub 工事仕様書_Click()
Call ConstructionspecificationsWithExcel(Me)
End Sub

.Cells(intRow, 3).Value = rs("商品名")
strRange = .Cells(intRow, 3).Address & ":" & .Cells(intRow, 14).Address

詳しくは　Access2000 プロが作った！お手本データベース４１選　著者　葛西　秋雄
発行所　株式会社技術評論社

AccessからExcelの工事仕様書に転記する 　modure2

工事仕様書ボタンAccessからExcelに転記するエラー使用していません参考

精算表・決算書確定申告用AccessからExcelに転記自動化ボタン　

➄購買商品明細　　サブフォーム

➅仕入と売上合計金額両方に入る問題　作業ミス　解決方法2023/02/16

マクロ名　　　　 マクロ8 10消費税仕入れ用　　　実行の前に条件をつけたいと思い
　　　　　　　　　If 　があると思いVBAがわからなくてもできると思ったが構文エラー


　　　　　　　　　　まずは[購買要求 ＩＤ]をクエリで　"A" 　"B"一文字取り出してできるのではないかと思い

クエリ名　　　　　購買要求クエリ　デザインビューでフィールド　１個追加　　参照: Left([購買要求 ＩＤ],1)
　　　　　　　　　[購買要求 ＩＤ]の左1文字を取り出しから始めることにした
　　　　　　　　　マクロ　新しいアクションの追加　Ifを選択
マクロ名　 　　　 マクロ8 10消費税仕入れ用　 修正　If　　 [参照]="B"=True 　　　　　Then
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　値代入　　実行
　　　　　　　　　マクロ8 10消費税売上用　　 修正 　If　　 [参照]="A"=True　　　 　　Then
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　値代入　　実行
マクロ名　　　　 マクロ8 10消費税仕入れ用コピー

いろいろエラーを見て更新します
　

②購買要求ID定形入力と参照AかBクリックフィルターです

➅form 　売上合計税込み　クリック　参照"A"の時各テキストにコピー（値代入）マクロ

定形入力　　　"B"000000\-00;0;*　　　例230101-01 　　2023/01/01
　　　　　　　　　費用　B ******-**　　　収益　A******-**

訂正用　　form購買要求ID　A**の時 　Wクリックform見積書を開くフィルターです
　　　　　　　　　　　　

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　クエリ　クロス集計レポート合計の為費用マイナス

無料ダウンロードページへ

Accesssqlリンク申告用訂正（無料）　
　　　　　　勘定科目練習用　　excel 申告用　確定申告用　2025/06/08更新
　　　　　　　　　　　　　　 　　　　　　 　　　　　　　2025/07/02更新　SQLリンク複写できます

ダウンロード後

ダウンロードファルダーmitumori zip 右クリック

プロバティ　　下の許可するに　☑チェック　自己責任でお願いします

ダウンロードフォルダーmitumori .zipを開く解凍後
読み取り専用で見てください　発注書　　見積書を見てください　エラーがなければ
　解凍後の見積書フォルダーをコピーして危険ですがC\に貼り付けてください
リンク先にしています
"C:\見積書\accessseisan\申告用.xlsx"
"C:\見積書\機械保全ﾃﾞｰﾀｰ.xlsx"
　　　　
リンクの内容　
　テーブルExcel　　 ユニオンクエリ　　Module1～10botton　コード　Excel精算表　申告用

　access コード　　　ツール　 参照設定も忘れずにお願いします

使い方は説明できますが、Accessの突然のエラーはわかりません
サポートはできませんが、エラー内容を教えていただければ　改善していきます

購買要求クエリにフィールドに参照を追加
　　式　　参照: Left([購買要求 ＩＤ],1)　　　　　左から１文字　"B" か"A"******-**

次に[参照]を使ってマクロをつくります

マクロ8 10消費税売上用のコピー

マクロ8 10消費税仕入れ用のコピー

AccessからExcelに転記の方法
1　(便利機能! !AccessのデータをExcelシートに転記する方法)を検索
2. コピーして練習しました非常に参考になった
　　ひな形　精算表の保存場所
　　モジュールModule6 フォルダー（ひな形）保存名と保存場所に設定しています
　　"D:\見積書\accessseisan\精算表.xlsx"
　　モジュールModule 7 8
　　"D:\見積書\accessseisan\精算表1.xlsx"ができて上書き保存
　　半角スペース　　" ! ' [] Accees よくエラーになる　メモ帳にコピーして作る
3.　改造した部分
　ひな形（精算表.xlsx）からボタン1で相手勘定科目収益・費用（精算表1.xlsx）を作り
　精算表1.xlsxに資産　負債をボタン.2..3順にクリック精算表1に上書き保存していきます
4.期間設定　formのテキスト名の値を抽出条件　　　　　　　module6.7.8
　.フォーム名起動時ボタンに非連結テキスト2個を作り値をVBAに取得しています
　 VBA実行ボタンを作ったフォームから(フォーム名起動時ボタン）
mySQL = mySQL & " From 購買要求 WHERE (((購買要求.納入終了日) Between#" & Forms![起動時ボタン]![text115] & "# And #" & Forms![起動時ボタン]![text117] & "#))"

5.期間設定 VBAで変数を２個作り　InputBoxの日付抽出方法 　　module9
Dim strData As String
strData = InputBox("日付をを入力してください。", "InputBoxの例", "2023/01/01")
If Len(strData) > 0 Then
MsgBox "入力された日付は ‘" & strData & "‘ です。"
Else
MsgBox "何も入力されませんでした。"
End If

Dim strData1 As String
strData1 = InputBox("日付を入力してください。", "InputBoxの例", "2023/12/31")
If Len(strData1) > 0 Then
MsgBox "入力された日付は ‘" & strData1 & "‘ です。"
Else
MsgBox "何も入力されませんでした。"
End If
期間設定 　変数を入れる
　　Between#" & strData & "# And #" & strData1 & "# )) "

6残高勘定科目用の.値の抽出条件　　残高勘定科目用グループを合計して値（資産）抽出
mySQL = mySQL & " And 購買要求.残高勘定科目用 IN ('現金', '普通預金') "
7.精算表　買掛金　貸方に移動の為ボタン3を作った簿記難しい
　　参考　クエリ名精算表決算書コピー　　クエリ名精算表決算書コピーコピー


Dim i As Integer: i = 5 'Excelの6行目からAccessデータを転記する
テーブル購買要求.残高勘定科目用決定金額を合計
mySQL = "SELECT 購買要求.残高勘定科目用, Sum(購買要求.決定金額) AS 合計 "
'テーブル購買要求から納入終了日の期間抽出
mySQL = mySQL & "FROM 購買要求 WHERE (((購買要求.納入終了日) Between#" & Forms![起動時ボタン]![text115] & "# And #" & Forms![起動時ボタン]![text117] & "#))"
'合計して.残高勘定科目用の値（負債）を抽出
mySQL = mySQL & " And 購買要求.残高勘定科目用 IN('支払手形', '買掛金') "
'残高勘定科目用グループ化
mySQL = mySQL & "GROUP BY 購買要求.残高勘定科目用;"

'ADOでデータベースを接続し、先のSQL文を開く。
Set cn = CurrentProject.Connection
rs.Open mySQL, cn, adOpenKeyset, adLockOptimistic
'シートへのデータコピー
Set objSelection = objExcel.ActiveWorkbook.Worksheets("精算")

With objSelection
.Range("j2") = " 2023年度 "　'.Range("J2").Value = Date 今日の日付
End With

'レコードセットが最後に来るまでデータを処理する。
Do Until rs.EOF = True
'AccessデータをExcelへ転記する。
With objSelection
'セル列と行指定
.Range("A" & i + 20) = rs!残高勘定科目用
.Range("C" & i + 20) = rs![合計] * -1　　'設定　簿記だと誤り？

End With
i = i + 1
rs.MoveNext
Loop

設定 　費用＝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
　　　　　　　　　　　　　　　　　　　　　　　　DLookUp 条件　×　使用不可　になりました
複写不可　ボタン見えない様にしています　　　可視　いいえ　に設定
私にはわからない問題エラー使って経験訂正しています

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