No.5ベストアンサー
- 回答日時:
こんにちは。
>で、せっかくなので実際やってみてからお返事したい!と思ってぺたぺた張ってみたりしたのですが、
>どうもうまくできなくて・・・
>何しろ初めてなので、何もわからなくって。
ごめんなさい。よく質問を読んでいませんでしたのでとんちんかんなレスをしたかもしれません。
どんなエラーが出るかによりますが、
「パラメータが少なすぎます。? を指定してください。」
と出た場合は「ID」と書いている全ての文字を「整理番号」に変更してみてください。
>StSQL = "select 整理番号 from テーブル1 order by 整理番号"
>If RS!整理番号 = i Then
上記3カ所
「入力テーブルまたはクエリ '???' が見つかりませんでした。そのテーブルやクエリが存在していること、
または名前が正しいことを確認してください。」
と出た場合は、テーブル名が違っていますので以下の「テーブル1」の部分を修正してください。
>StSQL = "select 整理番号 from テーブル1 order by 整理番号"
それ以外のエラーが出る場合は補足に書いてください。
あと、この方法では、大量に抜けているデータが存在する場合は、取得したデータをテーブルに書き込むなどの工夫が必要です。
#3のstorkさんが回答した方法等で解決しているのであれば、こんなやり方もあるんだ、くらいに思ってください。
度々ありがとうございます!おかげさまで、なんとかできました!!
丁寧な回答、本当に感謝感謝です!
これをきっかけにVBAにチャレンジしてみようと思います。
No.4
- 回答日時:
こんにちは。
以下のコードで実現できます。
テーブル名が「テーブル1」、ID列が「ID」で1から始まっているという前提です。
下記コードを貼り付けて、テーブル名を編集し実行するとイミディエイトウインドウに抜けたIDが表示されます。
一応実験済み。
Sub test1()
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim StSQL As String
Dim i As Long
Dim Flag As Boolean
Set DB = CurrentDb
StSQL = "select ID from テーブル1 order by ID"
Set RS = DB.OpenRecordset(StSQL)
i = 1
Do Until RS.EOF
Flag = False
Do Until Flag
If RS!ID = i Then
Flag = True
Else
Flag = False
Debug.Print i
i = i + 1
End If
Loop
RS.MoveNext
i = i + 1
Loop
Set RS = Nothing
Set DB = Nothing
End Sub
お返事送れてすみません。
ありがとうございます~実際にコードを書いていただいて、しかもテストまで。
感激です!
で、せっかくなので実際やってみてからお返事したい!と思ってぺたぺた張ってみたりしたのですが、どうもうまくできなくて・・・
何しろ初めてなので、何もわからなくって。
でももう少しがんばってみます。回答本当にありがとうございました。
No.3
- 回答日時:
VBAで照合するよりクエリで照合する方が楽ですよ~。
そこで連番の作成が問題になってきますが、件数によって
1.エクセルのオートフィルを使って連番を作成してアクセスでインポートする。
2.オートナンバー型を持つテーブルを作成して行挿入の処理をループをまわす。(これだけなら簡単でしょう?)
初心者だったら、1の方法がわかりやすいですね。
数万件以上であれば2の法が簡単です。
あとは、不照合クエリを作成してください。
回答ありがとうございます!
いろいろなやり方があるのですね~。1の方法なら私にもできそうです!
2の方は・・・すみません、初心者すぎてそれさえもわからず・・・とほほ。
がんばってみます!!
No.2
- 回答日時:
クエリーでもできるでしょうか?
面倒ですけど出来ますよ。
現実的ではないですが・・・
伝票番号のフィールドだけを持つテーブルを作成して、検査したい開始番号から終了番号までのレコードを作成する。
クエリーで伝票TBとチェックTBを伝番でリンクしてプロパティをチェックTBの全てを表示する様に設定。
伝票TBの伝番以外の必須フィールドの条件をNullにする。
チェックTBの伝番を表示すれば、伝票TBに存在しない伝番だけ出てきます。
こんな面倒な事をするならVBAでチェックプログラムを書いたほうがスマートかと思いますが・・・・
具体的に書いていただいてありがとうございます~。ほんとにスミマセン。
ふー、実は私もそれを思いついてみましたが、おっしゃるとおり現実的ではないですよね・・・
VBAについに踏み入れるべきかしら・・・。
チェックプログラムは難しいでしょうか?
参考になりそうなURLなどあったら教えていただけないでしょうか・・・
前に本屋さんでVBAの本も見てみましたが、初心者向けなのにいきなりハイレベルでチンプンカンプン
でした。田舎に住んでいるもので、本も少ないのです(涙)。
No.1
- 回答日時:
データベースは入力されているデータを検索するのは簡単ですが、無いものを検索することは出来ません。
仮に連番で整理番号が振られているのなら、マクロなりVBAなりで番号を+1しながら順番にレコードが存在するかどうかを確認するしかないと思います。
早速の回答ありがとうございます。
やっぱりそうですか・・・
>マクロなりVBAなりで番号を+1しながら順番にレコードが存在するかどうかを確認するしかない
すみません・・・マクロではどのように書くのでしょうか。
良かったら教えていただけませんか?難しいのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Access(アクセス) Accessのリンクテーブルのパスを相対パスにする方法について教えて頂きたいです 1 2023/02/08 13:29
- その他(データベース) Excel VBA 転記について 1 2022/04/20 16:55
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
- ライブ・コンサート・クラブ ローソンチケットでとあるライブに当選しました。そこで質問があります。 ①支払い方法はコンビニ払いを選 3 2023/03/01 17:07
- その他(趣味・アウトドア・車) アマチュア無線の「村」まで入った「市郡区番号リスト」を探しています 4 2022/08/27 07:07
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- その他(データベース) 伝票番号、品番、在庫としてマクロでもAccessでもデータ表を作りたいのですが、ご指導お願いします 1 2022/11/13 23:48
- Excel(エクセル) INDEX関数とMATCH関数を使用し値を返す数式についてです 2 2022/04/20 13:40
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
アクセスで「空き番」の確認
Access(アクセス)
-
アクセスVBAのMe!と[ ]
Access(アクセス)
-
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
-
4
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
5
Access サブフォームでの選択行の取得
その他(データベース)
-
6
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
7
アクセスのエラー「クエリには出力フィールドが1つ以上必要です。」
その他(Microsoft Office)
-
8
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
9
ある値以上の空き番の最小値を取得するSQL
Oracle
-
10
AccessのDMax関数の複数条件式に関して
Access(アクセス)
-
11
ACCESS クエリで重複データを最新の1件だけ表示
Access(アクセス)
-
12
【Access】Dcount関数の複数条件で順位を付ける方法について
Access(アクセス)
-
13
前のレコードの値を自動で入れたい
PowerPoint(パワーポイント)
-
14
VBとアクセスでSQL文に変数を使いたいのですが
Visual Basic(VBA)
-
15
AccessからExcelへの条件付エクスポート
その他(データベース)
-
16
Excelで連番でない数字を割り出す関数
その他(データベース)
-
17
Accessクエリーで両方のテーブルの全てのデータを表示することは可能ですか?
Access(アクセス)
-
18
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
19
ACCESS 「パラメータの入力」を消したい!!
Access(アクセス)
-
20
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessのフォームのテキストボ...
-
初心者なのですが・・・access...
-
日付型のフィールドに空白を入...
-
差込印刷での全角表示について...
-
SQL文で パラメータが少なすぎ...
-
アクセスのエラー「クエリには...
-
Accessで、1つの項目に複数の...
-
エクセルにおける「フィールド...
-
access インポート時、既にある...
-
テキストボックスにクエリ結果...
-
2つのテーブルに共通するレコ...
-
アクセスで追加した項目に全て...
-
Accessのテーブルのフィールド...
-
最新日のデータのみ抽出するク...
-
Accessでリストの並び順を変更...
-
ACCESSのデータに自動で半角ス...
-
ACCESS 「パラメータの入力」...
-
アクセス:クエリの結合とリレ...
-
クエリの結果が文字化け(Access...
-
Word2010の差込印刷で金額にコ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのフォームのテキストボ...
-
初心者なのですが・・・access...
-
AccessVBA SetFocusとGoToCon...
-
Accessのフォームで計算した結...
-
アクセスのデータをCSVファイル...
-
Access フォームの参照先について
-
アクセス クエリーの作成
-
Accessでアンケート集計を構築...
-
access 2016で請求書アプリを作...
-
アクセス 各テーブルでのフィ...
-
accessについてです。
-
筆ぐるめ2004での住所録のソー...
-
access2019 コンボボックスの値...
-
CUBASE LE5でアクティベーショ...
-
Access97のフォームで一人につ...
-
ACCESSで他のテーブルからのデ...
-
差込印刷での全角表示について...
-
日付型のフィールドに空白を入...
-
SQL文で パラメータが少なすぎ...
-
アクセスのエラー「クエリには...
おすすめ情報