访问存储过程不起作用

Question

以下存储过程无法正常工作，我尝试了所有尝试，但均未成功。 请帮助。

Sub Create_View()

    Dim conn As ADODB.Connection

    Set conn = Application.CurrentProject.Connection

    conn.Execute "CREATE VIEW vw_RobPS AS " & _
    "SELECT sid, " & _
    "Lname, " & _
    "Fname, " & _
    "EmpStatus, " & _
    "[Peax Update as of 6-18-15], " & _
    "[Peax Update Date] " & _
    "FROM Master_06-18-2015" & _
    "WHERE [Peax Update Date] as PeaxUdDt is not null; "

    Application.RefreshDatabaseWindow

ExitHere:
  If Not conn Is Nothing Then
    If conn.State = adStateOpen Then conn.Close
  End If

    Set conn = Nothing
End Sub

当我运行它时，出现以下错误消息：

运行时错误'-2147217900（80040e14）'：FROM子句中的语法错误。

我找不到问题。

Answer 1

1. 您的表格名称包含破折号； 将该名称括在方括号中
2. 在表名和WHERE之间包含一个空格
3. 不要尝试在WHERE子句中为字段加上别名

"FROM [Master_06-18-2015] " & _
"WHERE [Peax Update Date] is not null; "