| |
フォームテーブル：生産入力 サブフォームテーブル:生産入力＿明細
生産番号:数値 行番号:数値
生産日：日付/時刻型 工程番号:数値
現状動作：生産番号が変われば行番号連番リセット 変更：生産月が変われば工程 番号リセット
生産日 生産番号 行番号 工程番号 工程番号（変更）
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の知識が乏しいので前に進みません。
どなたかご教授お願い致します。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
- 17/5/12(金) 15:26 -
