Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8 / 9998 ←次へ | 前へ→

【13142】生産番号で行番号連番リセット、生産日の月が変われば工程番号連番リセット
質問  きむ E-MAIL  - 17/5/12(金) 15:26 -

引用なし
パスワード
   フォームテーブル:生産入力  サブフォームテーブル:生産入力_明細
    生産番号:数値          行番号:数値
    生産日:日付/時刻型       工程番号:数値
現状動作:生産番号が変われば行番号連番リセット  変更:生産月が変われば工程                            番号リセット
 生産日   生産番号   行番号   工程番号   工程番号(変更)
2017/4/28    1      1       1        1
2017/4/28    1      2       2        2
2017/4/28    1      3       3        3
2017/4/29    2      1       4        4
2017/4/29    2      2       5        5
2017/4/29    2      3       6        6
2017/5/01    3      1       7        1
2017/5/01    3      2       8        2
2017/5/01    3      3       9        3

現状VBA
Private Sub Form_BeforeInsert(Cancel As Integer)
  Dim Frm0 As Form
  Set Frm0 = Forms!HachInpt生産入力
  If Nz(Frm0!生産番号, 0) = 0 Then
    MsgBox "ヘッダー部を入力してください。", vbExclamation + vbOKOnly, "Input Error!"
    Cancel = True
    Frm0!生産日.SetFocus
    GoTo ExitTrap
  End If
  
  Me.行番号 = Nz(DMax("SSM_GYONO", "D_生産明細", "SSM_SSNO = " & Nz(Frm0!生産番号, 0)), 0) + 1
   Me.工程No = Nz(DMax("SSM_KOUTEINO", "D_生産明細") + 1, 1)
ExitTrap:
  Set Frm0 = Nothing
End Sub
色々チャレンジしましたが。
生産月が変わったら工程番号連番をリセットすることが出来ていません。
VBAの知識が乏しいので前に進みません。

どなたかご教授お願い致します。

29 hits

【13142】生産番号で行番号連番リセット、生産日の月が変われば工程番号連番リセット きむ 17/5/12(金) 15:26 質問[未読]
【13143】Re:生産番号で行番号連番リセット、生産日... hatena 17/5/13(土) 11:21 回答[未読]

8 / 9998 ←次へ | 前へ→
ページ:  ┃  記事番号:
971937
(SS)C-BOARD v3.8 is Free