回答編集履歴
4
謝罪
answer
CHANGED
|
@@ -1,5 +1,6 @@
|
|
|
1
1
|
入力項目はテキストボックスですよね。
|
|
2
2
|
そもそも.value値がNullになることはないような・・・
|
|
3
|
+
（AccessVBAは詳しくないのでお門違いだったらスミマセン）
|
|
3
4
|
必須チェックしたいなら、
|
|
4
5
|
CtinputItemrl.Value == "" または Len(CtinputItemrl.Value) == 0 じゃないでしょうか。
|
|
5
6
|
|
3
やっぱりていせい
answer
CHANGED
|
@@ -1,8 +1,12 @@
|
|
|
1
|
+
入力項目はテキストボックスですよね。
|
|
1
|
-
|
|
2
|
+
そもそも.value値がNullになることはないような・・・
|
|
2
|
-
|
|
3
|
+
必須チェックしたいなら、
|
|
4
|
+
CtinputItemrl.Value == "" または Len(CtinputItemrl.Value) == 0 じゃないでしょうか。
|
|
3
5
|
|
|
6
|
+
また、テキストボックスだったら入力された内容は全てString型になるかと。
|
|
7
|
+
その上で内容が数値であればIsNumericでTrueになるし、日付であればIsDateでTrueになるんじゃないでしょうか。
|
|
4
8
|
|
|
5
|
-
|
|
9
|
+
と言うわけで、型チェックは↓の感じになるかと思います。
|
|
6
10
|
|
|
7
11
|
```VBA
|
|
8
12
|
' 必須と数値チェックをしたい場合は、Tagに「Required Numeric」を設定する。
|
2
しゃざい
answer
CHANGED
|
@@ -1,11 +1,8 @@
|
|
|
1
|
-
|
|
1
|
+
↑すみませんAccessだと余裕でNullありますね・・
|
|
2
|
-
|
|
2
|
+
と言う事で消しました。
|
|
3
|
-
CtinputItemrl.Value == "" または Len(CtinputItemrl.Value) == 0 じゃないでしょうか。
|
|
4
3
|
|
|
5
|
-
また、テキストボックスだったら入力された内容は全てString型になるかと。
|
|
6
|
-
その上で内容が数値であればIsNumericでTrueになるし、日付であればIsDateでTrueになるんじゃないでしょうか。
|
|
7
4
|
|
|
8
|
-
|
|
5
|
+
一括の型チェックは↓の感じでやればいいと思います。
|
|
9
6
|
|
|
10
7
|
```VBA
|
|
11
8
|
' 必須と数値チェックをしたい場合は、Tagに「Required Numeric」を設定する。
|
|
@@ -19,7 +16,7 @@
|
|
|
19
16
|
' Tagを半角スペースで分割してループ
|
|
20
17
|
For idx = Lbound(chkArr) To Ubound(chkArr)
|
|
21
18
|
If chkArr(idx) = "Required" Then
|
|
22
|
-
If
|
|
19
|
+
If IsNull(CtinputItemrl.Value) Then
|
|
23
20
|
MsgBox "必須入力です", vbOKOnly
|
|
24
21
|
inputItem.SetFocus
|
|
25
22
|
Cancel = True
|
1
コード修正
answer
CHANGED
|
@@ -19,7 +19,7 @@
|
|
|
19
19
|
' Tagを半角スペースで分割してループ
|
|
20
20
|
For idx = Lbound(chkArr) To Ubound(chkArr)
|
|
21
21
|
If chkArr(idx) = "Required" Then
|
|
22
|
-
If CtinputItemrl.Value ==
|
|
22
|
+
If CtinputItemrl.Value == "" Or Len(CtinputItemrl.Value) == 0 Then
|
|
23
23
|
MsgBox "必須入力です", vbOKOnly
|
|
24
24
|
inputItem.SetFocus
|
|
25
25
|
Cancel = True
|