MS Access 2010表单:使用If和Then语句

时间:2013-10-29 17:32:55

标签: forms vba ms-access access-vba ms-access-2010

我在MS Access 2010 Forms,Branch_Name和Branch_Code上有两个文本字段。我需要一个代码或表达式,当我输入分支代码例如:9001时,Trafalgar Square会自动出现在Branch_Name字段中。我有240个分支代码,我需要有这样的代码。

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

感谢。

1 个答案:

答案 0 :(得分:2)

您最好为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