質問編集履歴
1
Application.RefreshDatabaseWindowの一文を加え更新作業を追加しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -74,4 +74,47 @@
|
|
|
74
74
|
|
|
75
75
|
職場ではAccess2013、今後テスト時は2010を用意
|
|
76
76
|
自宅ではAccess2016を仕様しています。
|
|
77
|
-
現場ではAccess2010で実行しないといけません。
|
|
77
|
+
現場ではAccess2010で実行しないといけません。
|
|
78
|
+
|
|
79
|
+
### 追記
|
|
80
|
+
F5キーをVBE側で押下した後、アプリケーション画面に戻りF5キーを押下すると、テーブルが表示されました。
|
|
81
|
+
そこで、Application.RefreshDatabaseWindowという一文を追加し、全体を下記の様にしたところ、表示されました。
|
|
82
|
+
画面の更新がされていなかっただけということでしょうか？
|
|
83
|
+
|
|
84
|
+
```VBA
|
|
85
|
+
Option Compare Database
|
|
86
|
+
Option Explicit
|
|
87
|
+
|
|
88
|
+
Sub createTable()
|
|
89
|
+
|
|
90
|
+
On Error GoTo Sub_Error
|
|
91
|
+
|
|
92
|
+
Dim dbs As DAO.Database
|
|
93
|
+
Dim table As DAO.TableDef
|
|
94
|
+
|
|
95
|
+
Set dbs = CurrentDb()
|
|
96
|
+
Set table = dbs.CreateTableDef("Sample5")
|
|
97
|
+
|
|
98
|
+
With table
|
|
99
|
+
.Fields.Append .CreateField("F1", dbInteger)
|
|
100
|
+
.Fields.Append .CreateField("F2", dbDate)
|
|
101
|
+
.Fields.Append .CreateField("F3", dbInteger)
|
|
102
|
+
|
|
103
|
+
End With
|
|
104
|
+
|
|
105
|
+
dbs.TableDefs.Append table
|
|
106
|
+
Application.RefreshDatabaseWindow
|
|
107
|
+
|
|
108
|
+
Sub_Exit:
|
|
109
|
+
Set table = Nothing
|
|
110
|
+
dbs.Close
|
|
111
|
+
Set dbs = Nothing
|
|
112
|
+
Exit Sub
|
|
113
|
+
|
|
114
|
+
Sub_Error:
|
|
115
|
+
MsgBox "エラー番号:" & Err.Number & vbCrLf & "エラーの種類:" & Err.Description, vbExclamation
|
|
116
|
+
GoTo Sub_Exit
|
|
117
|
+
|
|
118
|
+
End Sub
|
|
119
|
+
|
|
120
|
+
```
|