次の VBA を使用してフォーム フィールドのエントリを検証しようとしています。これは非常にうまく機能します。私の問題は、この Access アプリがさまざまな XML データ ファイルを作成し、その xml 内に特定の文字を入れたくないことです。つまり、ソフト リターン (Shift + Enter) です。これの Chr は Chr(11) だと思いますが、下の配列の最後に , Chr(11)) を追加するだけではうまくいかないと思います... Chr(# をどのように使用できますか? )リンク方式で?
Dim i, j As Integer
dim myField as variant
varNo = Array("\", "/", ":", "*", "?", """", "<", ">", "|")
If IsNull(Me.FieldValue) = False Then
myField = Me.FieldValue
For i = 0 To UBound(varNo)
j = InStr(1, myField , varNo(i))
If j > 0 Then
MsgBox "Cannot use character:" & Chr(13) & Chr(10) & Chr(13)
& Chr(10) & varNo(i), vbCritical, " Illegal Character"
Exit Sub
Exit For
End If
Next
End If
繰り返しますが、上記は配列内のこれらのものに対してうまく機能しますが、Chr() も含めたいと思います。