回答編集履歴
3
追記
test
CHANGED
|
@@ -8,3 +8,5 @@
|
|
|
8
8
|
```VBA
|
|
9
9
|
Len([txt_個人番号])=8 0r Is Null
|
|
10
10
|
```
|
|
11
|
+
> クリアするとエラーがでたため
|
|
12
|
+
どのようにクリアされているかによりますけど、少なくとも[Esc]キーで入力をキャンセルすればエラーにはならないと思います。
|
2
追記
test
CHANGED
|
@@ -1,6 +1,10 @@
|
|
|
1
|
-
[TextBox.ValidationRule プロパティ (Access)
|
|
2
|
-
](https://learn.microsoft.com/ja-jp/office/vba/api/Access.TextBox.ValidationRule)
|
|
3
1
|
空欄時の条件を追加するには、以下の様にします。
|
|
4
2
|
```VBA
|
|
5
3
|
Len([txt_個人番号])=8 0r Len([txt_個人番号])=0
|
|
6
4
|
```
|
|
5
|
+
[TextBox.ValidationRule プロパティ (Access)
|
|
6
|
+
](https://learn.microsoft.com/ja-jp/office/vba/api/Access.TextBox.ValidationRule)
|
|
7
|
+
リンク先のパターンで以下の様にした場合、空白入力後に空欄に戻すには[Esc]キーで入力をキャンセルしないとエラーが出続けます。
|
|
8
|
+
```VBA
|
|
9
|
+
Len([txt_個人番号])=8 0r Is Null
|
|
10
|
+
```
|
1
訂正
test
CHANGED
|
@@ -2,5 +2,5 @@
|
|
|
2
2
|
](https://learn.microsoft.com/ja-jp/office/vba/api/Access.TextBox.ValidationRule)
|
|
3
3
|
空欄時の条件を追加するには、以下の様にします。
|
|
4
4
|
```VBA
|
|
5
|
-
Len([txt_個人番号])=8 0r
|
|
5
|
+
Len([txt_個人番号])=8 0r Len([txt_個人番号])=0
|
|
6
6
|
```
|