質問編集履歴

3

ACCESS機能について追記

2021/12/15 04:46

投稿

Beer_Rabbit
Beer_Rabbit

スコア70

test CHANGED
File without changes
test CHANGED
@@ -34,7 +34,15 @@
34
34
 
35
35
 
36
36
 
37
+ ちなみに、ACCESSで下記の
37
38
 
39
+ 「f.試験レベル.column(0, iLevel)」をデバック時に
40
+
41
+ 中身をみるためにはどうしたらよいでしょうか。
42
+
43
+
44
+
45
+ ウォッチではみれませんでした。
38
46
 
39
47
 
40
48
 

2

コードを追記しました。

2021/12/15 04:45

投稿

Beer_Rabbit
Beer_Rabbit

スコア70

test CHANGED
File without changes
test CHANGED
@@ -6,7 +6,7 @@
6
6
 
7
7
 
8
8
 
9
- ストアドよりデータ取得して、レポート作成しております。
9
+ ストアドよりデータ取得して、エクセルへ出力しております。
10
10
 
11
11
 
12
12
 
@@ -31,3 +31,43 @@
31
31
  ご教授くださいませ。
32
32
 
33
33
  よろしくお願いいたします。
34
+
35
+
36
+
37
+
38
+
39
+
40
+
41
+
42
+
43
+ ```ACCESS側(accdb)
44
+
45
+
46
+
47
+ Dim rsLevel As New ADODB.Recordset
48
+
49
+ Dim rs As New ADODB.Recordset
50
+
51
+ Dim iLevel As Variant
52
+
53
+ Dim testLevel As String
54
+
55
+
56
+
57
+ '選択したレベル毎にシート出力
58
+
59
+ For Each iLevel In f.レベル.ItemsSelected
60
+
61
+
62
+
63
+ ''''この間で「「3704」オブジェクトが閉じている場合、操作は許可されません。」がでています。
64
+
65
+
66
+
67
+ testLevel = f.レベル.column(0, iLevel)
68
+
69
+
70
+
71
+
72
+
73
+ ```

1

追記

2021/12/15 04:43

投稿

Beer_Rabbit
Beer_Rabbit

スコア70

test CHANGED
File without changes
test CHANGED
@@ -2,48 +2,32 @@
2
2
 
3
3
 
4
4
 
5
- ここに質問の内容を詳しく書いてください。
6
-
7
- (例)PHP(CakePHP)で●●なシステム作っています。
5
+ VBA側から実行すると「3704」オブジェクトが閉じている場合、操作は許可されせん。というエラーがでます。
8
-
9
- ■■な機能を実装中に以下のエラーメッセージが発生しました。
10
6
 
11
7
 
12
8
 
13
- ### 発生している問題・エラメッセージ
9
+ ストアドよりデータ取得して、レポト作成しております。
14
10
 
15
11
 
16
12
 
17
- ```
13
+ 試したことは、
18
14
 
19
- エラーメッセージ
15
+ ストアド側に AS の直後に SET NOCOUNT ONを追加
20
-
21
- ```
22
16
 
23
17
 
24
18
 
25
- ### 該当ソーコー
19
+ VBA側RS.CLOCE(RSはトアで取得した行)を
20
+
21
+ コメントアウトすると解消されるが、出力結果は反映されない結果となる。
26
22
 
27
23
 
28
24
 
29
- ```ここに言語名を入力
25
+ rs As ADODB.Recordset で定義しております。
30
-
31
- ソースコード
32
-
33
- ```
34
26
 
35
27
 
36
28
 
37
- ### 試たこと
29
+ エラー解消に向けて、どのような見当をつけたらよいでょうか。
38
30
 
31
+ ご教授くださいませ。
39
32
 
40
-
41
- ここに問題に対して試したことを記載してください。
42
-
43
-
44
-
45
- ### 補足情報(FW/ツールのバージョンなど)
46
-
47
-
48
-
49
- ここにり詳細な情報を記載ださい。
33
+ しくお願いたします