teratail
回答率
85.48%
質問するログイン新規登録
トップに関する質問Access　VBA　指定データ取込/フォームに実装　エラー：オブジェクトが開いている場合は、

編集履歴

質問編集履歴

8

修正

2016/03/10 09:28

投稿

nekomura
nekomura

スコア132

test CHANGED
File without changes
test CHANGED
@@ -4,9 +4,11 @@
4
4
 
5
5
  hogeFrom とhogeToとしたテキストボックスに検索条件を入力し、
6
6
 
7
- ボタンを押下するとaccessで作ったテーブル（ChargeInfo）のデータ（接続文字列）でSQLサーバにあるテーブル”hogehogeCountry”の内容を、以下の条件でフォーム上のリストに反映されるようにしたいです。
7
+ ボタンを押下すると、accessで作ったテーブル（ChargeInfo）のデータ（接続文字列）でSQLサーバにあるテーブル”hogehogeCountry”の内容を取得し、フォーム上のリストに反映されるようにしたいです。
8
8
 
9
+
10
+
9
- 本日同様の質問をしておりますが、一から自分で書いたコードのため、エラーが出るたびに進めなくなり、解決するたびに新しいエラー内容を記載に質問を再度させていただいております。
11
+ 本日同様の質問をしておりますが、一から自分で書いたコードのため、エラーが出るたびに進めなくなり、解決するたびに新しいエラー内容を記載し、再質問をさせていただいております。
10
12
 
11
13
  （こういった投稿の仕方が違反であれば、教えていただければ幸いです）
12
14
 

7

修正

2016/03/10 09:27

投稿

nekomura
nekomura

スコア132

test CHANGED
File without changes
test CHANGED
@@ -4,7 +4,7 @@
4
4
 
5
5
  hogeFrom とhogeToとしたテキストボックスに検索条件を入力し、
6
6
 
7
- ボタンを押下するとaccessで作ったテーブル（ChargeInfo）のデータが以下の条件でフォーム上のリストに反映されるようにしたいです。
7
+ ボタンを押下するとaccessで作ったテーブル（ChargeInfo）のデータ（接続文字列）でSQLサーバにあるテーブル”hogehogeCountry”の内容を、以下の条件でフォーム上のリストに反映されるようにしたいです。
8
8
 
9
9
  本日同様の質問をしておりますが、一から自分で書いたコードのため、エラーが出るたびに進めなくなり、解決するたびに新しいエラー内容を記載に質問を再度させていただいております。
10
10
 

6

修正

2016/03/10 09:26

投稿

nekomura
nekomura

スコア132

test CHANGED
File without changes
test CHANGED
@@ -12,7 +12,7 @@
12
12
 
13
13
 
14
14
 
15
- まずは、表題のエラーを解決したいです。
15
+ まずは、表題のエラー（”オブジェクトが開いている間は、操作は許可されません”）を解決したいです。
16
16
 
17
17
  有識者の方々お知恵を貸してください。
18
18
 

5

修正

2016/03/10 09:24

投稿

nekomura
nekomura

スコア132

test CHANGED
File without changes
test CHANGED
@@ -14,7 +14,17 @@
14
14
 
15
15
  まずは、表題のエラーを解決したいです。
16
16
 
17
- 有識者の方々お知恵を貸してください。
17
+ 有識者の方々お知恵を貸してください。
18
+
19
+
20
+
21
+ ※備考
22
+
23
+ ・リストに表示したいデータは、SQLサーバの”hogehogeCountry”に格納されている
24
+
25
+ ・SQLサーバへの接続文字列は、同一Accessファイル内のテーブルに格納していて、strSqlとして使用したい
26
+
27
+
18
28
 
19
29
 
20
30
 

4

修正

2016/03/10 09:08

投稿

nekomura
nekomura

スコア132

test CHANGED
File without changes
test CHANGED
@@ -19,52 +19,6 @@
19
19
 
20
20
 
21
21
  ```Private Sub データ取得_Click()
22
-
23
- ' __On Error GoTo Err_データ取得_Click
24
-
25
- __
26
-
27
- Dim invFrom As Variant
28
-
29
- Dim invTo As Variant
30
-
31
-
32
-
33
- invFrom = Me.invoiceFrom.Value
34
-
35
- invTo = Me.invoiceTo.Value
36
-
37
-
38
-
39
- If IsNull(invoiceFrom) And IsNull(invoiceTo) = True Then __ '検索条件が未入力の場合
40
-
41
- __ ' If IsNull(Me.invoiceFrom.Value And Me.invoiceTo.Value) = True Then
42
-
43
- MsgBox "検索条件を指定してください"
44
-
45
- Exit Sub
46
-
47
-
48
-
49
-
50
-
51
- End If
52
-
53
- //（###もしテキストボックスのいずれか（もしくは両方）に、検索条件として値が入っていた場合）
54
-
55
- 以下より実現したい内容と、そのコード。
56
-
57
- ・データを取得してリスト表示
58
-
59
- ・データは、SQLサーバの”hogehogeCountry”に格納されている
60
-
61
- ・SQLサーバへの接続文字列は、同一Accessファイル内のテーブルに格納していて、strSqlとして使用する
62
-
63
-
64
-
65
- ```ここに言語を入力
66
-
67
- Private Sub データ取得_Click()
68
22
 
69
23
  ' On Error GoTo Err_データ取得_Click
70
24
 
@@ -160,6 +114,4 @@
160
114
 
161
115
  End If
162
116
 
163
-
164
-
165
117
  ```

3

見づらいコードを修正

2016/03/10 09:05

投稿

nekomura
nekomura

スコア132

test CHANGED
File without changes
test CHANGED
@@ -62,9 +62,55 @@
62
62
 
63
63
 
64
64
 
65
- ** If Not IsNull(invoiceFrom) Or IsNull(invoiceTo) = True Then __'いずれかが入力されている場合
65
+ ```ここに言語を入力
66
66
 
67
+ Private Sub データ取得_Click()
68
+
69
+ ' On Error GoTo Err_データ取得_Click
70
+
71
+
72
+
73
+ Dim invFrom As Variant
74
+
75
+ Dim invTo As Variant
76
+
77
+
78
+
79
+ invFrom = Me.invoiceFrom.Value
80
+
81
+ invTo = Me.invoiceTo.Value
82
+
83
+
84
+
85
+ If IsNull(invoiceFrom) And IsNull(invoiceTo) = True Then '検索条件が未入力の場合
86
+
87
+
88
+
89
+ MsgBox "検索条件を指定してください"
90
+
91
+ Exit Sub
92
+
93
+
94
+
95
+
96
+
97
+ End If
98
+
99
+ //（もしテキストボックスのいずれか（もしくは両方）に、検索条件として値が入っていた場合）
100
+
101
+ 以下より実現したい内容と、そのコード。
102
+
103
+ ・データを取得してリスト表示
104
+
105
+ ・データは、SQLサーバの”hogehogeCountry”に格納されている
106
+
107
+ ・SQLサーバへの接続文字列は、同一Accessファイル内のテーブルに格納していて、strSqlとして使用する
108
+
109
+
110
+
67
- __' If Not IsNull(Me.invoiceFrom.Value Or Me.invoiceTo.Value) = True Then
111
+ If Not IsNull(invoiceFrom) Or IsNull(invoiceTo) = True Then 'いずれかが入力されている場合
112
+
113
+
68
114
 
69
115
 
70
116
 
@@ -90,7 +136,7 @@
90
136
 
91
137
  objCon.ConnectionString = strSql //ここでエラー
92
138
 
93
- --- objCon.Open
139
+ objCon.Open
94
140
 
95
141
  objRs.Open "hogehogeCountry", objCon, adOpenKeyset, adLockOptimistic
96
142
 
@@ -116,4 +162,4 @@
116
162
 
117
163
 
118
164
 
119
- **```
165
+ ```

2

コードを見やすいよう修正いたしました

2016/03/10 09:02

投稿

nekomura
nekomura

スコア132

test CHANGED
File without changes
test CHANGED
@@ -18,7 +18,7 @@
18
18
 
19
19
 
20
20
 
21
- Private Sub データ取得_Click()
21
+ ```Private Sub データ取得_Click()
22
22
 
23
23
  ' __On Error GoTo Err_データ取得_Click
24
24
 
@@ -116,4 +116,4 @@
116
116
 
117
117
 
118
118
 
119
- **
119
+ **```

1

誤字のため修正しました。

2016/03/10 08:58

投稿

nekomura
nekomura

スコア132

test CHANGED
File without changes
test CHANGED
@@ -6,7 +6,7 @@
6
6
 
7
7
  ボタンを押下するとaccessで作ったテーブル（ChargeInfo）のデータが以下の条件でフォーム上のリストに反映されるようにしたいです。
8
8
 
9
- 本日同様の質問をしておりますが、位置から自分で書いたコードのため、エラーが出るたびに進めなくなり、解決するたびに新しいエラー内容を記載に質問を再度させていただいております。
9
+ 本日同様の質問をしておりますが、一から自分で書いたコードのため、エラーが出るたびに進めなくなり、解決するたびに新しいエラー内容を記載に質問を再度させていただいております。
10
10
 
11
11
  （こういった投稿の仕方が違反であれば、教えていただければ幸いです）
12
12
 
@@ -117,111 +117,3 @@
117
117
 
118
118
 
119
119
  **
120
-
121
-
122
-
123
-
124
-
125
-
126
-
127
-
128
-
129
-
130
-
131
-
132
-
133
- 'Dim strSql As String
134
-
135
- '
136
-
137
- ' strSql = "SELECT ID 1 value FROM ChargeInfo" 'accsessのテーブルデータより接続文字列取得
138
-
139
- '
140
-
141
- 'Dim objCon As New ADODB.Connection
142
-
143
- 'Dim objRs As New ADODB.Recordset
144
-
145
- '
146
-
147
- ' objCon.ConnectionString = strSql.Value
148
-
149
- ' objCon.Open
150
-
151
- ' objRs.Open "tbmCountry", objCon, adOpenKeyset, adLockOptimistic
152
-
153
- '
154
-
155
- ' Set Me.Recordset = objRs
156
-
157
- ' End If
158
-
159
- '
160
-
161
- ' 'strSql = "SELECT IIF"
162
-
163
- ' If objRs >= 500 Then
164
-
165
- ' MsgBox "検索条件を指定してください"
166
-
167
- '
168
-
169
- ' End If
170
-
171
- '
172
-
173
- '
174
-
175
- '
176
-
177
- '
178
-
179
- '
180
-
181
- '
182
-
183
- '
184
-
185
- ' objRs.Close
186
-
187
- ' objCon.Close
188
-
189
- '
190
-
191
- ' Set objRs = Nothing
192
-
193
- ' Set objCon = Nothing
194
-
195
- '
196
-
197
- '
198
-
199
- '
200
-
201
- '
202
-
203
-
204
-
205
-
206
-
207
- 'Exit_データ取得_Click:
208
-
209
- ' Exit Sub
210
-
211
- '
212
-
213
- 'Err_データ取得_Click:
214
-
215
- ' MsgBox ERR.Description
216
-
217
- ' Resume Exit_データ取得_Click
218
-
219
-
220
-
221
-
222
-
223
- End Sub
224
-
225
-
226
-
227
- 実装したい