作成者	カテゴリ	返答の対象		公開
まな 08/09/2022 06:27 PM		入力文字のバイト数チェックをしたい

まちゃさん、こんにちは。

どこでメッセージを出したいのかわかりませんが、例えば保存前にメッセージを出して保存させなくするためには、そのフォームのQuerysaveに以下のように記述します。

Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim nagasa As Long
nagasa = Lenb(source.FieldGetText("SR_KENMEI"))
If nagasa > 5 Then
Msgbox "入力は5バイトまでです。"
continue = False
Else
continue = True
End If
End Sub