Accessで自動に番号を振る方法

質問

AccessのマクロやVBAにお詳しい方、教えてください。
現在、Access2010を使っています。
たとえば、テーブル1が、

種別　　番号
りんご　　1
みかん　　1
りんご　　2
メロン　　1
みかん　　2
メロン　　2
メロン　　3

とあります。

フォーム1には、種別と番号のテキストボックスがあります。

新規データ入力で、「種別」テキストボックスに「みかん」と入力し、「番号」テキストボックスをダブルクリックしたとき、「みかん」の番号の最大値の次の番号「3」が自動的に振られるようにしたいのですが、どうしたらいいでしょうか。
なお、
1.「種別」テキストボックスが空欄の場合
または、
2.「番号」テキストボックスに既に数値が入っている場合
は、ダブルクリックしても番号が振られないようにもしたいです。

回答No.2

mshr1962

こんな感じですかね。。。

If Me!種別 Is Null Then
RT = MsgBox("種別が空欄です。",VbOkOnly,"番号取得")
Else If Me!番号 Is Null Then
Me!番号 = DMax("[番号]","テーブル1","[種別] = '" & Me!種別 & "'") + 1
End If
End If

回答No.1

masatsan

うーん。どうお答えしてよいのか。VBAの問題じゃなくて、考え方だけだけど。
主様のレベルがわからん。

新規の場合と既存の場合を分けて、単純に番号を検索すればよいだけだと。