回答率: 85.30%

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

トップ VBAに関する質問 Accessのテーブル内に値を入れる方法を知りたい

編集履歴

回答編集履歴

3

コード修正

2018/10/28 02:27

投稿

スコア34367

answer CHANGED Viewed

@@ -24,7 +24,7 @@
     RS.Clone: Set RS = Nothing
     Set DB = Nothing
-End Sub
+End Function
 ```
 「シリアルNO」のデータ型はテキスト型と仮定してます。

2

コード修正

2018/10/28 02:27

投稿

スコア34367

answer CHANGED Viewed

@@ -10,7 +10,7 @@
     Dim DB As DAO.Database
     Dim RS As DAO.Recordset
     Set DB = CurrentDb
-    Set RS = DB.OpenRecordset("SELECT シリアルNO, 購入日 FROM テーブル名 " & _
+    Set RS = DB.OpenRecordset("SELECT TOP 1 シリアルNO, 購入日 FROM テーブル名 " & _
                               "WHERE 購入日 IS NULL ORDER BY 管理ID;")
     If RS.EOF Then

1

コードの間違いを修正

2018/10/28 02:19

投稿

スコア34367

answer CHANGED Viewed

@@ -14,11 +14,11 @@
                               "WHERE 購入日 IS NULL ORDER BY 管理ID;")
     If RS.EOF Then
+        writePurchaseSerialDay = ""
+    Else
         RS.Edit
         RS!購入日 = Date
         RS.Update
-        writePurchaseSerialDay = ""
-    Else
         writePurchaseSerialDay = RS!シリアルNO
     End If