仕事で書類の登録及び検索をするデータベースを作っています。思い出しながらなので昔のようにさくさく進めることが出来ません･･･。前回検索結果の表示させるところまでは思い出したのですが、これでは複数項目による検索やあいまい検索に対応できません。

今回書いたコード

Andで条件に合ったものを抽出していますが、ある程度検索キーワードに自由度を持たせるためにlike演算子を使ってあいまい検索できるようにしています。

Private Sub btn_検索_Click()
Dim db As Database
Dim rs As DAO.Recordset
Dim mySQL As String
Set db = CurrentDb
mySQL = "select * from 書類管理 WHERE 管理no like '*" & Me!txt_管理no & "*'" & _
"And 書類名 Like '*" & Me!txt_書類名 & "*'" & _
"And 書類概要 Like '*" & Me!txt_書類概要 & "*'"
Set rs = db.OpenRecordset(mySQL, dbOpenDynaset)
Set Me!検索結果_サブフォーム.Form.Recordset = rs
Me!検索結果_サブフォーム.Form!管理no.ControlSource = "管理no"
End Sub

これで、意図したとおりに抽出できるようになりました。次はbetweenあたりの使い方を思い出したいと思います。昔はさくっと対応できたのになぁ･･･。