こんにちは伊藤です

お世話になります。
(Access2000+MSDE)

CREATE VIEW 後にオブジェクト画面に表示されません
下記どこがだめでしょうか？
ご指導してください。

ビュー画面でAccessメニューの 表示 − 更新 では 再表示できました。


Sub RunScript()
	Debug.Print RunCreateView("VEWM32_原価商品", "M32_原価商品")
End Sub
Function RunCreateView(ViewName As String, TableName As String) As Boolean
On Error GoTo  RunCreateView_Err
    Dim cn As New ADODB.Connection, cm As New ADODB.Command
    Dim batch$, Q$
    Dim ViewSQL As String
    
    Q$ = """"  'quoted id char
    ViewSQL = "CREATE VIEW " & ViewName & " AS SELECT * FROM " & TableName
    
    cn.ConnectionString = CurrentProject.BaseConnectionString
    cn.Open
    
    cm.ActiveConnection = cn
    cm.CommandType = adCmdText
    
    cm.CommandText = ViewSQL
    cm.Execute

    batch$ = "GRANT  SELECT ,  INSERT ,  DELETE ,  UPDATE  ON " & Q$ & ViewName & Q$ & "  TO " & Q$ & "public" & Q$
    cm.CommandText = batch$
 '   cm.Execute
    
    RunCreateView = True

    cn.Close
    Exit Function

 RunCreateView_Err:
    MsgBox Err.Description
    RunCreateView = False
    cn.Close
End Function
_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
     who@example.org
_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/