No.3ベストアンサー
- 回答日時:
次の条件で 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
No.5
- 回答日時:
参考URLで提示されているSQLが使えるかもしれません。
エイリアスを使用した対象テーブル自身への自己結合で処理していますので、
番号管理用に別表を使用する私の案(No.2)よりスマートかもしれません。
(動作検証はしていません)
参考URL:http://www.geocities.co.jp/SiliconValley/4334/un …
No.4
- 回答日時:
バッチ処理的な考えを出してみます。
#3のご解答と似ているようでもあり違うようでもあり。一応載せます。ソートと主キーの関係は、下記「注意」をご参考に。
適宜Msgboxはコメント化して下さい。
(A)月、週、日1回とかで良ければ。また
(B)ソートしても良ければ。
-------
(1)データ-並べ替-昇順でソート
(2)データをシーケンシャルに読んで、直前のものと比べて+1かどうかチェックする。
------
注意
主キーを設定していなくて,「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
'------------前レコードの番号+1の番号か
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!番号 '1つ前の番号として保存
rs.MoveNext
Wend
'---------
rs.Close
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(ソフトウェア) IndesignのGPUは色?CMYKなの?RGBなの? 1 2022/05/09 19:13
- その他(SNS・コミュニケーションサービス) ぺアーズについて。アカウント登録ができないのですがBANされたのでしょうか? 2 2022/05/20 22:51
- Excel(エクセル) エクセルで沢山のレコードの最後に追記するには? 7 2023/04/10 13:27
- ポイントサービス・マイル セブンイレブンのアプリをダウンロードインストールしました。 いつポイント使えるんですか?というかいく 3 2022/11/17 09:10
- その他(コンピューター・テクノロジー) 下に書いたの条件でgoogleアカウントの復旧方法等を教えてください。 1 2023/02/06 23:32
- その他(暮らし・生活・行事) → ※このメールは、ファミマTカードをファミペイに登録されたことがある会員様にお送りしております。す 4 2023/05/03 12:24
- その他(メールソフト・メールサービス) 不審なメールが届きました 3 2022/09/14 06:14
- docomo(ドコモ) dアカウントの携帯電話番号が登録できない。ワンタイムコードがSMSに届かない。 2 2023/07/09 23:07
- その他(ニュース・時事問題) 「マイナポイント」の登録について 5 2022/12/12 22:36
- Amazon 大至急先ほどAmazonからメールが来て。以下の内容で来ました。 Amazon利用いただきありがとう 6 2022/12/14 07:04
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
初心者なのですが・・・accessで抜けている番号を探すには?
Access(アクセス)
-
エクセルで欠番を見付けるには
Excel(エクセル)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
-
4
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
5
アクセスで入力したデータの順番が変わってしまいます
その他(ビジネス・キャリア)
-
6
Accessでテーブル名やクエリ名一覧の抜き出し
Access(アクセス)
-
7
Accessの条件付き書式設定で、複数の条件が一致した時の書式を設定したい
その他(Microsoft Office)
-
8
ラベルとテキストボックスのグループ化を解除したい
Access(アクセス)
-
9
ある値以上の空き番の最小値を取得するSQL
Oracle
-
10
エクセルのリストから欠番を拾い出したい
Windows 7
-
11
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
12
前のレコードの値を自動で入れたい
PowerPoint(パワーポイント)
-
13
VBとアクセスでSQL文に変数を使いたいのですが
Visual Basic(VBA)
-
14
[Access]帳票フォームにて連続する非連結コントロールに個々の値を入れるには
Access(アクセス)
-
15
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
16
AccessからExcelへの条件付エクスポート
その他(データベース)
-
17
accessでフィールド追加のあとフォームに反映されない
Access(アクセス)
-
18
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
19
Excelで連番でない数字を割り出す関数
その他(データベース)
-
20
クロス集計クエリの結果をテーブルにしたい
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessで別テーブルの値をフォ...
-
Recordset.FindFirstについて
-
access 自動採番 年が変わる...
-
vba 直前の操作はキャンセルさ...
-
質問です。 下記のテーブルとデ...
-
最新の日付とその金額をクエリ...
-
Oracleでの文字列連結サイズの上限
-
GROUP BYを行った後に結合した...
-
select句副問い合わせ 値の個...
-
OracleのSQL*PLUSで、デー...
-
GROUP BYを使ったSELECT文の総...
-
ファイル書込みで一行もしくは...
-
キーが同じを複数行を1行にま...
-
サブフォームに新規レコードを...
-
Excelでセルの書式設定を使用し...
-
SELECTの結果で同一行を複数回...
-
DataGridViewにてセル以外をク...
-
サブレンジ分割されたNDB(富士...
-
JSPのNULLレコード表示について...
-
ワードの差込印刷で教えて下さ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessで別テーブルの値をフォ...
-
Accessでのレコード存在チェック
-
最新の日付とその金額をクエリ...
-
access 自動採番 年が変わる...
-
[Access]異なるレコード間の文...
-
【アクセスVBA】テーブルにフィ...
-
vba 直前の操作はキャンセルさ...
-
Accessで日付が変わると番号が...
-
条件をつけて日付の古い行を抜...
-
質問です。 下記のテーブルとデ...
-
Recordset.FindFirstについて
-
Access 文字+年ごとの自動採番
-
アクセスで「空き番」の確認
-
access2003で学籍番号から生徒...
-
Access:抽出して、色をつけたい。
-
Accessの色番号について
-
【Access】選択クエリのグルー...
-
access 自動採番 「10-AA-000...
-
sqlで質問です。 Aテーブルの登...
-
電話番号の局番と住所の検索に...
おすすめ情報