条件付MAX値取得について

質問

ACCESS2000を使用しています。
このたび、グループごとに自動的に連番を採番する
プログラムをVBAで組みたいと思っています。

そこで、下記のように作りました。
VBA初心者のためあまりつくりがよくないかもしれませんが、やりたかったことは、フォームと一致してる会社コードの中で会社テーブルの会社連番の最大値から１を足してをF会社連番に入れなさいって意味です。
このVBAを会社名を入力した後に実行するようにしています。

ところが、このVBAだとただしくMAX値を取得できず、
NULL値を取ってきてしまい、0が入ってしまいます。
長文になりましたが、数時間迷っているので、
手助けしていただけないでしょうか。

[会社テーブル]
会社コード・・・グループ化したいフィールド
会社連番・・・連番したいフィールド
会社名・・・会社の名前

[会社フォーム]
F会社コード・・・会社コードと連結
F会社連番・・・会社連番と連結
F会社名・・・会社の名前と連結

Dim aa As Variant

aa = DMax("会社連番", "会社テーブル", "会社コード = 'Form_会社フォーム!F会社コード'")

If IsNull(aa) Then
Me!F会社連番 = 0
Else
Me!F会社連番 = aa + 1
End If

回答No.1

snoopy64 · ベストアンサー

aa = DMax("会社連番", "会社テーブル", "会社コード = 'Form_会社フォーム!F会社コード'")
↑これでは、『会社コードが「Form_会社フォーム!F会社コード」という「文字列」と等しい』という条件になってしまっています(>_<)

『会社コードが「Form_会社フォーム!F会社コード」の「値」と等しい』という条件でやりたいのですから、
aa = DMax("会社連番", "会社テーブル", "会社コード = '" & Form_会社フォーム!F会社コード & "'")
↑このようにしてください。

会社コードが数値型の場合は、
aa = DMax("会社連番", "会社テーブル", "会社コード = " & Form_会社フォーム!F会社コード)
↑です。

頑張ってください(^o^)丿

お礼

私も昨日その方法でうまくいきました。
VBAは難しい。。ありがとうございました。