質問編集履歴
2
抽象的な記載の修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -13,6 +13,10 @@
|
|
|
13
13
|
|
|
14
14
|
|
|
15
15
|
また、納品番号については、追加の際はキーが同じほかのレコードと同一のものにしたいと思っております。
|
|
16
|
+
|
|
17
|
+
|
|
18
|
+
|
|
19
|
+
現在、キーが重複しているレコードが上書きできず、「.Update」のところで躓きます。
|
|
16
20
|
|
|
17
21
|
|
|
18
22
|
|
|
@@ -39,6 +43,8 @@
|
|
|
39
43
|
Dim Rst As DAO.Recordset
|
|
40
44
|
|
|
41
45
|
Set Rst = CurrentDb.OpenRecordset("50_納品データ", dbOpenTable)
|
|
46
|
+
|
|
47
|
+
Set Rsd = CurrentDb.OpenRecordset("50_納品データ", dbOpenDynaset)
|
|
42
48
|
|
|
43
49
|
Set Fms = Me.Form.Recordset
|
|
44
50
|
|
|
@@ -86,7 +92,17 @@
|
|
|
86
92
|
|
|
87
93
|
With Rst
|
|
88
94
|
|
|
95
|
+
Rsd.FindFirst "[商品ID] like '" & Me.[商品ID] & "*' and [販売先ID] like '" & Me.[販売先ID] & "*' and [出庫日] like '" & Me.[出庫日] & "*' and [取引形態ID] like '" & Me.[取引形態ID] & "*'"
|
|
96
|
+
|
|
97
|
+
If Rst.NoMatch = False Then
|
|
98
|
+
|
|
89
|
-
.AddNew
|
|
99
|
+
.AddNew
|
|
100
|
+
|
|
101
|
+
Else
|
|
102
|
+
|
|
103
|
+
.Edit
|
|
104
|
+
|
|
105
|
+
End If
|
|
90
106
|
|
|
91
107
|
.Fields("納品番号") = dNumber
|
|
92
108
|
|
1
書式の改善
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,8 +1,4 @@
|
|
|
1
1
|
**「出庫データ」**というテーブルをもとに、**「納品データ」**というテーブルに出たを書き込みたいと思っています。
|
|
2
|
-
|
|
3
|
-
|
|
4
|
-
|
|
5
|
-
# 現在の処理(コード)
|
|
6
2
|
|
|
7
3
|
|
|
8
4
|
|
|
@@ -17,6 +13,10 @@
|
|
|
17
13
|
|
|
18
14
|
|
|
19
15
|
また、納品番号については、追加の際はキーが同じほかのレコードと同一のものにしたいと思っております。
|
|
16
|
+
|
|
17
|
+
|
|
18
|
+
|
|
19
|
+
## 現在の処理(コード)
|
|
20
20
|
|
|
21
21
|
|
|
22
22
|
|