質問編集履歴
4
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -14,16 +14,6 @@
|
|
|
14
14
|
|
|
15
15
|
|
|
16
16
|
|
|
17
|
-
テーブルとしては
|
|
18
|
-
|
|
19
|
-
テーブル名 EDM
|
|
20
|
-
|
|
21
|
-
カラムが
|
|
22
|
-
|
|
23
|
-
DJNAME,SONGNAME,GENRE,LABEL,YEAR,NO です
|
|
24
|
-
|
|
25
|
-
|
|
26
|
-
|
|
27
17
|
”シート更新”については、SELECT文で取得、表示させているだけですので省きます。
|
|
28
18
|
|
|
29
19
|
call db1については、NOのMAXを取得、max+1した数字をラベルに表示という内容なのでこれも省きます。
|
|
@@ -152,6 +142,30 @@
|
|
|
152
142
|
|
|
153
143
|
MsgBox "データ追加しました"
|
|
154
144
|
|
|
145
|
+
rs.Open "select * from EDM Order by DJNAME,YEAR,SONGNAME", con
|
|
146
|
+
|
|
147
|
+
Columns("A").Hidden = True
|
|
148
|
+
|
|
149
|
+
With Worksheets(1)
|
|
150
|
+
|
|
151
|
+
Application.ScreenUpdating = False
|
|
152
|
+
|
|
153
|
+
.Cells.Clear
|
|
154
|
+
|
|
155
|
+
.Range("B1") = "カラム名"
|
|
156
|
+
|
|
157
|
+
.Range("C1") = "カラム名"
|
|
158
|
+
|
|
159
|
+
.Range("D1") = "カラム名"
|
|
160
|
+
|
|
161
|
+
.Range("E1") = "カラム名"
|
|
162
|
+
|
|
163
|
+
.Range("F1") = "カラム名"
|
|
164
|
+
|
|
165
|
+
.Range("B1:F1").HorizontalAlignment = xlCenter
|
|
166
|
+
|
|
167
|
+
.Range("A2").CopyFromRecordset rs
|
|
168
|
+
|
|
155
169
|
End If
|
|
156
170
|
|
|
157
171
|
|
|
@@ -170,12 +184,6 @@
|
|
|
170
184
|
|
|
171
185
|
FINAL:
|
|
172
186
|
|
|
173
|
-
**rs.Open "select * from EDM Order by DJNAME,YEAR,SONGNAME", con**
|
|
174
|
-
|
|
175
|
-
この時に全データを取得して、表示させているから、本体であればシートが追加データも含め表示されるはず？？
|
|
176
|
-
|
|
177
|
-
|
|
178
|
-
|
|
179
187
|
UserForm2.Label2 = ""
|
|
180
188
|
|
|
181
189
|
UserForm2.Text1.Text = ""
|
3
変更
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -4,7 +4,9 @@
|
|
|
4
4
|
|
|
5
5
|
この時にデータを入力して、”データ追加”ボタンを押したときに、追加に加えて自動的にシートも更新させ、追加したデータも含め表示させたいのですが、うまくいきません。
|
|
6
6
|
|
|
7
|
-
データを追加し、Final処理でデータベースから切断する際、SELECTしたらすべてのデータを取得して表示させているので追加したデータを含め表示できると思ったのですが、
|
|
7
|
+
データを追加し、Final処理でデータベースから切断する際、SELECTしたらすべてのデータを取得して表示させているので追加したデータを含め表示できると思ったのですが、”オブジェクトが開いている間は操作が許可されません。”とのエラー。
|
|
8
|
+
|
|
9
|
+
final処理ではダメなのか
|
|
8
10
|
|
|
9
11
|
|
|
10
12
|
|
2
改善
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -4,7 +4,7 @@
|
|
|
4
4
|
|
|
5
5
|
この時にデータを入力して、”データ追加”ボタンを押したときに、追加に加えて自動的にシートも更新させ、追加したデータも含め表示させたいのですが、うまくいきません。
|
|
6
6
|
|
|
7
|
-
データを追加し、Final処理でデータベースから切断する際、SELECTしたらすべてのデータを取得して表示させているので追加したデータを含め表示できると思ったのですが、全く表示されません。または、
|
|
7
|
+
データを追加し、Final処理でデータベースから切断する際、SELECTしたらすべてのデータを取得して表示させているので追加したデータを含め表示できると思ったのですが、全く表示されません。または、SQL文は動作していてもフォームがあるせいで、シートに反映されないのか。しかし、vbModelessで、シートも動作できるようにしているのですが。
|
|
8
8
|
|
|
9
9
|
|
|
10
10
|
|
1
改善
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -4,9 +4,11 @@
|
|
|
4
4
|
|
|
5
5
|
この時にデータを入力して、”データ追加”ボタンを押したときに、追加に加えて自動的にシートも更新させ、追加したデータも含め表示させたいのですが、うまくいきません。
|
|
6
6
|
|
|
7
|
-
データを追加し、Final処理でデータベースから切断する際、SELECTしたら
|
|
7
|
+
データを追加し、Final処理でデータベースから切断する際、SELECTしたらすべてのデータを取得して表示させているので追加したデータを含め表示できると思ったのですが、全く表示されません。または、更新していてもフォームがあるせいで、シートが起動していないのか。しかし、vbModelessで、シートも動作できるようにしているのですが。
|
|
8
8
|
|
|
9
|
+
|
|
10
|
+
|
|
9
|
-
現状フォームで入力し、追加した時点ではシート上にに追加データが表示されなくて、わざわざ”シート更新”ボタンを押さないと追加データが見えないです。
|
|
11
|
+
現状フォームで入力し、追加した時点ではシート上にに追加データが表示されなくて、わざわざ”シート更新”ボタンを押さないと追加データが見えないのです。
|
|
10
12
|
|
|
11
13
|
|
|
12
14
|
|
|
@@ -166,7 +168,11 @@
|
|
|
166
168
|
|
|
167
169
|
FINAL:
|
|
168
170
|
|
|
169
|
-
rs.Open "select * from EDM Order by DJNAME,YEAR,SONGNAME", con
|
|
171
|
+
**rs.Open "select * from EDM Order by DJNAME,YEAR,SONGNAME", con**
|
|
172
|
+
|
|
173
|
+
この時に全データを取得して、表示させているから、本体であればシートが追加データも含め表示されるはず？？
|
|
174
|
+
|
|
175
|
+
|
|
170
176
|
|
|
171
177
|
UserForm2.Label2 = ""
|
|
172
178
|
|