Question

Microsoft Access 2010数据库给出了以下错误

＆＃34;编译错误：语法错误＆＃34;

在此表单的VBA窗口中，它突出显示第3行的以下代码行＆＃34; strSQL =＆＃34;来自tblMSCSPersonnel的SELECT PID WHERE SSN =＆＃39;＆＃34; ＆安培;我！TextSSN＆amp; ＆＃34;＆＃39;;＆＃34; ＆＃34;

整个代码在

之下

Private Sub Form_Current（） Dim strSQL As String

strSQL = "SELECT PID from tblMSCSPersonnel WHERE SSN = '" & Me!TextSSN & "';"
Set rs = CurrentDb.OpenRecordset(strSQL)

If rs.RecordCount = 0 Then ' not in the personnel database
   CmdAddToPersonnel.Enabled = True
Else
   CmdAddToPersonnel.Enabled = False
End If


If Me![CmdSubmit].Visible = True Then

  Me![CmdSubmit].Visible = False
  Me![cmdCancel].Visible = False
End If

End Sub

由于

Answer 1

也许删除分号并使用我。

strSQL = "SELECT PID from tblMSCSPersonnel WHERE SSN = '" & Me.TextSSN & "'"

编译错误：语法错误-MS ACCESS 2010 VBA错误

1 个答案: