フォームで入力した値と同じレコードの数を表示したい

Question

access初心者です。どうか助けて下さい。

テーブル：A
フィールド：ID(主キー), a(短いテキスト), b(短いテキスト)

フォームからの入力の際に、aに入力した値と同じ値がテーブルAに何レコードあるかをフォームのbに表示させたいです。

Private Sub a_AfterUpdate()
Me.b = DCount("ID","A","a =" & Me.a)
End Sub

としてみましたが、"抽出条件でデータ型が一致しません"というエラーが出てしまいます。

どのように変えたら良いのでしょうか。
宜しくお願い致します。

Answer 1

a(短いテキスト)

aフィールドがテキスト型ということなので、
条件式の値は引用符(')で囲む必要があります。

Private Sub a_AfterUpdate()
    Me.b = DCount("ID","A","a ='" & Me.a & "'")
End Sub

Comments

[tomoaki0609]

hatena19さんありがとございました。
おかげで先へ進めます。