質問編集履歴
2
抽象的な記載の修正
title
CHANGED
File without changes
|
body
CHANGED
@@ -7,6 +7,8 @@
|
|
7
7
|
|
8
8
|
また、納品番号については、追加の際はキーが同じほかのレコードと同一のものにしたいと思っております。
|
9
9
|
|
10
|
+
現在、キーが重複しているレコードが上書きできず、「.Update」のところで躓きます。
|
11
|
+
|
10
12
|
## 現在の処理(コード)
|
11
13
|
|
12
14
|
```VBA
|
@@ -19,6 +21,7 @@
|
|
19
21
|
Dim Rs As Recordset
|
20
22
|
Dim Rst As DAO.Recordset
|
21
23
|
Set Rst = CurrentDb.OpenRecordset("50_納品データ", dbOpenTable)
|
24
|
+
Set Rsd = CurrentDb.OpenRecordset("50_納品データ", dbOpenDynaset)
|
22
25
|
Set Fms = Me.Form.Recordset
|
23
26
|
|
24
27
|
oDate = Format(Me!出庫日, "yymm")
|
@@ -42,7 +45,12 @@
|
|
42
45
|
countRst = 0
|
43
46
|
Do Until Fms.EOF
|
44
47
|
With Rst
|
48
|
+
Rsd.FindFirst "[商品ID] like '" & Me.[商品ID] & "*' and [販売先ID] like '" & Me.[販売先ID] & "*' and [出庫日] like '" & Me.[出庫日] & "*' and [取引形態ID] like '" & Me.[取引形態ID] & "*'"
|
49
|
+
If Rst.NoMatch = False Then
|
45
|
-
|
50
|
+
.AddNew
|
51
|
+
Else
|
52
|
+
.Edit
|
53
|
+
End If
|
46
54
|
.Fields("納品番号") = dNumber
|
47
55
|
.Fields("出庫日") = Me!出庫日
|
48
56
|
.Fields("年月") = Format(Me!出庫日, "yymm")
|
1
書式の改善
title
CHANGED
File without changes
|
body
CHANGED
@@ -1,7 +1,5 @@
|
|
1
1
|
**「出庫データ」**というテーブルをもとに、**「納品データ」**というテーブルに出たを書き込みたいと思っています。
|
2
2
|
|
3
|
-
# 現在の処理(コード)
|
4
|
-
|
5
3
|
現在はキーが重複するレコードがあればエラーになります。
|
6
4
|
これを以下のキーで照合し、重複する場合は上書きし、なければ追加するようにしたいです。
|
7
5
|
|
@@ -9,6 +7,8 @@
|
|
9
7
|
|
10
8
|
また、納品番号については、追加の際はキーが同じほかのレコードと同一のものにしたいと思っております。
|
11
9
|
|
10
|
+
## 現在の処理(コード)
|
11
|
+
|
12
12
|
```VBA
|
13
13
|
|
14
14
|
On Error GoTo 納品データ作成_Click_Err
|