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

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

発行日

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

Private Sub comb277_AfterUpdate()　　　'更新後処理
DoCmd.Requery "工事依頼番号"　'コンボボックスの名前
End Sub

イベントプロシージャを選んで　　左のボタンをクリック　　コードの作成

コンボボックス工事依頼番号のcomb277絞り込みのプロバティーの設定

comb277の作り方
非連結のコンボボックスの作り方
２通りあります
コンボボックスボタン　ドロップと
テキストボックスを作る　ab　フォームへドロップ
右クリック　コントロール種類の変更
コンボボックスを選び
非連結コンボボックスを右クリック
プロバティを左クリックして
名前をcomb277にする
確かめて下さい　後者の方で説明

1　テーブルの工事依頼番号を選び
2　部署を下にドロップ
3　フィールド部署の名前を右クリック　
　　集計をクリック　
　　グループ化にする
4　並べ替え　　昇順にする

値集合ソース　抽出条件に　　Like [forms]![購買要求]![comb277] & "*"設定

comb277で選択された部署と同じ部署を絞り込む　comb277選択されてないとき
Ｌｉｋｅ　全て表示　データーが多い時には上の設定の絞り込みは便利です

機械保全データー月別と工事継続をリンクすることにして運営していますクエリ1とクエリ3のタイミング難しい！
クリック時　　値の代入　マクロ1コピーを設定しています　　追加　フォーム見積書　値の代入　マクロ1です
テーブル工事依頼番号のデーターが変わっても変わりませんから　もう一度選び直してください

コンボボックス　社員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に転記するに挑戦　難題途中です

サブフォーム

購買要求発行日日付確認のサブフォームの作成
１日の中で購買要求　ID の番号をどこまでしたか忘れますから確認の為サブフォームを作った
リンク子フィールド　　発行日
リンク親フィールド　　発行日
購買要求のフォームに発行日の一致したのを出す為

プロバティ　シート
値集合ソース

ボタンをクリック 右のSQLステートメントが表示される

➃仕入と売上合計金額両方に入る問題　作業ミス　解決方法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

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

定形入力　　　"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

購買要求ID 　B******-** 　　参照　　"B"の時
勘定科目　消費税の金額がコピーできるマクロ名　　マクロ8 10消費税仕入れ用のコピー実行
　　　　　　　マクロ　If　[参照]="B"=True　　Then　　　
　　　　　　　　　　　　値の代入　　マクロ実行　各テキストにコピーします

Form見積書　売上　収益用

売上合計税込みの金額クリック　　　テキストボックス　　クリック時　マクロ名実行設定

購買要求ID 　 A******-**　　参照　　"A"の時
勘定科目　消費税の金額がコピーできるマクロ名　　マクロ8 10消費税売上用のコピー実行　
　　　　　　　　マクロ　If　[参照]="A"=True　　Then
　　　　　　　　　　　　　値の代入　　マクロ実行　各テキストにコピーします　

③コンボボックス　非連結comb277を作り　部署から工事依頼番号のの絞り込み

決定金額1　クエリ　クロス集計レポート合計の為費用マイナス

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

Access 見積書（フリー版）　
　　　　　　勘定科目練習用　　excel 精算表　　2025/03/22更新
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

ダウンロード後

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

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

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

　access コード　　　ツール　 参照設定も忘れずにお願いします
工事仕様書xlsxはAccess A見積書決算書在庫複写鋼材.acddeと同じ場所です

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

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

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

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

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

Form購買要求　仕入　費用用で説明します
合計税込みの金額クリック　　テキストボックス　　クリック時　マクロ名実行設定

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で勘定科目入力自動ボタンExcel精算表　に飛ばす
　使い方　資産増加　 見積書　　 Aフォームで入力　　借　資産増の時　貸　収益
　　　　　資産減少　 購買要求　Bフォームで入力　　 借　 　仕入 　　 貸　資産減の時
　　　　　　　商品単価が変わった時
　　　　　　　相手勘定科目の累計額の計算
　　　　　　　決算書
　

確定申告　　　個人事業主　データーベース　簿記を習う方に参考