Question

Access2010 编译出现 无效的sql语句，期待‘DELETE’、‘Insert’

跟着书上的代码打的，但是不知道错在哪里了，在Access 2010的窗体代码生成器中输入的，打开窗体按钮可以有相应效果，代码如下，不知道哪里错了。谢谢了

Private Function HandleButtonClick(intbtn As Integer)
'处理按钮click事件
Const conCmdGotoSwitchboard = 1
Const conCmdNewForm = 2
Const conCmdOpenReport = 3
Const conCmdExitApplication = 4
Const conCmdRunMacro = 8
Const conCmdRunCode = 9
Const conCmdOpenPage = 10
Const conErrDoCmdCancelled = 2501
Dim rs As ADODB.Recordset
Dim strSQL As String
On Error GoTo HandleButtonClick_Err
Set rs = CreateObject("ADODB.Recordset")
strSQL = "SELECK * FROM [SwitchboardItems]"
strSQL = strSQL & "WHERE [SwitchboardID}=" & Me![SwitchboardID] & " AND [ItemNumber] = " & intbtn
Set rs = GetRS(strSQL)
If (rs.EOF) Then
MsgBox "读取 SwitchboardItems 表时出错。 "
rs.Close
Set rs = Nothing
Exit Function
End If

Select Case rs![Command] '进入另一个切换面板
Case conCmdGotoSwitchboard
Me.Filter = "[ItemNumber] = 0 AND [SwitchboardID]=" & rs![Argument]
'打开一个新窗体
Case conCmdNewForm
DoCmd.OpenReport rs![Argument], acPreview
' 推出应用程序
Case conCmdExitApplication
CloseCurrentDatabase
' 运行宏
Case conCmdRunMacro
DoCmd.RunMacro rs![Argument]
'运行代码
Case conCmdRunCode
Application.Run rs![Argument]
。。。。。。。
Else
MsgBox "执行命令时出错。", vbCritical
Resume HandleButtonClick_Exit
End If

End Function

Answer 1

把这句
strSQL = "SELECK * FROM [SwitchboardItems]"
改成
strSQL = "SELECT * FROM [SwitchboardItems]"
再试试。