access 検索用フォームにてコンボボックスで何も選ばなかったときに全件表示させる方法

質問

access2003において、
検索用のフォームを作成し、コンボボックスにて検索内容を選択し、
決定ボタンにて他のフォーム画面へ検索結果を表示するようにしています。
この際、検索用フォームには複数のコンボボックスを用いてますが、
そのうちいくつかのコンボボックスを選択せずに決定ボタンを押した際に選択していないコンボボックスの内容については全件表示させたいと考えております。
例）コンボA＝会社　コンボB＝支店　コンボC＝社員
コンボAのみ特定の会社を選択し、コンボB、コンボCは未選択だった場合、コンボAで選択した会社の支店・社員を全件表示したいのです。
お知恵をお貸し下さい。

以下VBAのソースです
Private Sub cmdSearch_Click()
On Error GoTo Err_cmdSearch_Click
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "F_検索"
stLinkCriteria = "[会社CD]=" & Me![会社] & "And [支店CD]=" & Me![支店] & "And [社員CD]=" & Me![社員]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdSearch_Click:
Exit Sub

Err_cmdSearch_Click:
MsgBox Err.Description
Resume Exit_cmdSearch_Click

End Sub

回答No.2

a3453a · ベストアンサー

あまり自信はありませんが
like命令みたいな機能を期待して
「ここ」　へは　　*　をいれてみるといいかもしれません
（*　には　あいまい検索の機能が有るので）
（自信なし）

あるいは
ｎｕｌｌの時には
stLinkCriteria = "[会社CD]=" & Me![会社]
というような感じで　[会社]だけの条件文を使用するという
ロジックも方法として有ると思います

お礼

またまたご返答ありがとうございます。
どうにか動くものができました。
また困った時、よろしくお願いいたします。

回答No.1

a3453a

コンボB＝支店　の　初期値に　*　を入れておくという手があります

IF コンボB＝"*" THEN
--------
--------

などの記述でなんとかなると思います

（なにか選択後　*　を再度戻すにはダブルクリックなどで・・・）

補足

ご返答ありがとうございます。
a3453aさんの方法を取らせていただきましたが、私の不勉強ゆえいまだ解決できていません。

コンボボックスを未選択にした際にNullが入るのが分かったのですが、
If IsNull(Me![支店]) = True Then
Me![支店] = "ここ"
End If
上記プログラムの"ここ"にどのようなプログラムを組めば全件表示できるのかご教授願いたいと思います。