作成者	カテゴリ		公開
まちゃ 08/09/2022 08:05 AM	フォーム

お世話になります。

あるフィールドの入力に制限をかけたい（メッセージ表示）のですが、関数では文字数でのチェックしかできないです。
スクリプトでできるとあり、以下をつくったのですが、どこに追加するのがいいのでしょうか?
対象フィールドに追加しましたが、思ったような動きにならず．．．
スクリプト初心者です。

Sub Entering(Source As Field)
Dim ws As New NotesUIWorkspace
Set uidoc = ws.CurrentDocument
ChkNum$ = uidoc.FieldGetText("SR_KENMEI")
If Lenb(ChkNum$)>5 Then
Msgbox "入力は５桁までです。"
Exit Sub
End If
end sub