• ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：Docmd.Openreportで範囲印刷をさせたい。access2000）

Access2000で範囲印刷を実現する方法

how-do-you-doの回答

  • ベストアンサー
回答No.1

Private Sub コマンド0_Click() Dim strFilter As String strFilter = "ID>='" & Me.kaishi_text.Value & "' And ID<='" & Me.syuuryou_text.Value & "'" DoCmd.OpenReport "テーブル名", acViewPreview, , strFilter End Sub IDフィールドが文字列型の場合は上記の方法でよいが、 もし数値型の場合は下記になる strFilter = "ID>='" & Me.kaishi_text.Value & "' And ID<='" & Me.syuuryou_text.Value & "'" ↓ strFilter = "ID>=" & Me.kaishi_text.Value & " And ID<=" & Me.syuuryou_text.Value

naka5456
質問者

お礼

ご回答ありがとうございます。 早速やってみるとうまくいきました！ 助かりました、how-do-you-do様ありがとうございます。

この回答がついた質問に戻る
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • ★アクセス2002★DoCmd.ApplyFilterの記述

    先日同じような質問をして回答頂きましたが再度お願いします。 住所検索フォームを作成中です。 住所検索フォームにテキストボックス[検索値]を配置して、[検索値]に入力した語句で始まるレコードを表示させています。[抽出開始]コマンドボタンに下記の様に記述していますが、これだと[住所]の頭の文字でしか抽出できません。[検索値]に入力する語句は必ずしも頭の文字ではないので、途中の一部の語句でもヒットするようにしたいのですが、上手く記述できずに困っています。 DoCmd.ApplyFilter , "[住所] Like '" & Forms![住所テーブル一覧]![検索値] & "*'"

  • Accessのフォームで

    教えてください。下のようなテーブルがあり、これを元にフォームを作成したいのですがいい方法が見つかりません。 【テーブル】 　品物テーブル（品物ID、品物、製作所） 　社員テーブル（品物ID、社員コード、氏名） このテーブルを元にして下のようなフォームを作りたいのです。 【フォーム】 　品物ID　[テキストボックス] 　品物　[テキストボックス] 　製作所　[テキストボックス] 　社員コード　[テキストボックス] 　氏名　[テキストボックス] 　社員コード　[テキストボックス] 　氏名　[テキストボックス] 　社員コード　[テキストボックス] 　氏名　[テキストボックス] ※社員コード、氏名が３つあるのは、同じ品物を３人が作成することがあるため。（この部分で悩んでいます） このようなフォームを作ることは可能でしょうか？ また参考になるようなサイトなどあれば教えてください。 よろしくお願いします。

  • ＡＣＣＥＳＳのフォームの作り方について

    ＡＣＣＥＳＳのフォームについてお尋ねします。 『会員ナンバー』を主キーに設定しているテーブル（顧客データ。会員ナンバー・住所・氏名等のデータが入ってます）を元にＡＣＣＥＳＳで入力フォームを作っているのですが、会員ナンバーを入力したら住所・氏名のテキストボックスに自動的に入力されるにはどのようにしたらいいですか？ 現在データが１番から自動的に表示されていて、例えば１番の人が表示されているときに会員ナンバーのテキストボックスに番号を入力すると、そのまま１番の人が上書きされてしまいます。 会員番号を検索して住所などのデータが出てくるイメージにしたいのですが。。。 本当はすでに入力されている住所等のデータはこのフォームでは上書きされないようにしたいのです。 ちなみにこのレポートは会員を新規追加するためではなくどんな修理をしたかという項目を追加させるため物です。

  • Access2003で質問

    (1)テーブルで「氏名」、「住所」のデータベースを作成。 (2)フォームで「氏名」、「住所」のテキストボックスを作成 (3)　(2)で作ったフォームで(1)で作ったデータベースを表示させたい のですが、(2)のテキストボックスで「#Name?」と表示されてしまいます。 (1)で作ったデータベースを(2)で作成したテキストボックスに表示させ方を教えてください。

  • Access2003のコンボボックスで

    テーブルにある ID　名前　誕生日　住所 データをフォームで IDをコンボボックスで選択し テキストボックスA,B,Cに 名前、誕生日、住所を表示させたいのですが どの様な処理を行なえばよろしいのでしょうか？

  • Access2002で任意のレコードのみをレポートで印刷したい

    http://oshiete1.goo.ne.jp/qa5272888.html の続きです。 テーブルは下記のとおりです。（計４つ） 1.顧客テーブル（データ投入済み） ・顧客ＩＤ（テキスト） ・顧客名（テキスト） ・フリガナ（テキスト） 2.納品書テーブル（データはフォームから自動生成） ・納品書ＩＤ（オートナンバー） ・納品日付（日付） ・顧客ＩＤ（テキスト） 3.注文テーブル（データ投入済み） ・注文ＩＤ（テキスト） ・顧客ＩＤ（テキスト） ・納品書ＩＤ（テキスト） ・数量（数値） ・摘要（テキスト） ・選択（Yes/No） 4.商品マスター（データ投入済み） ・商品ＩＤ（テキスト） ・商品名（テキスト） ・単価（数値） 以上の4つのテーブルでテストDBを作っています。 上述したとおり、フォームで、 1.新規レコードの作製 2.納品日付入力 3.コンボボックス（従業員名、カナ）をコンボボックスで選択 という手順を踏み、納品書番号が自動的に振られるフォームまで作成できました。 これを元に、レポートとして、 ・顧客を選択 ・納品書番号を選択 して、選択したレコードをレポートに表示したい、という質問です。 前の質問で、下記ご回答を得ております。 --------------------------------------------------------------- １．納品書の一覧 以前作成した「納品書番号」のレコードソースを SELECT 納品書テーブル.納品書ID, 納品書テーブル.納品日付, 納品書テーブル.顧客ID FROM 納品書テーブル ORDER BY 納品書テーブル.納品書ID DESC; に変更して、新しいものが先に見えるようにします ２．フォームのプロパティで「データ」の「追加の許可」を「いいえ」にします。 ３．ウィザードが起動したら「フォームの操作」「フォームを開く」と進み、「納品書番号（選択）」を開くようにします。これでいつでも新規納品書を作成できます ４．「納品書番号」フォームのイベントで「アクティブ時」を「[イベント プロシージャ]」にし編集ボタン（…）を押して、以下のようにします Private Sub Form_Activate() Me.Requery End Sub これで新規納品書作成後に「納品書番号（選択）」を閉じると、最新の納品書が表示されます ５．レポート「納品書」の作成 レコードソースは SELECT 納品書テーブル.納品書ID, 納品書テーブル.納品日付, 従業員マスタ.従業員名 FROM 従業員マスタ INNER JOIN 納品書テーブル ON 従業員マスタ.従業員ID = 納品書テーブル.顧客ID WHERE (((納品書テーブル.納品書ID)=[Forms]![納品書番号]![納品書ID])); ６．レポートにフィールドリストから「納品書ID」「従業員名」などを貼り付けます ７．「納品書番号」をデザインモードで開き、ボタンを追加し「納品書」レポートをプレビューで開くようにします。これで任意の納品書が印刷できるようになります ８．実際のレポートは納品書番号に対応するアイテムが並ぶ必要がありますが、これはレコードソース（クエリ）を拡張することでもできるし、親子レポートにすることでも可能です。色々試してください --------------------------------------------------------------- fuuten_no_nekoさん、ありがとうございました。 これまでは「フォーム」に関する質問で、今回は「レポート」に関するものに進んできましたので、新規の質問にしたほうがよいとのアドバイスを受け、この質問を立ち上げます。 なお、「今ここまでできている」という部分は、補足に記述します。 どうぞよろしくお願いします。

  • Accessコンボボックスとテキストボックス連携

    Access初心者です。よろしくお願い致します。 コンボボックスとテキストボックスの連携がうまくいかずに苦戦しています。 Accessオブジェクト ＜テーブル＞ 　T_住所録 　　∟ID、名前、住所、電話番号、アドレス 　T_住所確認テーブル 　　∟名前、住所 ＜クエリ＞ 　Q_ラベル_住所録 　Q_住所確認テーブル 　Q_入力_住所確認テーブル ＜フォーム＞ 　F_入力_住所確認テーブル 　　∟コンボボックス(名前)、テキストボックス(住所) とあり、 「Q_住所確認テーブル」では、 「T_住所録：名前」＝「T_住所確認テーブル：名前」 「T_住所録：住所」＝「T_住所確認テーブル：住所」 を、つなげてあります。 フォームの「F_入力_住所確認テーブル」では、コンボボックスをクリックすると名前が選択でき、選択するとその名前の人の住所がテキストボックスに表示されるようにしたいのですがうまくできません。 ネットや書籍などを見ていろいろ試したのですが、ことごとく失敗しています。 「Me」とかダメでした。 ExcelのVBAは経験があるのですが、Accessはデータベースを少々編集した程度なので知識は浅いです。 なのでとても初歩的な質問かもしれませんが、どなたかご教授いただけますと幸いです。 とても勝手ながら、すごく急いでいて、どうにかしたいともがいているのですがどうにもならず焦っています。どうぞよろしくお願い致します。

  • Accessのフォームについて教えて下さい

    Access 2010のフォームについてお教え下さい。 テーブルにはテーブル名T1、フィールド「ID」、「Price」というテキストボックス。2フィールドがあります。 テーブルの各データは、 ID,Price 001,100 002,200 003,300 フォームにはにフォーム名F1、「cmb」というコンボボックスと、「price」というテキストボックスが配置されています。 「cmb」のデータは値集合ソースで、「SELECT T1.ID FROM T1;」と指定しています。 「cmb」で選択したデータのプライスを「Price」テキストボックスに表示したいと思います。 例えば、「001」を選択したら、「100」と表示されるようにしたいと思います。 色々調べているのですが、どうやってやるのかわかりません。どのように実現したらよろしいでしょうか？ よろしくお願いいたします。

  • Accessのフォームにて

    Accessの配達管理のフォーム（表形式、ある条件にて抽出済み）にて ●日付 ●顧客ID 　・ 　・ ●配達者CD 上記のフィールドがあるとします。 このフォームのヘッダー部分に非連結のテキストボックスＡ、Ｂを作成し、 テキストボックスＡに配達者CDを入力すると、 テキストボックスＢに配達者名が表示される。 フッター部分に「印刷」ボタンを作成し、これをクリックすると、 フォーム一覧の配達者CDにヘッダー部分のテキストボックスＡの 配達者CDが入力されるというシステムを作りたいのですが、 テキストボックスＡの配達者CDを参照させて、テキストボックスＢに 配達者名を表示させるというのがうまくいきません。 テーブルにて、配達者マスタ ●配達者CD ●配達者名 は、作成しています。 よろしくお願いいたします。

  • ACCESS

    どうか皆さんのお力添えを下さい。 ACCESS2010を利用して、以下の様な注文フォームaccdbを完成させていと考えています。現在、以下のところまで作業が進んでいます。 （１）テーブル (1) 注文履歴テーブル 注文ID・・・オートナンバー型 商品No・・・テキスト型 数量・・・数値型 (2) 商品テーブル 商品No・・・テキスト型 商品名・・・テキスト型 単価・・・通貨型 (3) 顧客テーブル 顧客ID・・・数値型 顧客名・・・テキスト型 パスワード・・・テキスト型 （２）フォーム (1)ログインフォーム 顧客ID入力用テキストボックス パスワード入力用テキストボックス ログインボタン・・・ＶＢＡを使って顧客テーブルに入っている顧客ID、パスワードが一致すれば注文フォームが開くところまではできました。 (2)注文フォーム（商品画像一覧があり、それをクリックすると商品No毎に個別に作成した注文フォームにジャンプします） ・コントロールボックスで数量を選ぶ ・注文ボタンを押すと注文履歴テーブルに商品ID、商品名、商品数が反映されます。 ここからが質問内容になります。 まず、はじめにログインフォームで入力後、照合OKになった顧客ID、パスワードを その後開いた注文フォームでの注文作業が完了、または中断するまでの間、 注文履歴に自動的に入力させ続けることはできますでしょうか？複数商品の注文が あった際は注文履歴テーブルにおいて複数レコードが連続して同じ顧客IDになるような 方法はあるでしょうか？ ネット通販のようなものをイメージしております。 その他にもっと効率の良いやりかたなどあればご教授下さい。 どうぞよろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する