【Access VBA】効率よく伝票フォームに入力する方法(前編)

Private Sub 発注先名_AfterUpdate()
    Me.担当者名.Value = DLookup("[担当名]", "T01発注先マスタ", "[発注先名]='" & Me.発注先名.Value & "'")
End Sub

Private Sub 明細追加_Click()

Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset
Dim SQL As String

'枝番枝番数の確認
Set CN = CurrentProject.Connection
    'レコードセットを取得
    Set RS = New ADODB.Recordset
    SQL = "SELECT 枝番 FROM T02発注伝票明細 Where 発注登録No=" & Me.発注登録No & "; "
    RS.open SQL, CN, adOpenKeyset, adLockOptimistic

    If IsNull(Me.発注先名) = True Then
        MsgBox ("発注先名が入力されていません。")
    ElseIf RS.RecordCount >= 5 Then
        MsgBox ("明細数が5件を超えています。" & vbCrLf & "新しい伝票を作成してください。")
    Else
        DoCmd.OpenForm "F01部品マスタ明細追加M", acNormal
        Forms![F01部品マスタ明細追加M]![発注登録No受渡用].Value = Me.発注登録No
    
        Forms("F01部品マスタ明細追加M").Controls("F01部品マスタ明細追加DS").Form.RecordSource = _
        "Select * From Q01部品マスタ明細追加用 where 発注先名= '" & Me.発注先名.Value & "';"

        'データの反映
        If RS.RecordCount = False Then
            Forms![F01部品マスタ明細追加M]![枝番受渡用].Value = 1
        Else
            Forms![F01部品マスタ明細追加M]![枝番受渡用].Value = RS.RecordCount + 1
        End If
    End If
'終了
RS.Close:  Set RS = Nothing
CN.Close:  Set CN = Nothing

End Sub