Olá Senhores.
Como informado no título do tópico, estou com este problema no seguinte comando:
Private Sub txtExpertise_Change()
Dim strSql As String
strSql = "SELECT Name,[Second Name],[Phonne],[Email],[Company],[Department],[Country],[Expertise],Keyword FROM BDExpertise WHERE" & _
"strConv(Name, 2, 1042) like '*" & StrConv(Me!txtExpertise.Text, 2, 1042) & "*'" & _
"OR strConv([Second Name], 2, 1042) like '*" & StrConv(Me!txtExpertise.Text, 2, 1042) & "*'" & _
"OR strConv([Phonne], 2, 1042) like '*" & StrConv(Me!txtExpertise.Text, 2, 1042) & "*'" & _
"OR strConv([Email], 2, 1042) like '*" & StrConv(Me!txtExpertise.Text, 2, 1042) & "*'" & _
"OR strConv([Company], 2, 1042) like '*" & StrConv(Me!txtExpertise.Text, 2, 1042) & "*'" & _
"OR strConv([Department], 2, 1042) like '*" & StrConv(Me!txtExpertise.Text, 2, 1042) & "*'" & _
"OR strConv([Country], 2, 1042) like '*" & StrConv(Me!txtExpertise.Text, 2, 1042) & "*'" & _
"OR strConv([Expertise], 2, 1042) like '*" & StrConv(Me!txtExpertise.Text, 2, 1042) & "*'" & _
"OR strConv([Keyword], 2, 1042) like '*" & StrConv(Me!txtExpertise.Text, 2, 1042) & "*'" & _
"ORDER BY Name;"
Me!Lista0.RowSource = strSql
End Sub
Alguém pode me ajudar
Como informado no título do tópico, estou com este problema no seguinte comando:
Private Sub txtExpertise_Change()
Dim strSql As String
strSql = "SELECT Name,[Second Name],[Phonne],[Email],[Company],[Department],[Country],[Expertise],Keyword FROM BDExpertise WHERE" & _
"strConv(Name, 2, 1042) like '*" & StrConv(Me!txtExpertise.Text, 2, 1042) & "*'" & _
"OR strConv([Second Name], 2, 1042) like '*" & StrConv(Me!txtExpertise.Text, 2, 1042) & "*'" & _
"OR strConv([Phonne], 2, 1042) like '*" & StrConv(Me!txtExpertise.Text, 2, 1042) & "*'" & _
"OR strConv([Email], 2, 1042) like '*" & StrConv(Me!txtExpertise.Text, 2, 1042) & "*'" & _
"OR strConv([Company], 2, 1042) like '*" & StrConv(Me!txtExpertise.Text, 2, 1042) & "*'" & _
"OR strConv([Department], 2, 1042) like '*" & StrConv(Me!txtExpertise.Text, 2, 1042) & "*'" & _
"OR strConv([Country], 2, 1042) like '*" & StrConv(Me!txtExpertise.Text, 2, 1042) & "*'" & _
"OR strConv([Expertise], 2, 1042) like '*" & StrConv(Me!txtExpertise.Text, 2, 1042) & "*'" & _
"OR strConv([Keyword], 2, 1042) like '*" & StrConv(Me!txtExpertise.Text, 2, 1042) & "*'" & _
"ORDER BY Name;"
Me!Lista0.RowSource = strSql
End Sub
Alguém pode me ajudar