MS-Access 2013フォームの新しいフィールド値ごとにフィールドを1から1ずつ増やします。

Question

更新：
私はそれを働かせました。ここで私はこれを行うために使用されるコードは次のとおりです。

Private Sub Amount_GotFocus() 

If Not IsNull(DLookup("[Line#]", "[t_Line#]", "[PO#] = [PO#].Value")) Then 
    [CustPOLine#].Value = DMax("[CustPOLine#]", "t_CUST_PO_LineItems", "[CustPO#] = [CustPO#].Value") + 1 
Else 
    [CustPOLine#].Value = 1 
End If 

End Sub 

私は、フォームのテキストボックスに1と同一のPO番号を持つテーブル内の任意の値があるかどうかを確認するためのDLookupを使用しています。 nullを返す場合、Line＃の値を1に設定します.Nullでない場合、DMax関数を使用して、PO＃がフォームに入力された行番号と等しいLine＃の最大値を取得します。

Answer 1

サブフォームのBefore Insertイベントで、新しい番号を割り当てます。

Private Sub Form_BeforeInsert(Cancel As Integer) 

    Dim CustPO As String ' (!) 
    Dim MaxLineNr As Long 

    CustPO = Me.Parent![CustPO#] 
    Debug.Print "CustPO# = " & CustPO ' Ctrl+G shows output 

    MaxLineNr = Nz(DMax("[CustPOLine#]", "t_CUST_LineItems", _ 
         "[CustPO#] = '" & CustPO & "'"), 0) 
    Debug.Print "MaxLineNr = " & MaxLineNr 

    Me![CustPOLine#] = MaxLineNr + 1 

End Sub 

どのように動作しますか？

現在の[CustPO＃]の既存の[CustPOLine＃]の最大値が必要です。後者はメインフォーム（Me.Parent）から読み込まれます。そのフィールドはサブフォームにまだ埋め込まれていないためです（新しいレコードはまだ存在しません）（私は思う）。

がない場合、DMax()はNULLを返します。これはNz()によって0に変更されます。

次に、最も高い既存の番号に1が追加されます。

Answer 2

Access 2010以降では、変更前データマクロを使用して行アイテム番号を割り当てるオプションもあります。このアプローチでは、行が実際にコミットされたときにのみ番号が割り当てられるため、Andreのフォームベースのメソッドに加えて、行がバッチ更新やインポートなどの他の（フォームベースではない）メカニズムによって追加されるケースをカバーするために使用できます、など。