teratail
回答率
85.47%
質問するログイン新規登録
トップVBAに関する質問Accessのテーブル内に値を入れる方法を知りたい

編集履歴

回答編集履歴

3

コード修正

2018/10/28 02:27

投稿

hatena19
hatena19

スコア33755

test CHANGED
@@ -50,7 +50,7 @@
50
50
 
51
51
  Set DB = Nothing
52
52
 
53
- End Sub
53
+ End Function
54
54
 
55
55
  ```
56
56
 

2

コード修正

2018/10/28 02:27

投稿

hatena19
hatena19

スコア33755

test CHANGED
@@ -22,7 +22,7 @@
22
22
 
23
23
  Set DB = CurrentDb
24
24
 
25
- Set RS = DB.OpenRecordset("SELECT シリアルNO, 購入日 FROM テーブル名 " & _
25
+ Set RS = DB.OpenRecordset("SELECT TOP 1 シリアルNO, 購入日 FROM テーブル名 " & _
26
26
 
27
27
  "WHERE 購入日 IS NULL ORDER BY 管理ID;")
28
28
 

1

コードの間違いを修正

2018/10/28 02:19

投稿

hatena19
hatena19

スコア33755

test CHANGED
@@ -30,15 +30,15 @@
30
30
 
31
31
  If RS.EOF Then
32
32
 
33
+ writePurchaseSerialDay = ""
34
+
35
+ Else
36
+
33
37
  RS.Edit
34
38
 
35
39
  RS!購入日 = Date
36
40
 
37
41
  RS.Update
38
-
39
- writePurchaseSerialDay = ""
40
-
41
- Else
42
42
 
43
43
  writePurchaseSerialDay = RS!シリアルNO
44
44