|
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
| |