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
Спасибо