テキストボックスに入力した文字列でテーブルを検索、該当レコードを別フォームに表示する

Question

初歩的な質問で恐縮ですが、どなたか教えてくださると助かります。

検索用フォームのテキストボックスに伝票番号を入力し、テーブル内の伝票番号を検索。
番号が一致したレコードを、別のフォームに表示させたいと思っています。

まず、テキストボックスに入力した伝票番号でテーブルを検索する、というところからわかりません…

すべてaccessVBAで作らなければならないので、全体の流れを
初心者でもわかりやすく説明していただけませんでしょうか…。
もしくは、参考になるサイトなどありましたら教えていただけると嬉しいです。

Answer 1

まずは、検索結果表示用フォームを作成します。

名前　F_伝票
レコードソース　伝票テーブル

フォームウィザードで作成すると簡単に作成できます。
もし、伝票テーブル、伝票明細テーブルというように一対多のふたつのテーブルに分かれているなら、リレーションシップを設定しておいてからフォームウィザードで作成するとメイン/サブフォーム形式のフォームができきます。

検索結果表示用フォームが作成できたら、

検索用フォームのテキストボックス名　txt伝票番号

検索コマンドボタン名　cmdOpen伝票

cmdOpen伝票のクリック時のイベントプロシージャを下記のように記述

Private Sub cmdOpen伝票_Click()
    Docmd.OpenForm "F_伝票", , ,"伝票番号=" & Me.txt伝票番号
End Sub

伝票番号フィールドが数値型の場合です。
もし、伝票番号フィールドがテキスト型なら、

Private Sub cmdOpen伝票_Click()
    Docmd.OpenForm "F_伝票", , ,"伝票番号='" & Me.txt伝票番号 & "'"
End Sub

Comments

[romchro]

ありがとうございます！
検索フォームと表示フォームを別にすることにとらわれて、小難しく考えてしまっていました。

Answer 2

どのような別フォームにするのか不明ですが、帳票フォーム（一覧）で検索ボタンを設けるくらいで良いなら、「Access 検索フォーム」で検索すれば、目的に合ったものが見つかるかもしれません。

Comments

[romchro]

ありがとうございます。
表示フォームに検索をつけるタイプのときは、参考にさせていただきます！

Answer 3

これなんか、割と丁寧かなと思いますがどうでしょうか？
http://hamachan.info/win10/access/textbox.html

Comments

[romchro]

ありがとうございます！
こちらも別のデータベースを扱うときに使うと思いますので、非常に助かります！
画像付きでとてもわかりやすいです。