回答編集履歴
4
謝罪
test
CHANGED
@@ -1,6 +1,8 @@
|
|
1
1
|
入力項目はテキストボックスですよね。
|
2
2
|
|
3
3
|
そもそも.value値がNullになることはないような・・・
|
4
|
+
|
5
|
+
(AccessVBAは詳しくないのでお門違いだったらスミマセン)
|
4
6
|
|
5
7
|
必須チェックしたいなら、
|
6
8
|
|
3
やっぱりていせい
test
CHANGED
@@ -1,12 +1,20 @@
|
|
1
|
-
|
1
|
+
入力項目はテキストボックスですよね。
|
2
2
|
|
3
|
+
そもそも.value値がNullになることはないような・・・
|
4
|
+
|
3
|
-
|
5
|
+
必須チェックしたいなら、
|
6
|
+
|
7
|
+
CtinputItemrl.Value == "" または Len(CtinputItemrl.Value) == 0 じゃないでしょうか。
|
4
8
|
|
5
9
|
|
6
10
|
|
11
|
+
また、テキストボックスだったら入力された内容は全てString型になるかと。
|
12
|
+
|
13
|
+
その上で内容が数値であればIsNumericでTrueになるし、日付であればIsDateでTrueになるんじゃないでしょうか。
|
7
14
|
|
8
15
|
|
16
|
+
|
9
|
-
|
17
|
+
と言うわけで、型チェックは↓の感じになるかと思います。
|
10
18
|
|
11
19
|
|
12
20
|
|
2
しゃざい
test
CHANGED
@@ -1,18 +1,12 @@
|
|
1
|
-
|
1
|
+
↑すみませんAccessだと余裕でNullありますね・・
|
2
2
|
|
3
|
-
|
3
|
+
と言う事で消しました。
|
4
|
-
|
5
|
-
CtinputItemrl.Value == "" または Len(CtinputItemrl.Value) == 0 じゃないでしょうか。
|
6
4
|
|
7
5
|
|
8
6
|
|
9
|
-
また、テキストボックスだったら入力された内容は全てString型になるかと。
|
10
|
-
|
11
|
-
その上で内容が数値であればIsNumericでTrueになるし、日付であればIsDateでTrueになるんじゃないでしょうか。
|
12
7
|
|
13
8
|
|
14
|
-
|
15
|
-
|
9
|
+
一括の型チェックは↓の感じでやればいいと思います。
|
16
10
|
|
17
11
|
|
18
12
|
|
@@ -40,7 +34,7 @@
|
|
40
34
|
|
41
35
|
If chkArr(idx) = "Required" Then
|
42
36
|
|
43
|
-
If
|
37
|
+
If IsNull(CtinputItemrl.Value) Then
|
44
38
|
|
45
39
|
MsgBox "必須入力です", vbOKOnly
|
46
40
|
|
1
コード修正
test
CHANGED
@@ -40,7 +40,7 @@
|
|
40
40
|
|
41
41
|
If chkArr(idx) = "Required" Then
|
42
42
|
|
43
|
-
If CtinputItemrl.Value ==
|
43
|
+
If CtinputItemrl.Value == "" Or Len(CtinputItemrl.Value) == 0 Then
|
44
44
|
|
45
45
|
MsgBox "必須入力です", vbOKOnly
|
46
46
|
|