アクセスで「空き番」の確認

解決済

質問者：enako
質問日時：2003/01/17 16:16
回答数：5件

Access2000を使用しています。
オートナンバー型でないフィールドで、入力の
際にdmaxを使用して連番を振っているのですが、
登録されているデータに関して、空き番がない
かどうかを確認したいのですが何か方法はあるでしょうか？
（登録されているレコード数は約三万件ですので目で確認
　するだけではきついので・・・・）
何か良い方法があるようなら教えてください。
よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (5件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： ryuu001
回答日時：2003/01/17 22:07

次の条件で　VBAを作りました。

　◎テーブル名　＝　テーブル1
　◎連番のフィールド名　＝　ID　とし
　◎連番は後から入力した数値が
　　先に入力した数値より
　　小さくなることは無い。
　　（dmaxを使用しているので大丈夫かと思いますが）

Sub test()
Dim Db As Database
Dim Rs As DAO.Recordset
Dim Temp As String
Dim I As Integer

Set Db = CurrentDb()
Set Rs = Db.OpenRecordset("テーブル1")

Rs.MoveFirst
I = 1
Temp = ""
Do Until Rs.EOF = True
Do While I < Rs!ID
Temp = Temp & " " & I
I = I + 1
Loop
Rs.MoveNext
I = I + 1
Loop
Rs.Close
Set Rs = Nothing
Db.Close
Set Db = Nothing
MsgBox "次の数字が抜けています。" & vblf & Temp
End Sub

- 0
- 件

通報する

No.5

回答者： noname#4564
回答日時：2003/01/21 14:40

参考URLで提示されているSQLが使えるかもしれません。

エイリアスを使用した対象テーブル自身への自己結合で処理していますので、
番号管理用に別表を使用する私の案（No.2）よりスマートかもしれません。
（動作検証はしていません）

参考URL：http://www.geocities.co.jp/SiliconValley/4334/un …

- 0
- 件

通報する

No.4

回答者： imogasi
回答日時：2003/01/18 15:20

バッチ処理的な考えを出してみます。

＃３のご解答と似ているようでもあり違うようでもあり。一応載せます。
ソートと主キーの関係は、下記「注意」をご参考に。
適宜Msgboxはコメント化して下さい。
（Ａ）月、週、日１回とかで良ければ。また
（Ｂ）ソートしても良ければ。
-------
（１）データ－並べ替－昇順でソート
（２）データをシーケンシャルに読んで、直前のものと比べて＋１かどうかチェックする。
------
注意
主キーを設定していなくて,「ID」フィードが主キーに設定されていることを気づかず、ソート後に、テーブル上で、番号フィールドでソート出来ているに関わらず、テスト結果がおかしく、手間取りました。
今は番号フィールドが主キーとしてテストして上手く行きました。
------
Sub test01()
Dim db As Database
Dim rs As Recordset
Dim mae番号
Dim fst As String
Set db = CurrentDb
Set rs = db.OpenRecordset("経理1", dbOpenDynaset)
fst = "y" '第一レコードのスイッチサイン
rs.MoveFirst
While Not rs.EOF
'------------前レコードの番号＋１の番号か
MsgBox rs!番号 ' & "=" & mae番号 + 1
If fst = "y" Then GoTo p01
If Val(rs!番号) = Val(mae番号 + 1) Then
Else
MsgBox rs!番号 & "連続せず"
End If
'-----------
p01:
fst = "n"
mae番号 = rs!番号 '１つ前の番号として保存
rs.MoveNext
Wend
'---------
rs.Close
End Sub