Private Sub cmbコード_BeforeUpdate(Cancel As Integer)

    Dim nCurDataLength, nTargetFieldSize

    nCurDataLength = LenB(StrConv(Me.cmbコード.Value, vbFromUnicode))
    nTargetFieldSize = Application.CurrentDb.TableDefs("得意先マスタ").Fields("得意先コード").Size
    
    If nCurDataLength > nTargetFieldSize Then
        MsgBox ("入力されたデータのサイズが大きすぎます ( " & nTargetFieldSize & "桁以内 )")
        Cancel = True
    End If

End Sub