MS Accessのifステートメントを使用してより良い方法が必要

Question

今、私は人が要求するマニュアルの変更を示す新しいデータベースを作成しています。私は2つのテーブルと1つのフォームを持っています。最初の表は、すべての情報がマニュアルのリファレンスまたはサブチャプター、そのサブチャプターの現在のテキスト、および提案された変更が格納されていることです。 2番目の表は、ID、SubChapter、およびサブチャプターの内容を示すメモフィールドの3つのフィールドを持つサブチャプター参照のためのテーブルです。今私は、チャプター参照のためのコンボボックスを使用しており、参照に応じて別のフィールドの現在のテキストを別のフィールドに埋めます。ここでは、より良いアイデアを得るために私のif文です：私がやりたいのは何

If code_ref = "82.101(c)" Then 
current_code = "Other County Regulations" 
proposed_code.SetFocus 
End If 

は、if文には、参照をチェックして、次のフィールドで適切なテキストを挿入した場所に、ルックアップにそれらの千を回しています。私はif文を終了するだけでこれを行う方法を見つけるのに問題があります。私は変化を踏まえてそれをやりたいので、参照を繰り返して彼らが探しているものを正確に見つけることができます。助言がありますか？

私のコメントから取る： これはどのように動作するかというアイデアは、名前を記入してフォームを開き、コンボボックスを使用してコード参照を選択し、コード参照を選択します。現在のコードフィールドボックスに入力され、変更ができるように、提案されたコードフィールドにフォーカスが設定されます。

Answer 1

は、テーブル内の利用可能な基準ですし、そうでない場合、あなたは、このような表を作成することができます

code_ref  current_code 
82.101(c) Other County Regulations 

このようなテーブルを使用すると、現在のコードwhを表示するために使用できるクエリを作成できるはずですen code_refが選択されています。

編集再コメント

あなたは両方のテーブルからデータを選択クエリを作成してから、レコードをナビゲートするためにコンボボックスを追加するためのウィザードを使用することができます。一意のキーがある場合、レコードセットは編集可能です。

あなたは、関連するテーブルをのDLookupするために使用することができますコンボボックスを設定することができる場合があります

Me.txtTextBox = DLookUp("FieldYouWantToReturn","TableNameHere","current_code='" _ 
    & Me.cboCombobox & "'" 

方法のDLookup（簡単には）次のとおりです。

DLookUp("FieldYouWantToReturn","TableNameHere","NameOfTextFieldInTable='" _ 
     & Me.ControlOrValueToCompare & "'" 

Meはの省略形です現在の書式
コントロールは引用符の外にあることに注意してください。
番号を比較する場合は、引用符は不要です
＃yyyy/mm/dd＃

リンクフィールドにcurrent_codeを指定してサブフォームを使用できる場合があります。

これはほんの少しのアイデアですが、ユーザーが何をできるようにしたいのかはっきりしていません。

Answer 2

テーブルベースのルックアップが必要です。あなたの説明から、3番目のテーブル、または2番目のテーブルの追加のフィールドが必要かどうかはわかりません。

http://www.trigonblue.com/AccessLookup.htm
http://www.fabalou.com/Access/General/lookup_tables_lut.asp

は、 "ルックアップフィールドを" 使用しないでください。
http://www.mvps.org/access/lookupfields.htm