एमएस एक्सेस सर्च फॉर्म क्वेरी - डेटाबेस, एमएस-एक्सेस, एमएस-एक्सेस-2016

मैं एक्सेस के लिए नया हूं और मुझे मदद की जरूरत हैएक्सेस 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) मापदंड के तहत।

जब भी मैं खोज चलाता हूं मुझे एक त्रुटि संदेश मिलता हैयह कहते हुए कि "क्लिक पर आपके द्वारा प्रविष्ट की गई घटना संपत्ति सेटिंग के रूप में दर्ज की गई निम्न त्रुटि उत्पन्न करती है: Microsoft Access OLE सर्वर या ActiveX नियंत्रण के साथ संचार करते समय एक समस्या हुई।"

यह काम करने में कोई मदद बहुत सराहना की जाएगी!

उत्तर:

आपको अपने सभी "और" के सामने स्थान की आवश्यकता है

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