Ошибка выполнения VBA 3131 MS access 2016 Pro Plus

Question

, поэтому приведенный ниже код говорит о наличии проблемы; Однако я не могу понять это.

Я пытаюсь создать форму поиска, и VBA постоянно говорит мне, что это неправильно. Я совсем не программист, а просто делаю это для проекта, в котором я работаю. любая помощь очень ценится.

Private Sub search_Click()
Dim strsearch As String
Dim Task As String
'Check if a keyword entered or not
If IsNull(Me.txtSearch) Or Me.txtSearch = "" Then
   MsgBox "Please type last name of client.", vbOKOnly, "Keyword Needed"
   Me.txtSearch.BackColor = vbYellow
   Me.txtSearch.SetFocus
Else
    strsearch = Me.txtSearch.Value
    Task = "SELECT * FROM tbl_table-application WHERE ((Last_Name Like ""*" & strsearch & "*""))"
**   Me.RecordSource = Task**
   Me.txtSearch.BackColor = vbWhite
End If
End Sub

Answer 1

Имя таблицы имеет дефис, поэтому необходимо заключить в []: [tbl_table-application]. Не советуйте использовать пробелы и знаки препинания / специальные символы в соглашении об именах. Только подчеркивание является допустимым исключением, которое будет работать без [].