- ベストアンサー
access vba 『○○件づつ表示』を行いたい。
ALGO-9の回答
- ALGO-9
- ベストアンサー率66% (12/18)
指定件数単位に抽出するクエリを作成し、それを基に一覧形式のフォームを作成 出来上がったフォームをメインフォームへサブフォームとして埋め込み画面 は完了 後は、『次の１０件』『前の１０件』のイベントでＳＱＬ文を編集しサブフォームの基となっているクエリを変更し、画面をリフレッシュすればＯＫ ※データ表示を一覧形式のフォームを利用すると仮定した場合 Event:NextBotton Dim l_OutoNo = l_OutoNo + 10 SSQL = "SELECT * FROM データテーブル WHERE Between OutoNo & CStr(l_OutoNo) & " And " & CStr(l_OutoNo + 9) SubForm_Query.SQL = SSQL Me.MainForm.SubForm.Form.F_Sub.Refresh
関連するQ&A
- SQL上位n件ORDERBY 以降ORDERBY
SQLのORDER BYについてご教授いただけますでしょうか。 例えば、１０件のデータのうち、５件を指定のORDERBYで抽出し、 残り５件をORDERBYで抽出するということは可能でしょうか。 ID 名前 システムフラグ 1 AAA 1 2 BBB 1 3 CCC 1 4 DDD 1 5 EEE 1 6 FFF 2 7 GGG 2 8 HHH 1 9 III 1 10 JJJ 1 上記のようなデータがあった場合、 以下のように抽出されるようにしたいと思っています。 ID 名前 システムフラグ 1 AAA 1 2 BBB 1 3 CCC 1 6 FFF 2 7 GGG 2 4 DDD 1 5 EEE 1 8 HHH 1 9 III 1 10 JJJ 1 システムフラグが2が入っているものは、 ５件からの4,5件目に表示されるようにして、 それ以降はIDの昇順で表示されるようにしたいと思っております。 ５件というのは、決め打ち５件ではなく、条件によっては変わるのですが、 ５件が７件となった場合は、6,7件目がシステムフラグ2のものがくるようにしたいです。 指定した件数から下２つ目がシステムフラグのものが取得したいということです。 わかりにくいと思いますが、どのようなSQLを書けば抽出できるか ご教授いただけますでしょうか。 どうぞ宜しくお願い致します。
- ベストアンサー
- SQL Server
- アクセス２００７ VBA 並べ替え
テーブル１のフィールド１にデータを入れ それを元に帳票フォームを作成しました。 フォームヘッダー部分に 昇順ボタンと降順ボタンを作り、 ボタンを押すごとに並び替えを行いたいのですが どのようなVBAコードを書けばいいのかわかりません。 命令分としては、 「フォームに表示されるテーブル１のフィールド１データの 昇順に並べ替える」です。 SQLを使う方法ではなく、 DocmdかacCmdを使う方法が希望です。 アクセスのヘルプの ----------------------------------------- Access 開発者用リファレンス Form."OrderBy/並べ替え" プロパティ ----------------------------------------- を見ると、 ----------------------------------------- 構文 式.OrderBy 式 Form オブジェクトを表す変数です。 ----------------------------------------- と書いてありますがこの式がわからないのでご教授よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ACCESS2000で、サブフォームのデータを並べ替えする方法は？
アクセス初心者＋αの者です。 メインフォームを開いた時に、サブフォームにはメインとのリンク項目に該当するデータをクエリから抽出し、表示するようになっています（データによっては複数件あり）。 データ抽出は出来てますが、データの表示順がうまく出来ません。サブフォームのレコードソースSQL文にOrderBy句で指定してもダメでした。 メインフォームの並べ替えプロパティが怪しいと思ってるのですが、どのように記述すれば良いのでしょうか？（VBAでもOKです） 並び替えしたい項目は、サブフォーム内に持ってます。 情報の不足もあるかもしれませんが、よろしくお願いします。m(__)m
- ベストアンサー
- オフィス系ソフト
- アクセスについて
（アクセスでＳＱＬ文の抽出条件を選択するフォームを作成しました。） フォームには6個のチェックボックスがあり、必ずどれか選択しなければなりません。 フォームの右上の×ボタンを押した時、何もチェックされていなかったら、メッセージを表示して、フォームを閉じるのを中止したいのですが、うまくできません。 どなたか、ご教授お願いします。
- ベストアンサー
- その他（プログラミング・開発）
- Accessのコンボボックスの表示について
今 Access2000で作っているのですが、 フォームにサブフォームを帳票フォームの中に 二つコンボボックスがあります。 そしてコンボボックス1を選ぶと 2のボックスに抽出されたリストが表示されて その中から選ぶ形になっているのですが、 サブフォームに2件目を入力すると１件目の ボックス2の中の表示が消えてしまいます。 そして１件目のボックス2にカーソルを置くと表示 されるのですが、次は2件目のボックス2が消えてしまいます。データ的には問題ないようなのですが、 なぜ、消えてしまうのでしょうか？ 1、2とは別にコンボボックスが3つあります。 表示するものが多すぎるのでしょうか？ よろしくお願いします。
- 締切済み
- オフィス系ソフト
- Accessのサブフォームつきフォームを使い回しをしたい
Accessでサブフォームを使っていくつかの表を表示させたいと思っています。 それで表示させたい表はテーブルは違いますがフィールドは似たようなものなので、 1つのフォーム(とサブフォーム)ですべての表を表示させたいと思っています。 つまり前の画面でどのボタンをクリックしたかによってフォームのRecordSource(SQL文)を変更したいのです。 それで色々やってみたのですがどうもうまくいきません。 1.まずどの部分でRecordSource(フォーム、サブフォーム両方とも)の設定をすればよいのかよくわからない。 2.色々試行錯誤して設定して表が表示されるようになったが、なぜかデータが1件もない時にサブフォームが表示されない(サブフォームに表のタイトルが書いてありますがそれが表示されない)。 3.それも試行錯誤してうまく表示させることができるようになったが、そこでも問題がありました、1つの表のデータだけそこで編集できるようにしたいのですがなぜか編集できません(SQL文でRecordSourceを設定していますがそのSQL文はクエリで書くと編集できます)。 もしかしたら根本的に間違っているかもしれませんので、プログラムやプロパティの設定をどのようにしたらよいか最初からご説明していただけますでしょうか？
- 締切済み
- オフィス系ソフト
- アクセスについて
アクセスのレコード数４８３件のテーブルをクエリーで抽出しフォームで表示しているのですが、４８０件しか表示出来ません、どこか作成、設定で間違えがあるのか教えてください。
- 締切済み
- その他（ビジネス・キャリア）
- EXCEL VBAでADOを使ってEXCELファイルよりデータを取得し
EXCEL VBAでADOを使ってEXCELファイルよりデータを取得しています。 その際のSQL実行結果が上手くいきません。 'Excel のバージョン 2003 SP3 'データ項目名 'ID,名前,,,,,,,,,,,長文１,長文２,,,,削除フラグ,削除日時,更新日時 ←こんな感じで20項目 上記の「削除フラグ」の値を抽出条件にしています。 文字列の項目で、''、' '、'1'などの値があります。 '1'が入っているデータは削除された古いデータなので、抽出対象外にしたいです。 mySql = "select * FROM Sample1 WHERE (名前 LIKE '%山%') AND (削除フラグ <> '1')" Set adoRS = adoCON.Execute(mySql) Debug.Print mySql 上記を実行すると、対象データはあるのに取得できません。 実行時エラーになることはなく、処理は正常に終了します。 mySql = "select * FROM Sample1 WHERE (名前 LIKE '%山%') AND (削除フラグ = '1')" だと、「削除フラグ」に'1'が入っているデータが取得できます。 mySql = "select * FROM Sample1 WHERE (名前 LIKE '%山%') AND (削除フラグ != '1')" これを試しましたが、構文エラー:演算子がありません となります。 SQL文が悪いのか、「削除フラグ」のデータが悪いのかわかりません。 解決していただけなしでしょうか？
- ベストアンサー
- その他MS Office製品
- 抽出データの欠落
プログラムもほとんど知らない素人ですが質問させていただきます。^^; oracle9iデータベースで、未抽出の情報があれば、「抽出済みフラグ」を立て、さらにその情報はテキストファイルに出力する処理を開発者に作ってもらいました。 しかし、データの１０件に抽出済みフラグが付いたのに、テキストファイルへの出力は８件とか９件しか出力されない といった現象が頻発して困っています。 当初はSQL文のみのプログラム(?)で現象が出たのでVBプログラムで作り直してもらったのですが、同じ現象が出ます。 データ総件数は３万件ぐらいで、抽出される件数は２０～１００件ぐらいです。 こういったトラブルはoracleデータベースで一般的にあり得るのでしょうか？ よろしくお願いします。
- ベストアンサー
- Oracle
- AccessのVBAにおいて，アクセスフォームに表示されている「値」を
AccessのVBAにおいて，アクセスフォームに表示されている「値」を変数の中に格納したい。 例えば，オートフォームの単票形式でフォームを作成した場合，「番号」「製品」といったフィールドが２個あるテーブルを使うと，「番号」「製品」という名前のテキストボックスが２個ほどできます。 （フィールド名やテキストボックス名は問題ではありません。） このフォーム上に「ボタン」を配置し，このボタンをクリックした時に，「製品」というテキストボックスの内容を，メッセージボックスで表示させたい。 MsgBox (Me.製品.Text) と書いてもエラーとなります。 実際には，このフォームで欲しいデータを見つけた時，ボタンクリックで，テキストボックスに表示されている内容をグローバル変数に格納したいのですが，方法が分かりません。 Access 初心者です。どなたかよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
回答を有難うございます。 なるほど、next forにこだわりすぎていました。勉強になります。