2014-12-15 3 views
0

Microsoft 2010 дает мне следующую ошибкуОшибка компиляции: Ошибка синтаксиса ACCESS 2010-MS VBA ошибка доступа к базе данных

«Ошибка компиляции: ошибка синтаксиса»

В окне VBA для этой форме он выделяет следующую строку код в строке 3 «strSQL =" SELECT PID из tblMSCSPersonnel WHERE ПЛА = '& Me TextSSN &! "';" "

весь код ниже

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

Спасибо

ответ

0

Может удалить точку с запятой и использовать меня.

strSQL = "SELECT PID from tblMSCSPersonnel WHERE SSN = '" & Me.TextSSN & "'" 
Смежные вопросы