閉じる

CDに、CDの最大値＋１の値をセットする。DMAX　の例


新規追加の場合、グループ単位で、CDに過去データの最大値＋１の値をセットする。



テーブル名：t191_tech_ku2

CD:tech_KU2_CD　データ型：数値型

グループID:KU1_ID 

抽出条件：Me.w_KU1_ID







    Dim maxCD As Variant

    

    If wMODE = "新規追加" Then

        maxCD = Nz(DMax("tech_KU2_CD", "t191_tech_ku2", "KU1_ID = " & Me.w_KU1_ID))

       

        If maxCD > 0 Then

            rs0!tech_KU2_CD = maxCD + 1

        End If

        

    End If