質問編集履歴
1
Application.RefreshDatabaseWindowの一文を加え更新作業を追加しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -151,3 +151,89 @@
|
|
|
151
151
|
自宅ではAccess2016を仕様しています。
|
|
152
152
|
|
|
153
153
|
現場ではAccess2010で実行しないといけません。
|
|
154
|
+
|
|
155
|
+
|
|
156
|
+
|
|
157
|
+
### 追記
|
|
158
|
+
|
|
159
|
+
F5キーをVBE側で押下した後、アプリケーション画面に戻りF5キーを押下すると、テーブルが表示されました。
|
|
160
|
+
|
|
161
|
+
そこで、Application.RefreshDatabaseWindowという一文を追加し、全体を下記の様にしたところ、表示されました。
|
|
162
|
+
|
|
163
|
+
画面の更新がされていなかっただけということでしょうか？
|
|
164
|
+
|
|
165
|
+
|
|
166
|
+
|
|
167
|
+
```VBA
|
|
168
|
+
|
|
169
|
+
Option Compare Database
|
|
170
|
+
|
|
171
|
+
Option Explicit
|
|
172
|
+
|
|
173
|
+
|
|
174
|
+
|
|
175
|
+
Sub createTable()
|
|
176
|
+
|
|
177
|
+
|
|
178
|
+
|
|
179
|
+
On Error GoTo Sub_Error
|
|
180
|
+
|
|
181
|
+
|
|
182
|
+
|
|
183
|
+
Dim dbs As DAO.Database
|
|
184
|
+
|
|
185
|
+
Dim table As DAO.TableDef
|
|
186
|
+
|
|
187
|
+
|
|
188
|
+
|
|
189
|
+
Set dbs = CurrentDb()
|
|
190
|
+
|
|
191
|
+
Set table = dbs.CreateTableDef("Sample5")
|
|
192
|
+
|
|
193
|
+
|
|
194
|
+
|
|
195
|
+
With table
|
|
196
|
+
|
|
197
|
+
.Fields.Append .CreateField("F1", dbInteger)
|
|
198
|
+
|
|
199
|
+
.Fields.Append .CreateField("F2", dbDate)
|
|
200
|
+
|
|
201
|
+
.Fields.Append .CreateField("F3", dbInteger)
|
|
202
|
+
|
|
203
|
+
|
|
204
|
+
|
|
205
|
+
End With
|
|
206
|
+
|
|
207
|
+
|
|
208
|
+
|
|
209
|
+
dbs.TableDefs.Append table
|
|
210
|
+
|
|
211
|
+
Application.RefreshDatabaseWindow
|
|
212
|
+
|
|
213
|
+
|
|
214
|
+
|
|
215
|
+
Sub_Exit:
|
|
216
|
+
|
|
217
|
+
Set table = Nothing
|
|
218
|
+
|
|
219
|
+
dbs.Close
|
|
220
|
+
|
|
221
|
+
Set dbs = Nothing
|
|
222
|
+
|
|
223
|
+
Exit Sub
|
|
224
|
+
|
|
225
|
+
|
|
226
|
+
|
|
227
|
+
Sub_Error:
|
|
228
|
+
|
|
229
|
+
MsgBox "エラー番号:" & Err.Number & vbCrLf & "エラーの種類:" & Err.Description, vbExclamation
|
|
230
|
+
|
|
231
|
+
GoTo Sub_Exit
|
|
232
|
+
|
|
233
|
+
|
|
234
|
+
|
|
235
|
+
End Sub
|
|
236
|
+
|
|
237
|
+
|
|
238
|
+
|
|
239
|
+
```
|