forms - MSAccess 2010 表单：使用 If 和 Then 语句

Question

我在 MS Access 2010 表单上有两个文本字段，Branch_Name 和 Branch_Code。我需要一个代码或表达式，当我输入分支代码时，例如：9001，特拉法加广场会自动出现在 Branch_Name 字段中。我有 240 个分支代码，为此我需要一个这样的代码。

请帮忙，因为这是我部门的一个自发项目。

谢谢。

Answer 1

您最好创建一个组合框Branch_Code，然后将Row Source设置为：

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