アクセスのVBAのご相談

質問

初めて質問をいたします。よろしくお願いいたします。

Win 2007/Access 2007なのですが、
以下の記述のアドバイスをいただけないでしょうか。
症状は、レコード数を表示させたいフォームのテキストボックスに何も表示されない状況です。

<凡例>
テーブルA
テーブルB
テーブルC
テーブルD
があります。

テーブルAはテーブルBとaにてリンク
テーブルBはテーブルCとｂにてリンク
テーブルCとテーブルDはｃにてリンクしているものとします。

<やりたいこと>
フォームAのテキストボックスX、Y、Zを参照し、コマンドボタンをきっかけに、フォーム内部のWのテキストボックスに取得したｂのカウント数を、再計算後に表示させたいと思っています。

<その他>
Xはテキストボックス名でテキスト型
Zはテキストボックス名で日付型です。
Wはテキストボックス名で数値型です。
★はｂのカウント数です。
＊は、数値型のレコードです。
＋は、テキスト型のレコードです。
＠は、日付型のレコードです。

<以下質問コード>
Private Sub Form_Open(Cancel As Integer)
Dim db As DAO.Databese
Dim rs As DAO.Recordset
Dim SQL As Variant

Set db = CurrentDb
SELECT Count(C.ｂ) AS ★ FROM A INNER JOIN ((B INNER JOIN C ON B.b = C.b) INNER JOIN D ON C.c = D.c) ON A.a = B.a WHERE (((A.＊)=1) AND ((D.＋)=X) AND ((B.＠)="0000-00-00 00:00:00") AND ((A.＠) Between Y And Z));
Set rs = db.OpenRecordset(SQL)
Me.W = rs!★
Set rs = Nothing
Set db = Nothing
End Sub
<以上質問コード>

退職者が作ったアクセスデーターベースなのですが、
テキストボックスWに計算されたデータ数が表示がされなくなり、
自分なりに過去の質問をさぐってみたのですが、
いまだに、ゴールに行きつきません・・・。

質問の仕方が間違えていましたら申し訳ありません。
どうか、アドバイスのほど、よろしくお願いいたします。

回答No.1

webnas

表示されなくなったと記載されていますが、エラーも出ずに表示されなくなったのでしょうか？
それともエラーで止まりますか？