Microsoft Access 掲示板

6338 コメント

views

4 フォロー

6,278 件中 921 から 960 までを表示しています。

入出庫手数料・保管手数料の一覧表を作成したい

その他

移動日/移動月については軽く触れていますが、そのほか、後の処理の（楽をしたい）都合で日付データとして各月の1日に統一したデータで扱っています
レポートの表示はテキストボックスの書式の設定（YYYY年MM月）で対応しています

「抽出の最小日以前から保管個数がある場合」は考慮していません

その他、細かいところは適当なので（代替の背景色が有効のせいで微妙に表示がおかしいとか）そういう調整は必要です

こういう案件の場合、ワークテーブルを用意してゴリゴリしてからそれをレポートにとかってなるんですかねぇ

Noの連番取るのにVBA使わないとダメなの何か方法あるんじゃない？って思わなくもないけど、保管用のデータ作るとこと考えるとそっちがめちゃくちゃ遠回りになりそうだしなぁとか
「とりあえずやってみたらそれっぽくできたので公開してるだけ」なのでこういう手法どうなの？とかあればください

入出庫手数料・保管手数料の一覧表を作成したい

３．「存在しない月のデータ」をどう補完するか

「新しいデータを読み込んだ時、古いデータとの比較で月が離れていたら、データを挿入する」方法を取ります
「データ」はレポートのクエリを基に詳細セクションで読み込まれるので、「『移動月』でグループ化し、グループヘッダーを設置すると、『新しいデータと古いデータの間』」になります

このグループヘッダーを出力しなかったり、出力したり、たくさん出力するようにすれば、存在しないデータの補完ができます

移動月ヘッダーで表示する「区分」も「保管」のみなので、区分はラベルコントロールです
その他のテキストボックスはそれぞれ

No_補完
コントロールソース：（非連結）

移動月補完
コントロールソース：（非連結）

保管個数表示補完
コントロールソース：（非連結）

保管手数料単価補完
コントロールソース：=[保管手数料単価]

保管手数料補完
コントロールソース：=[保管個数表示補完]*[保管手数料単価]

です。存在しない月データの補完用のセクションなので全部「補完」とつけてるだけです
新しいレコードに移って捨てられてしまうデータをVBAで保存しておいて必要に応じて（非連結の）テキストボックスに設定、セクションの出力（繰り返し出力）をするとかそんな流れになっています

入出庫手数料・保管手数料の一覧表を作成したい

１．「保管」の累計個数をどう計算するか

入庫を足して在庫を減らして、それを積み立てれば累計（残在庫）です。ACCESSレポートではテンプレート的な用法があるのでそのまま使います

詳細セクションに「累計」テキストボックスを配置します

コントロールソース｜=Nz([入庫数],0)-Nz([出庫数],0)
集計実行　　　　　｜全体

詳細セクションでデータを表示する必要はないので枠線だけ表示されるように調整しています。（非表示＋枠線は別なコントロールでとかでもいいです）

「移動月」でグループ化して、フッターを配置し、「保管」行として使います
「保管」専用の行なので「区分」はラベルコントロールでそのまま「保管」を表示、その他必要なテキストボックスを配置します

保管個数表示
コントロールソース｜=[累計]

保管手数料単価
コントロールソース｜=DLookUp("手数料単価","T_区分マスター","区分ID=3")

保管手数料
コントロールソース｜=[保管個数表示]*[保管手数料単価]

２．「No」の連番をどう取得するか

「保管」データの累計計算のためにセクションを跨いでしまったのでVBAで計算・設定します
非連結のテキストボックスに、データが出力されるたび+1してデータを設定するだけです。「データが出力されるたび」がどんな時かきちんと把握しておく必要があります

今回は適当に上から「No_補完」「No_入出庫」「No_保管」という名前にしました

出力のタイトルは「移動日」ですが、元データに「移動日」フィールドがあるので、データ段階では「移動月」の名前になっています。レポートに配置するラベルで「移動日」と表示すればいいと思います
この「移動月」でグループ化してヘッダー・フッターを設置します。デフォルトでは「グループヘッダー0」「グループフッター0」のような名前になっていますが、解説用にそれぞれ「移動月ヘッダー」「移動月フッター」と名前を変えています。

移動月ヘッダーの使い方は次での解説がメインですが、「No」表記が必要なのでここでの解説に「No_補完」が紛れ込んでいます

連番を付けるだけ、でいいのであればよくある手法があるんですが、その他の要求と組み合わせるとどうするといいのか悩みどころですね

入出庫手数料・保管手数料の一覧表を作成したい

適当に「2024年3月に400個出庫」のデータを加えたサンプル

hirotonは「簡単な手法」が思い浮かばなかったので覚悟してください
複雑な要件なので問題を分解します

１．「保管」の累計個数をどう計算するか
２．「No」の連番をどう取得するか
３．「存在しない月のデータ」をどう補完するか

回答としては一緒くたにやっていますが、どの問題を解決するためのものなのか考えながら見てください

レポートのレコードソースのクエリ

SELECT
    T_入出庫一覧.区分,
    [移動日] - Day([移動日]) + 1 AS 移動月,
    Sum(IIf(
            [区分ID] = 1,
            [合計]
        )) AS 入庫数,
    Sum(IIf(
            [区分ID] = 2,
            [合計]
        )) AS 出庫数,
    T_区分マスター.手数料単価,
    Sum([手数料単価] * [合計]) AS 手数料
    T_区分マスター.区分ID,
FROM
    T_入出庫一覧
    INNER JOIN
        T_区分マスター
    ON  T_入出庫一覧.区分 = T_区分マスター.区分
GROUP BY
    T_入出庫一覧.区分,
    [移動日] - Day([移動日]) + 1,
    T_区分マスター.手数料単価,
    T_区分マスター.区分ID
ORDER BY
    [移動日] - Day([移動日]) + 1,
    T_区分マスター.区分ID
;

上記クエリによるレポート出力用の基礎データ例

レポートのモジュール

Option Compare Database
Option Explicit

Dim No As Long
Dim 保管月 As Date
Dim 保管個数 As Long

Private Sub Report_Load()
    保管月 = DateAdd("M", -1, Me!移動月)
End Sub

Private Sub 移動月フッター_Format(Cancel As Integer, FormatCount As Integer)
    No出力 Me!No_保管
    
    '//補完用データ確保
    保管月 = Me!移動月
    保管個数 = Me!保管個数表示
End Sub

Private Sub 移動月ヘッダー_Format(Cancel As Integer, FormatCount As Integer)
    If Me!移動月 = DateAdd("M", 1, 保管月) Then
        Cancel = True
        Exit Sub
    End If
    
    '//前のレコードが2月以上前なのでデータ補完
    No出力 Me!No_補完
    
    保管月 = DateAdd("M", 1, 保管月)
    Me!移動月補完 = 保管月
    Me!保管個数表示補完 = 保管個数
    
    Me.NextRecord = False
End Sub

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
    No出力 Me!No_入出庫
End Sub

Private Sub No出力(ctl As TextBox)
    No = No + 1
    ctl = No
End Sub

レポートのデザイン

入出庫手数料・保管手数料の一覧表を作成したい

両方あり得ます。
入庫・出庫が同一月に発生する場合、１行目入庫、２行目出庫、３行目保管になるようにしたいと考えています。

入出庫手数料・保管手数料の一覧表を作成したい

とりあえず確認

「入庫」「出庫」が同一月に発生することはありますか？その場合どのような表示になりますか？
「入庫」「出庫」が発生せず、「保管」だけが発生する月はありますか？

レポートのグループフッター制御？

ありがとうございました。テキストボックス配置しましたら思い通りになりました。
ＡＣＣＥＳＳレポートは複雑でこんな方法は全く知りませんでした。
このグループだけレポートフッターに配置した他のデータから参照した値を含めた合計で表示したかったのです。
お世話になりました。

グループ化したテーブルのレコードに、在庫移動日を追加してテーブルに書き込みたい

ありがとうございます！
非連結にすればよかったのですね。

回答頂けるまでにいろいろ試して、区分・商品1～4・合計・移動日・在庫移動日・発注日フィールドを持つtmpテーブルを作成し、こちらをレコードソースにしてフォーム作成しました！

グループ化したテーブルのレコードに、在庫移動日を追加してテーブルに書き込みたい

結果が1件だけなら、いろいろ方法はありますが、
フォームの「在庫移動日」は非連結テキストボックスにしておきます。そうすれば入力可能になります。

レコードソースの集計クエリをもとに追加クエリを作成して、追加先は「T_入出庫状況」にします。
追加元と追加先の対応するフィールドを設定して、次に新規列に下記の設定をします。

フィールド	在庫移動日: Forms!フォーム名!在庫移動日
テーブル	集計クエリ名
レコードの追加	在庫移動日

SQLだと下記のようなになります。

INSERT INTO T_入出庫状況 (区分, 商品1, 商品2, 商品3, 商品4, 合計, 在庫移動日)
SELECT 区分, 商品1, 商品2, 商品3, 商品4, 合計, Forms!フォーム名!在庫移動日 AS 在庫移動日
FROM 集計クエリ;

フォーム上にコマンドボタンを配置して、そのクリック時にこの追加クエリを実行するようにすればいいでしょう。

レポートのグループフッター制御？

グループフッターに大分類IDフィールドをテキストボックスとして配置してください。
大分類IDを表示したくない場合は「可視」を「いいえ」にします。

レポートのグループフッター制御？

ありがとうございました。コードを下記で記述したのですが　『＊＊＊大分類IDフィールドが見つかりません』のエラーが出ました。（大分類ＩＤでグループ化してまして、それの３を非表示にしたい）
Private Sub グループフッター1_Format(Cancel As Integer, FormatCount As Integer)
Cancel = [大分類ID] = 3
End Sub
コードの記述が間違ってますでしょうか？

グループ化したテーブルのレコードに、在庫移動日を追加してテーブルに書き込みたい

"T_発注書取込"テーブルの構成は
取込ID（オートナンバー）主キー
No（数値）
社名（短いテキスト）
〒（短いテキスト）
住所（短いテキスト）
TEL（短いテキスト）
商品1（短いテキスト）
商品2（短いテキスト）
商品3（短いテキスト）
商品4（短いテキスト）
発注日（日付/時刻）

発注日が複数日に渡ることはないので、グループ化で結果は1件だけになります。

グループ化したテーブルのレコードに、在庫移動日を追加してテーブルに書き込みたい

この集計クエリの結果は1件だけですか。それとも複数件になりますか。

複数件の場合は、「在庫移動日」はすべて共通でいいのですか。それともレコード毎に異なるものを入力しますか。

それ以前に、現状のテーブルのフィールド構成はどうなってますか。
主キー設定も含めて提示してください。

インポートするExcelファイル名の日付部分を、インポートしたレコードの取込日フィールドに追加したい

この取得した日付をT_発注書取込の発注日フィールドに書き込む記述は、msgboxのところを書き換えればよいでしょうか？

はい、そうです。
とりあえず試してみてうまく行かない場合、質問してください。

レポートのグループフッター制御？

フォーマット時イベントのCancel引数をTrueにすれば、そのセクションの出力を停止できます。

Private Sub グループフッター0_Format(Cancel As Integer, FormatCount As Integer)
    Cancel = Me!グループキー = "(非表示にするグループキー)"
End Sub

レポートのグループフッター制御？

そのグループフッターの可視プロパティをフォーマット時イベントで制御すればいいかな？

Private Sub グループフッター0_Format(Cancel As Integer, FormatCount As Integer)
    Me.Section("グループフッター0").Visible = Me!グループキー <> "(非表示にするグループキー)"
End Sub

※各名称は適切なモノに置き換えてください

Microsoft Access 掲示板

その他

３．「存在しない月のデータ」をどう補完するか

１．「保管」の累計個数をどう計算するか

２．「No」の連番をどう取得するか

最新トピック

タグリスト

Markdown テーブル生成