AND検索

質問

アクセスでフォームを作成し、入力項目を５箇所用意しました。
その入力項目によって、ＯＲ検索とＡＮＤ検索を行わせたいと思っています。
ＯＲ検索に関しては問題無いのですが、ＡＮＤ検索をさせた場合、５箇所全てを埋めないと結果が得られません。
ＡＮＤ検索で５項目の内３項目が空でも残りの２項目が該当すればデータを表示させたいのですが、方法がわかりません。
アクセス2000を使っています。
よろしくお願いいたします。

回答No.2

maruru01

こんにちは。maruru01です。

VBAを使えば出来ますが。
検索対象のテーブルのレコードセットを作り、Findの条件に、項目が空でないなら、
" AND (フィールド名 = " & 条件 & ")"
をくっ付けていけばいいでしょう。
では。

補足

早速の回答ありがとうございます。
アクセスの初心者なので、レコードセットという言葉さえよく知りませんでした。
調べながらなんとかやっていこうと思います。

回答No.1

how-do-you-do

御疲れ様です

VBAで宜しければ、こんな感じになります

Private Sub コマンド0_Click()
Dim stFormName As String
Dim stWhere As String

stFormName = "AAA"
stWhere = 条件文作成("AND")
DoCmd.OpenForm stFormName, , , stWhere

End Sub

Private Function 条件文作成(stConnector As String) As String
Dim stSQL As String

stSQL = ""
stConnector = " " & Trim(stConnector) & " "

If IsNull(Me.Txt条件01.Value) = False Then
If stSQL <> "" Then stSQL = stSQL & stConnector
stSQL = stSQL & "(項目01 = " & Me.Txt条件01.Value & ")"
End If

If IsNull(Me.Txt条件02.Value) = False Then
If stSQL <> "" Then stSQL = stSQL & stConnector
stSQL = stSQL & "(項目02 = '" & Me.Txt条件02.Value & "')"
End If

If IsNull(Me.Txt条件03.Value) = False Then
If stSQL <> "" Then stSQL = stSQL & stConnector
stSQL = stSQL & "(項目03 = #" & Format(Me.Txt条件03.Value,"mm/dd/yyyy") & "#)"
End If

If IsNull(Me.Txt条件03.Value) = False Then
If stSQL <> "" Then stSQL = stSQL & stConnector
stSQL = stSQL & "(項目04 = '" & Me.Txt条件04.Value & "')"
End If

If IsNull(Me.Txt条件03.Value) = False Then
If stSQL <> "" Then stSQL = stSQL & stConnector
stSQL = stSQL & "(項目05 = " & Me.Txt条件05.Value & ")"
End If

If stSQL <> "" Then stSQL = "(" & stSQL & ")"

条件文作成 = stSQL

End Function

補足

早速の回答ありがとうございます。
現在テストしているのですが、まだ上手くはいってません。
stWhereの返り値まではきちんと動いているので、何とか解決したいと思います。
なにぶん初心者なものなので、基本的なミスをしてる気がします。