Запит форми пошуку MS Access - база даних, ms-access, ms-access-2016

Я новачок у Access і мені потрібна допомогабагатотекстова форма пошуку в Access 2016. У моїй формі є 6 полів, в які користувачі можуть вводити дані, щоб отримати результат пошуку в підформі. Користувачі повинні мати можливість вводити параметри пошуку в одне або кілька полів, щоб отримати результати. Ми маємо аналогічну форму в базі даних Access 2003, яку люблять люди. Я спробував скопіювати та оновити код з бази даних Access 2003, але, здається, не можу змусити його працювати в базі даних 2016 року. Я витратив тижні на пошуки відповідей і я втрачаю повну втрату.

Нижче наведений код, який я скопіював із бази даних Access 2003 та оновив для поточної бази даних:

Private Sub cmdWCSearch_Click()
Dim strsql As String

strsql = "SELECT * FROM qryWCSearch WHERE ID > 0"

If Not IsNull(Me.WCLastName) Then
strsql = strsql & "And [WCLastName] Like "*" & Me.WCLastName & "*""
End If

If Not IsNull(Me.WCDOI) Then
strsql = strsql & "And [WCDOI] Like "*" & Me.WCDOI & "*""
End If

If Not IsNull(Me.WCWorkStatus) Then
strsql = strsql & "And [WCWorkStatus] Like "*" & Me.WCWorkStatus & "*""
End If

If Not IsNull(Me.WCClaimNumber) Then
strsql = strsql & "And [WCClaimNumber] Like "*" & Me.WCClaimNumber & "*""
End If

If Not IsNull(Me.WCBodyPart) Then
strsql = strsql & "And [WCBodyPart] Like "*" & Me.WCBodyPart & "*""
End If

If Not IsNull(Me.WCClaimStatus) Then
strsql = strsql & "And [WCClaimStatus] Like "*" & Me.WCClaimStatus & "*""
End If

End Sub

У запиті я Like "*" & [Forms]![WelcomePage]![WCLastName] & "*" Or ([Forms]![WelcomePage]![WCLastName] Is Null) за критеріями.

Щоразу, коли я запускаю пошук, я отримую повідомлення про помилкукажучи: "Вираз On Click ви ввели як налаштування властивості події, викликали таку помилку: Проблема сталася, коли Microsoft Access спілкувався з сервером OLE або ActiveX Control."

Будемо дуже вдячні за будь-яку допомогу в налагодженні цієї роботи!

Відповіді:

Вам потрібно пробіл перед усіма вашими "і":

If Not IsNull(Me.WCLastName) Then
strsql = strsql & " And [WCLastName] Like "*" & Me.WCLastName & "*""
End If