Microsoft Access Club >Access裏技Tips >このページ >次頁 < 前項 サイト内検索


テキストボックスに複数行で表示し入力確認する : Access裏技Tips



複数のテキストボックスに入力を行った場合、データの入力確認に手間取ります。 ここでは、1つのテキストボックスに複数行で表示し入力確認を行う技を紹介します。

データを複数行で表示する

  1. サンプルテーブル(tbl_sample)を作成します。
  2. ID(オートナンバー型)、氏名(テキスト型)、Email(テキスト型)、携帯mail(テキスト型)フィールドを作成します。
  3. このテーブルをもとに、メールアドレス入力フォームを作成します。
  4. 新たに入力確認用のテキストボックス(txtチェック)、コマンドボタン(Cmdコマンド)を作成します。
  5. コマンドボタンのクリック時イベントを利用して改行定数を用いて一覧表示を行います。

メールアドレス入力フォームの作成

メールアドレス入力フォームを作成します。

  1. サンプルテーブルをもとにメールアドレス入力フォームを作成します。
  2. 新たにテキストボックス、コマンドボタンを作成します。

コマンドボタンのクリック時イベントプロシージャの作成

コマンドボタンのクリック時イベントプロシージャを作成します。

Private Sub cmd_実行_Click()

    On Error GoTo エラー

    Dim varTXT As Variant ' --- A
    Dim txtboxID As TextBox ' --- B
    Dim txtbox名前 As TextBox
    Dim txtboxEmail As TextBox
    Dim txtbox携帯メール As TextBox
    
    Set txtboxID = Me.ID ' --- C
    Set txtbox名前 = Me.名前
    Set txtboxEmail = Me.Email
    Set txtbox携帯メール = Me.携帯mail
    
    varTXT = txtboxID & vbCrLf & txtbox名前 & vbCrLf & _
              txtboxEmail & vbCrLf & txtbox携帯メール ' --- D
    
    Me.txtチェック = varTXT ' --- E
    Me.ID.SetFocus ' --- F
       
Exit Sub

エラー: ' --- G

    MsgBox "何か予期せぬエラーが発生しました。エラーコード:" & _
           Err.Number & Chr(13) & Err.Description, vbCritical
    End

End Sub
解説
  1. …変数varTXTを宣言します。
  2. オブジェクト変数txtboxID、txtbox名前、txtboxEmail、txtbox携帯メールを宣言します。
  3. Setステートメントでオブジェクト変数をオブジェクトに定義付けします。
  4. 改行定数vbCrLfを用いて、各オブジェクト変数を &(アンバサダ)で結び付けます。
  5. テキストボックスtxtチェックに変数varTXTを代入します。
  6. IDフィールドにフォーカスを移動します。
  7. 以下、エラー処理ルーチンです。
今回のおすすめポイント

改行定数vbCrLf

Chr関数を用いChr(13)として、改行定数vbCrLfの代用が可能です。

varTXT = txtboxID & Chr(13) & txtbox名前 & Chr(13) & _
         		txtboxEmail & Chr(13) & txtbox携帯メール

レコード移動時イベントプロシージャの作成

レコード移動時イベントプロシージャを作成します。

Private Sub Form_Current()

    Me.txtチェック = "" ' --- A

End Sub
解説

A…レコードを移動した時は、txtチェックテキストボックスを空欄にします。

動作確認

  1. デザインビューからフォームビューに切り替えます。
  2. データ入力を行います。

  1. コマンドボタンをクリックします。

  1. 複数列でデータが表示されているのを確認します。

関連ページ

ページの先頭へ 前ページへ戻る

 


テキストボックスに複数行で表示し入力確認する : Access裏技Tips


 

-Microsoft Access Club-

cPanel と PLESKをインストールした専用・共有レンタルサーバーを銀行振込でご提供中。契約書は一切不要です。
cPanel や PLESKをインストールした専用・共有レンタルサーバー
まずは1ヶ月から...。
日本国内の銀行振込がOK、契約書は不要です。