回答編集履歴
3
訂正
test
CHANGED
|
@@ -1,10 +1,8 @@
|
|
|
1
|
-
以下の様にしてみて下さい。
|
|
1
|
+
~~以下の様にしてみて下さい。
|
|
2
|
-
|
|
3
|
-
```VBA
|
|
4
2
|
|
|
5
3
|
rs.Fields("仕入日") = "#" & Me!Tx仕入日 & "#"
|
|
6
4
|
|
|
7
|
-
|
|
5
|
+
~~
|
|
8
6
|
|
|
9
7
|
追記
|
|
10
8
|
|
|
@@ -16,7 +14,7 @@
|
|
|
16
14
|
|
|
17
15
|
```VBA
|
|
18
16
|
|
|
19
|
-
if IsNull(Me.Tx仕入日) then exit sub '出口
|
|
17
|
+
if IsNull(Me.Tx仕入日) then exit sub '←ここで出口
|
|
20
18
|
|
|
21
19
|
'レコードを作成する
|
|
22
20
|
|
|
@@ -24,7 +22,7 @@
|
|
|
24
22
|
|
|
25
23
|
rs.AddNew
|
|
26
24
|
|
|
27
|
-
rs.Fields("仕入日") =
|
|
25
|
+
rs.Fields("仕入日") = Me.Tx仕入日
|
|
28
26
|
|
|
29
27
|
rs.Update
|
|
30
28
|
|
2
追記
test
CHANGED
|
@@ -8,11 +8,15 @@
|
|
|
8
8
|
|
|
9
9
|
追記
|
|
10
10
|
|
|
11
|
+
--
|
|
12
|
+
|
|
11
13
|
Null考慮が必要かもしれませんね。
|
|
14
|
+
|
|
15
|
+
先頭でNullだった場合に追加せずに終了する処理を追記してみてください。
|
|
12
16
|
|
|
13
17
|
```VBA
|
|
14
18
|
|
|
15
|
-
if IsNull(Me.Tx仕入日) then exit sub
|
|
19
|
+
if IsNull(Me.Tx仕入日) then exit sub '出口
|
|
16
20
|
|
|
17
21
|
'レコードを作成する
|
|
18
22
|
|
1
追記
test
CHANGED
|
@@ -5,3 +5,27 @@
|
|
|
5
5
|
rs.Fields("仕入日") = "#" & Me!Tx仕入日 & "#"
|
|
6
6
|
|
|
7
7
|
```
|
|
8
|
+
|
|
9
|
+
追記
|
|
10
|
+
|
|
11
|
+
Null考慮が必要かもしれませんね。
|
|
12
|
+
|
|
13
|
+
```VBA
|
|
14
|
+
|
|
15
|
+
if IsNull(Me.Tx仕入日) then exit sub
|
|
16
|
+
|
|
17
|
+
'レコードを作成する
|
|
18
|
+
|
|
19
|
+
Set rs = db.OpenRecordset("T01-1_仕入登録", dbOpenTable)
|
|
20
|
+
|
|
21
|
+
rs.AddNew
|
|
22
|
+
|
|
23
|
+
rs.Fields("仕入日") = "#" & Me.Tx仕入日 & "#"
|
|
24
|
+
|
|
25
|
+
rs.Update
|
|
26
|
+
|
|
27
|
+
rs.Close
|
|
28
|
+
|
|
29
|
+
Set rs = Nothing
|
|
30
|
+
|
|
31
|
+
```
|