- ベストアンサー
accessの検索で・・・
お世話になっております。 今、OfficeXPで、Accessを使ってデータベースを作っています。 そこで、フィルタについて教えていただけないでしょうか（TへT) まずは、こんな感じでVBAを書いてみたのですが・・・ Private Sub kensaku_Click() Dim rsql1 As String Dim rsql2 As String Dim keys As String keys = InputBox("キーワードを入力してください", "キーワード検索") If keys = "" Then Exit Sub End If rsql1 = "select tel from master where dairi_code = keys" rsql2 = "select tel2 from master where contact_tel = keys" If rsql1 <> "" Then Me.Filter = "tel = '" & keys & "'" Me.FilterOn = True DoCmd.OpenForm "form_tel", acNormal, , "[tel] = '#" & key & "#'", acFormEdit, acDialog ElseIf rsql2 <> "" Then Me.Filter = "tel2 = '" & keys & "'" Me.FilterOn = True DoCmd.OpenForm "form_tel2", acNormal, , "[tel2] = '#" & key & "#'", acFormEdit, acDialog Else: MsgBox "該当するデータはありません", vbOKOnly End If End Sub と、いう感じです。 したいことは、２つのそれぞれのテーブルに検索をかけ、一致したのがあったらそれに対応するフォームを開くと言う感じにしたいです。 ロジック的に穴がありすぎると思いますが、どうかよろしくお願いいたします。
- hunnbaruzo
- お礼率19% (8/42)
- その他(データベース)
- 回答数2
- ありがとう数4
- みんなの回答 （2）
- 専門家の回答
お礼
ありがとうございます。 できました(^^ DCountを使うのですね(^^； これからも何かございましたらよろしくお願いいたしますm(_ _)m
補足
なんか、ごちゃごちゃしてしまい申し訳ございません。 私がしたいことは、「keys」というところに検索したいキーワードを入力して、２つの別テーブルに検索をかけてみるということです。 ですので、「dairi_code」と「conact_tel」はそれぞれ、「tel」と「tel2」となります。 なにせ、会社でのデータベースなので直に載せてしまうのはまずいとおもいかえたのですが・・・・汗 でも、早いご回答ありがとうございます。 早速修正してチャレンジしてみます。 また何かございましたらよろしくお願いいたします。