登録する際空いているIDを自動で探すには？

質問

既存データベースを使用してAceessで検索・登録を行おうと思っています。
検索するイベントプロシージャは完成したのですが、
登録でつまってしまっています。
どのような登録の仕方にしたいかと言いますと、
登録する際に自動で空きＩＤを探し出しそこに登録を行いたいのです。
現在は一番後ろのＩＤを自分で見つけてそこに１を足してＩＤとしています。
これは利用者ＩＤがわからない人のためにつけた簡易的なものでＩＤがわかり次第この簡易的なＩＤを利用者ＩＤに書き換えます。
このときに空きができてしまうので、この空きを埋めるような登録システムを作りたいのですが可能でしょうか？

回答No.2

nicotinism

>これは利用者ＩＤがわからない人のためにつけた簡易的なもので
>ＩＤがわかり次第この簡易的なＩＤを利用者ＩＤに書き換えます。
>このときに空きができてしまうので・・・
この意味が分かりませんが、以前に考えたのはこんな風
欠番があれば最小値を求められます
Function getNo() as Long
　　Dim cn As ADODB.Connection
　　Dim rs As ADODB.Recordset
　　Dim strSQL As String
　　Dim cnT As Long

　　Set cn = CurrentProject.Connection
　　Set rs = New ADODB.Recordset

　　strSQL = "SELECT ID FROM テーブル名 order by ID;"
　　rs.Open strSQL, cn, adOpenStatic, adLockReadOnly 'ここは状況によって改変を
　　rs.MoveLast
　　If rs.RecordCount <> Nz(DMax("ID", "テーブル名"),0) Then
　　　　rs.MoveFirst
　　　　cnT = 1
　　　　Do Until rs.EOF
　　　　　　If rs!ID <> cnT Then
　　　　　　　　getNo = cnT
　　　　　　　　Exit Do
　　　　　　End If
　　　　　　rs.MoveNext
　　　　　　cnT = cnT + 1
　　　　Loop
　　Else
　　　　getNo = Nz(DMax("ID", "テーブル名"),0) + 1
　　End If

　　rs.Close: Set rs = Nothing
　　cn.Close: Set cn = Nothing

End Sub

お礼

遅くなりましたが、ありがとうございました！

回答No.1

bin-chan

１）ＭＡＸ（ＩＤ）までのダミーＩＤテーブルを生成
２）不一致クエリで、ダミーＩＤにあって本物にないＩＤを列挙
３）好きなものを選択

でどうでしょう？

補足

すでに既存のデータベースに2つのテーブルがあるのでそちらのテーブルを使い、空いているＩＤを探してそのＩＤ登録をしたいのですが
新しいテーブルを作らなくていいようなものはありませんか？