aomini3298
7882f2577e
2021/07/12 (月) 19:27:59
hiroton 様
ご教示いただきまして誠にありがとうございます。
ご指摘いただきました「*」を半角にした上で、それ以外の細かい修正も行い以下コードで期待する動作ができるようになりました。お陰さまで本当に助かりました。これからも、今回教えていただきました内容を踏まえまして引き続き勉強させていただきます。
If Not IsNull(Me.総合検索) Then
strFilter = strFilter & “ AND “ & BuildCriteria(“[質問]&[回答]&[種別]”, dbText, _
“(*” & Replace(StrConv(Me.総合検索, vbWide), “ “, “ * OR *") & "*)")
End If
通報 ...