ACCESSのフォームについて

質問

ACCESS勉強中の若輩もんです。

今一つのテーブルに顧客の住所や電話番号など１５項目程度あります。
フォームで数人の入力作業員が打ち込んでいきます。
その中にツアーNo.というフィールドがありまして、それは一回フォームを開いて入力作業をしたらほとんど変わらず同じNo.を入れているのです。
作業の効率やミスを防ぐため、フォームを開く時にNo.を最初に入れるフォームを作り、一度の入力で顧客一人一人に反映させたいのです。

まだまだ初心者なので、ご教授お願いいたします。

回答No.2

Te-Sho

初心者の方という事なので説明の仕方を悩んでしまうのですが...
制御としては可能です。

その代わりですがVBAを使用する方法が一番簡単です。
始めにAccessアプリケーション内で有効な変数を定義し、その変数を設定するための簡単なコードを標準モジュールとして作成します。
--------------------------------------------------------------
Option Compare Database
Dim TourNo As Integer
--------------------------------------------------------------
Public Sub setTourNo(inTourNo As Integer)
TourNo = inTourNo
End Sub
--------------------------------------------------------------
Public Function getTourNo() As Integer
getTourNo = TourNo
End Function
--------------------------------------------------------------
このモジュール名を仮にPropsとして保存します。

次にツアーNo入力フォームを作ります。選択用のコンボボックスの作り方などは割愛します。コンボボックス名はコンボ0とします。決定ボタンはコマンド0とします。

コマンドボタンのイベントプロパティでクリック時として
--------------------------------------------------------------
Private Sub コマンド0_Click()
Props.setTourNo (Me.コンボ0)
DoCmd.Close acForm, "ツアー入力フォーム"
DoCmd.OpenForm "入力フォーム"
End Sub
--------------------------------------------------------------
として標準モジュールのセットメソッドを呼び出します。
その後にツアーNo入力フォームを閉じて通常の入力フォームをオープンします。

あとはレコード入力のフォームでProps.getTourNoで設定したツアーNoが取得できるとおもいます。
設定は入力フォームの作り方によって変わります。
データ移動時等に直接代入してしまうとレコードが変わるたびに戻ってしまうとおもいますので、実際にいろいろと変更して試して見てください。

また、今回のポイントはVBAを使用した場合の変数の適用範囲（スコープ）ですので、ヘルプやネットを検索する際には上記語句で検索を行って見てください。（VBやVBAの基本ですので頭に入れておくと今後、役に立つと思います。）
（ちょっとJavaっぽく書いてしまいました。適用範囲から考えれば標準モジュールPropsのTourNoをDimではなくPublicとし、そのままProps.TourNoとして参照しても問題ありません。その場合はgetTourNoメソッドは不要となります。）

ちょっと急いで書きましたので、コンパイルエラー以外のデバッグしてありません。ごめんなさい。