teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

2

抽象的な記載の修正

2020/03/10 08:50

投稿

toshi-104
toshi-104

スコア12

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
- .AddNew
50
+ .AddNew
51
+ Else
52
+ .Edit
53
+ End If
46
54
  .Fields("納品番号") = dNumber
47
55
  .Fields("出庫日") = Me!出庫日
48
56
  .Fields("年月") = Format(Me!出庫日, "yymm")

1

書式の改善

2020/03/10 08:50

投稿

toshi-104
toshi-104

スコア12

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