forms - MSAccess 2010 フォーム: If および Then ステートメントの使用

Question

MS Access 2010 フォームには、Branch_Name と Branch_Code の 2 つのテキスト フィールドがあります。支店コード (例: 9001) を入力すると、Trafalgar Square が Branch_Name フィールドに自動的に表示されるコードまたは式が必要です。私は 240 の支店コードを持っており、そのためにはそのようなコードが必要です。

これは私の部門での自発的なプロジェクトであるため、助けてください。

ありがとう。

Answer 1

コンボ ボックスを作成してから、 Row Sourceを次のようにBranch_Code設定することをお勧めします。

SELECT Branch_Code, Branch_Name FROM MyTable

次に、AfterUpdateイベントで次のようなことを行います。

Private Sub txtBranchCode_AfterUpdate()
  If(vba.strings.len(txtBranchCode.value & "") <> 0)then
    txtBrachName.value = txtBranchCode.Column(1)
  Else
    txtBrachName.value = ""
  End If
End Sub