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


新規取引先をコンボボックスに追加する : Access裏技Tips



コンボボックスは、入力を迅速に間違いなく行うためのとても便利なオブジェクトです。 ここでは、未登録の取引先をコンボボックスに追加する技を紹介します。

取引先をコンボボックスに追加する

  1. 売上げテーブル(tbl_売上げ)と取引先マスターテーブル(tbl_取引先)を作成します。
  2. tbl_取引先テーブルはコンボボックスの値集合ソースに指定します。
  3. 売上げテーブルをもとに単票式の売上げ入力フォームを作成します。
  4. 取引先データはコンボボックス(コンボ取引先名)を利用します。
  5. コンボボックスへリスト外データの登録を可能にするため、リスト外入力時イベントプロシージャを作成します。
  6. 取引先マスターテーブルへ取引先の新規登録は、追加クエリー(qry_追加クエリー)を利用します。

売上げテーブルの作成

テーブルを作成します。

  1. ID(オートナンバー型)、納品日(日付/時刻型)、取引先(テキスト型)、請求額(通貨型)のフィールドを作成します。

取引先マスターテーブルの作成

取引先マスターテーブルを作成します。

  1. ID(オートナンバー型)、取引先(テキスト型のフィールドを作成します。

追加クエリーの作成

追加クエリーを作成します。

  1. まず、選択クエリーを作成します。
  2. クエリーをデザインビューで開きます。
  3. テーブルの表示は行いません。
  4. クエリーフィールドに、式1: Forms!frm_売上げ!コンボ取引先.text と記述します。
  5. メニューバーのクエリから追加をクリックします。
  6. 追加先入力のダイアログが開きますので、tbl_取引先テーブルを選択します。

  1. クエリーのデザインビューに戻り、レコードの追加先欄で取引先を選択します。
  2. 保存します。

売上げ入力フォームの作成

売上げ入力フォームを作成します。

  1. 売上げテーブルをもとに売上げ入力フォームを作成します。
  2. 取引先テキストボックスをコンボボックスに変更します。
  3. コンボボックスプロパティから「入力チェック」を"はい"にします。

リスト外入力イベントプロシージャの作成

リスト外入力イベントプロシージャを作成します。

Private Sub コンボ取引先_NotInList(NewData As String, Response As Integer)

    Dim strmsg As String
    strmsg = "入力された語句は登録されていません。新規に登録し保存しますか?"

    If 1 <> MsgBox(strmsg, 1) Then
        Response = acDataErrContinue ' --- A
        Me.コンボ取引先.Undo ' --- B
    Else
        DoCmd.SetWarnings False ' --- C
        DoCmd.OpenQuery "qry_追加クエリー" ' --- C
        Response = acDataErrAdded ' --- E
        DoCmd.SetWarnings True ' --- F

        MsgBox "登録が完了しました。"
    End If
    
End Sub
解説
  1. 既定のエラーメッセージを表示せずに処理を継続します。
  2. Undoメソッドを用いて、元の値に戻します。
  3. 警告メッセージを無効にします。
  4. 新規登録を行う追加クエリーを実行します。
  5. コンボボックスに新規取引先を追加できるようになり、コンボボックスの再クエリが実行されてリストが更新されます。
  6. 警告メッセージを有効に戻します。

動作確認

  1. 売上げ入力フォームをデザインビューからフォームビューに切り替えます。
  2. リストにない取引先を入力すると、メッセージが表示します。

  1. [OK]ボタンをクリックすると、登録され利用できるようになります。


関連ページ

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

 


新規取引先をコンボボックスに追加する : Access裏技Tips


 

-Microsoft Access Club-

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