Accessでデータに連番をつけたい

質問

Accessで、ひとつの親番号に対していくつかの子番号
をひもつけて管理したいと考えています。

例：
親番号　AAA　BBB　CCC
子番号　001、002、003

→AAA－001、
　AAA－002・・・

　BBB－001、
　BBB－002・・・
というふうに管理する。

そこで、データの新規登録時に親番号を取得後、フォーム上でボタンを押すと自動的に「親－子」という形になるようにしたいのですが、どうすればよいでしょうか？

イベントプロシージャがなかなかうまく行かず・・。
お助けください！

回答No.1

GreatDragon · ベストアンサー

こんばんは。

例えば下記↓のようなコードでいかがでしょうか？
（前提）
フォームに非連結の「親」と「親－子」コントロールがあります。
テーブルに「親－子」フィールドがあります。
フォームの「親」を入力すると「親－子」に値が表示されます。

Private Sub 親_AfterUpdate()
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Set Cn = CurrentProject.Connection
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient
Rs.Open "テーブル1", Cn, adOpenDynamic, adLockOptimistic
Rs.Sort = "[親－子] DESC"
Rs.Find "[親－子] like '" & Me![親] & "*'"
If Rs.EOF Then
Me![親－子] = Me![親] & "-" & "001"
Else
Me![親－子] = Me![親] & "-" & Format(Val(Right(Rs![親－子], 3)) + 1, "000")
End If
Rs.Close: Set Rs = Nothing
Cn.Close: Set Cn = Nothing
End Sub

> イベントプロシージャがなかなかうまく行かず・・。
どこが分からないのか明確でないのでコメントは入れてません。
もし、分からない箇所がありましたらご指摘くださいね。

お礼

お礼が遅くなってしまい、申し訳ありません。
参考になりました！ありがとうございます。