MS Access zapytanie formularze wyszukiwania - bazy danych, ms-access, ms-access-2016

Jestem nowy w Access i potrzebuję pomocyFormularz wyszukiwania w wielu polach tekstowych w programie Access 2016. Mój formularz zawiera 6 pól, w których użytkownicy mogą wprowadzać dane, aby uzyskać wynik wyszukiwania w podformularzu. Użytkownicy musieliby mieć opcję wprowadzania parametrów wyszukiwania w jednym lub kilku polach, aby uzyskać wyniki. Mamy podobną formę w bazie danych programu Access 2003, którą ludzie uwielbiają. Próbowałem skopiować i zaktualizować kod z bazy danych programu Access 2003, ale nie mogę go uruchomić w bazie danych 2016. Spędziłem tygodnie szukając odpowiedzi i jestem w całkowitej stracie.

Poniższy kod jest tym, co skopiowałem z bazy danych programu Access 2003 i zaktualizowałem dla bieżącej bazy danych:

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

W zapytaniu, które mam Like "*" & [Forms]![WelcomePage]![WCLastName] & "*" Or ([Forms]![WelcomePage]![WCLastName] Is Null) według kryteriów.

Po każdym uruchomieniu wyszukiwania pojawia się komunikat o błędzie"wyrażenie w kliknięciu wprowadzone jako ustawienie właściwości zdarzenia spowodowało następujący błąd: Wystąpił problem podczas komunikowania się programu Microsoft Access z serwerem OLE lub formantem ActiveX."

Każda pomoc w uzyskaniu tego będzie bardzo ceniona!

Odpowiedzi:

Potrzebujesz miejsca przed wszystkimi swoimi "I":

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