質問編集履歴
2
Dim Db As DAO.Database, Rs As DAO.Recordset が抜けていたので追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -14,6 +14,9 @@
|
|
|
14
14
|
Set EmpRs = EmpDb.OpenRecordset("empテーブル") 'empテーブルを格納
|
|
15
15
|
EmpRs.MoveFirst
|
|
16
16
|
|
|
17
|
+
|
|
18
|
+
Dim Db As DAO.Database
|
|
19
|
+
Dim Rs As DAO.Recordset
|
|
17
20
|
Dim DbPath As String
|
|
18
21
|
DbPath = "データベース.accdbのパス"
|
|
19
22
|
Set Db = OpenDatabase(DbPath)
|
1
質問文に書き間違いあったため修正しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -23,7 +23,7 @@
|
|
|
23
23
|
|
|
24
24
|
Do Until EmpRs.EOF '最後の行までくりかえす
|
|
25
25
|
|
|
26
|
-
Criteriaon = "[ID] = '" & EmpRs("ID") & "'
|
|
26
|
+
Criteriaon = "[ID] = '" & EmpRs("ID") & "'" '**うまくいかない部分**
|
|
27
27
|
Rs.FindFirst Criteriaon
|
|
28
28
|
|
|
29
29
|
If Rs.NoMatch Then
|
|
@@ -42,7 +42,7 @@
|
|
|
42
42
|
|
|
43
43
|
## 試したこと
|
|
44
44
|
（すべてEmpRs("ID")が11の場合）
|
|
45
|
-
コード：Criteriaon = "[ID] = '" & EmpRs("ID") & "'
|
|
45
|
+
コード：Criteriaon = "[ID] = '" & EmpRs("ID") & "'"
|
|
46
46
|
結果：[ID] = '11
|
|
47
47
|
|
|
48
48
|
コード：Criteriaon = "[ID] = " & Chr(39) & EmpRs("ID") & Chr(39)
|