Заявка за заявка за достъп до MS Access - база данни, ms-достъп, 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