ACCESS2000総合相談所

>>498
たとえばこんな感じでどうでしょう
（ボタンのクリックにより、ＳＱＬ文作ってレコードソースに入れる）

Private Sub ぼたん_Click()

Dim W_Sql As String

If IsNull(てきすとＡ) And IsNull(てきすとＢ) And IsNull(てきすとＣ) Then
MsgBox "全部空白はいかん！！"
Exit Sub
ElseIf IsNull(てきすとＡ) Then
MsgBox "てきすとＡの空白はいかん！！"
Exit Sub
End If

W_Sql = "SELECT * FROM てーぶる "
W_Sql = W_Sql & "WHERE "
W_Sql = W_Sql & "ふぃーるどＡ = '" & てきすとＡ & "'"
If Not IsNull(てきすとＢ) Then W_Sql = W_Sql & " AND ふぃーるどＢ = '" & てきすとＢ & "'"
If Not IsNull(てきすとＣ) Then W_Sql = W_Sql & " AND ふぃーるどＣ = '" & てきすとＣ & "'"
W_Sql = W_Sql & " ORDER BY ふぃーるどＡ,ふぃーるどB,ふぃーるどＣ"

Me.RecordSource = W_Sql

End Sub