Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Home Premium : Access 2007)
複数検索
投稿日時: 17/06/04 09:27:30
投稿者: 丘珠

下記コードを利用して検索しておりますが、複数検索できないかと思っております。
希望としては、フォーム上のテキストボックス1とテキストボックス2の検索項目に「テキストボックス1に紹介番号(数字4桁)」「テキストボックス2電話番号(9桁)」を入力しテキストボックス1がヒットしなくてもテキストボックス2でがあればフォーム上に検索表示する。
テーブルは1、2ともにテキストとなっております。
 
Private Sub コンボ231_AfterUpdate()
' コントロールの値と一致するレコードを検索する
Dim rs As Object
 
Set rs = Me.Recordset.Clone
rs.FindFirst "[C/#] = '" & Me![コンボ231] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
よろしくお願いします。

回答
投稿日時: 17/06/05 11:19:13
投稿者: みそじのおじさん

こんにちは。
 
要件を勘違いしていましたらご容赦を。
コンボボックスからの検索をやめてテキストボックス2つの条件での
検索という事でいいですか?
であれば、テキストボックスのイベントまたはボタンなりを設置して
今のコンボボックスのイベントを移植します。
 
rs.FindFirst "紹介番号 ='" & テキストボックス1の値 & "' OR 電話番号 ='" & テキストボックス2の値 & "'"
 
というように検索条件に「OR」を使います。ORは「または」なので両方の条件を満たしたいならばANDを使います。
フィールドの設定がわかりませんので何とも言えませんが、紹介番号や電話番号に値のないレコードがある場合、意図しないレコードがヒットしてしまうのでその時は条件分けをして検索文字列を組立てた方がよいかもしれませんね!
 
# しばらく参加していなかったのですが、お名前に反応してしまいました^^
# 私の職場が丘珠にあるものですから、もしかして同じ地域で働いているのではと思いまして(笑)
# みそじのおじさんと名乗っていた私も今年ついに40を迎えました^^

投稿日時: 17/06/05 15:44:56
投稿者: 丘珠

みそじのおじさんさんありがとうございます
ご近所のおなじみかもしれませんね?
いただいたアドバイスを一寸加工しできました。
ありがとうございました。