- ベストアンサー
Access VBAでのレコード選択・印刷方法
KHSSSKの回答
どうしてもRecordsetで行いたいのであれば Access.mdb の場合 Dim rs As Recordset Set rs = Forms!フォーム名.RecordsetClone (Me.RecordsetClone でも可) rs.MoveFirst Do Until rs.EOF 必要な処理 rs.MoveNext Loop rs.Close: Set rs = Nothing Access.adp の場合 Dim rs As Object 以下mdb の場合と同じ 私の所でもチェックの入った会社のみ宛名ラベル印刷するようにしていますがテーブルにYes/No型のフィールドを設けて、クエリーで選択するようにしています。
関連するQ&A
- accessで表示しているレコードのみの印刷について
Access初心者です。現在Access2002を使用しています。 現在顧客管理フォームで１レコードを１ページに印刷できるように設定してあります。現在表示しているレコードのみを印刷できるようなボタンを、フォーム上に設定したいと考えているのですが可能でしょうか？ 通常の印刷ですとページ指定をしないと、選択したレコードすべてが印刷されてしまいちょっと面倒なもんですから、できればと考えたわけです。宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- アクセスで指定したレコードをフォームで開く方法？
アクセスで、帳票形式のフォームで選択したレコードの内容を、詳細を表示する用のフォーム（単票形式）で開きたいのですが、どうしたらよいのでしょうか？（初心者です） 例えば、帳票形式のフォームで「予約番号：1」のレコード 選択した状態で、ボタンをクリックすると、 詳細を表示する用の単票形式のフォームの「予約番号：1」のレコードが表示されるようにしたいのです。 マクロでは出来なそうなので、VBAで・・・というところまでしか検討がつきません。 使用しているのはアクセス2002です。 どなたかご存知の方がいらっしゃいましたら、教えてください。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Access2013 vbaサブフォームのレコード
[Access2013 vba] ■したいこと サブフォームのレコードの中から、一レコードだけをチェックボックスなどで選択したいのですが、どのようにしたら出来ますでしょうか。 複数行選択は出来ないようにしたいです。 選択したのち、メインフォームの選択ボタンを押すと、そのレコードのID番号を取得して、呼出元のフォームのIDフィールドに代入したいです。 ■画面の流れ・・・ Aフォーム → 帳票型Bフォームで、レコードを選び「開く」ボタンを押す→ B 'メインフォームとCサブフォーム）が開く Cサブフォームのレコードをチェックボックスにチェックを入れて選択する B ' メインフォームの「選択」ボタンを押すと B ' メインフォームと、その前のBフォームが閉じて Aフォームに戻り、AフォームのIDフィールドに選択したIDが格納される。 よろしくお願いします。
- ベストアンサー
- その他(データベース)
- Access+VB ふたつのフォーム
Access+VBAでフォームです。 ふたつのフォーム [A]と[B]があります。 どちらも同一のクエリをレコードソースとし、[A]も[B]も開かれて表示されています。 [A]を更新した時、[B]も更新されるようにしたいのですが、「データの競合」「他のユーザーを反映・・・」とメッセージが出ます。 どのようにしたら、スムースに更新、追加できるのでしょうか？
- ベストアンサー
- Visual Basic
- ACCESS帳票フォームのレコード移動と条件分岐
フォームのデータからWhere条件式で、合致するレコードを抽出するクエリーを作りました。 このレコードを新しく作成した帳票フォームに表示しています。 日付、商品名、項目名、変数１、変数２ この帳票からラベルを出力したいのです。 1個のレコードにフォーカスを当てた時ラベルを作成するVBAは作れたのですが、先頭から順番にすべてのレコードを検査し、変数１と変数２に値が入力されている場合のみ、そのレコードのデータからラベルを出力するということができません。 どのように構文を組んだらよいでしょうか？ ACCESS2007、windows7環境です。
- ベストアンサー
- オフィス系ソフト
- Access2000/2002フォームのレコードセットについて
Access97で作成されたプログラムを Access2002で作り直す必要に迫られています。 プロジェクト形式ではなく、MDB形式のままで進めているのですが VBAのコーディングは、すべてADOに変更するように指示されています。 基本的な知識が不足している状況なので、おかしな質問だと思いますが どうかご容赦ください。 フォームで利用するレコードセットについて、壁にぶつかっています。 Access97のフォームで普通に利用していた Set rs=Me.RecordsetClone これは、ADOでは、どのように置き換えを考えていけばよいのでしょうか? フォーム内のモジュールで、そのフォームに結びついている Recordsetの取り扱い方法について、一般的なルールのようなものを 教えていただけますと、ありがたいのですが・・・ 半日ほど、色々なサイトを検索してみたのですが どうにも答えが見つかりません。 そもそも、Access2000/2002フォームのRecordSetがDAOなのかADOなのかも 分かりません。 アドバイスや、参考になる書籍の情報などをいただけないでしょうか。 なにとぞ、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- ACCESS・VBAが全く分かりません。
次のようなことをやるにはどういうコードを書けばいいですか？ （患者情報テーブル） ID 氏名 １ 阿部 ２ 伊藤 ３ 宇治 （表示フォーム） ID １ 氏名 阿部 表示フォームのIDを１から２へ変更したら、 自動的に氏名も阿部から伊藤へ変わってほしいのです。 これを実現する方法を教えて下さい。 それと、ユーザーが任意で指定できるのはIDだけにしたいので、 氏名はテキストボックスでなくてラベルで充分なのですが、 アクセスではラベルの表示をVBAで変えることはできるのでしょうか。 エクセルならそれができましたよね。
- ベストアンサー
- その他MS Office製品
- 異なるフォームに属する関数間でACCESSのレコードセットを受け渡しする。
msAccess2000のVBAコードの質問です。 元々、全てを理解しているわけではないのにVBAコードを書いているのが無茶なんですが、無茶を承知でプログラミングしています。 あるクエリの結果を、あるフォームで帳票表示しています。この帳票の一レコードにボタンをつけて、クリックイベントで、そのレコードを取得しようとしています。フォームはこの後、閉じられた後、呼び出された親にその、レコードを渡したいのです。 フォームは、親フォームのボタンクリックイベントから、DoCmd.Openformメソッドによって呼び出されるので、戻り値は使えません。 しょうがないので、広域変数rst(DAO.Recordset型)で、受け渡そうと思ったのですが、recordset型は、どうやら参照のようで、フォーム(クエリ？)を閉じると、レコードが壊れてしまうようなのです。 Module1で、 public rst as DAO.recordset として、 Private Sub コマンド34_Click() set Module1.rst=me.recordset ' この中では、rst.fields(*)で、フィールドの値を使えるのですが・・・ END Sub 呼び出した親フォームでは、module1.rst.fields(*)を使用できません。 質問は二つあります。 １）広域変数ｒｓｔは、上記のような宣言・使用法で問題ないですか？ ２）sub またはfunction間にわたって、レコードを渡す、いい方法はないですか？
- 締切済み
- オフィス系ソフト
- ACCESS/VBA 追加レコードが表示されない
ACCESS 2003 で開発しています。 フォームのデータソースがテーブルAで、テーブルAの主キーはオートナンバーです。 フォーム上のボタンをクリックすると、追加クエリを実行して、テーブルAに１レコード追加し、 フォームにそのレコードを表示したいのですが、 クエリ実行前の最終レコードが表示されてしまいます。 テーブルAを見ると、オートナンバーがふられたレコードが末尾にちゃんと追加されています。 Dim dbs As Database Dim Qdf As QueryDef Set dbs = CurrentDb Set Qdf = dbs.QueryDefs("Q_データ追加2") ←追加クエリ Qdf.Execute Me.Refresh '* 最終レコードを表示 DoCmd.GoToRecord , , acLast どのようにすれば、直前に追加したレコードをフォームに表示できるのか おわかりの方がおられましたら、お教え下さい。ちなみに、ACCESSは、 「既定の開くモード 」：共有モード 「既定のレコードロック」：ロックしない という設定になっています。 よろしくお願い致します。
- ベストアンサー
- Visual Basic
- アクセス2003 VBAについて
アクセス2003VBA初心者ですが、誰が解る方詳しく教えていただけますか？ 検索フォームで検索した結果を、別フォームに表示を行い、詳細ボタンを押下すると、選択したレコードの詳細フォームを開く すみません。質問事体が言葉らずかも知れませんが、よろしくお願いいたします。
- 締切済み
- その他（プログラミング・開発）
お礼
Set rs = Forms!フォーム名.RecordsetClone (Me.RecordsetClone でも可) このようにデータ参照すればよいのですね。 早速試してみます。 ありがとうございました（ぺこり）