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