哪位高手帮小弟看看如何用VBA解决这个小问题

aries1912

现有“表1”，表1有字段[配方]，[备注]。
由表1生成数据表窗体[窗体1]，小弟作代码如下：
Private Sub 备注_GOTFOCUS()
If Me.配方 = "AAA" Then
    Me.备注 = 1
ElseIf Me.配方 = "BBB" Then
    Me.备注 = 2
ElseIf Me.配方 = "CCC" Then
    Me.备注 = 3
Else
    Me.备注 = 4
End If
End Sub

现在的问题是每次单击[备注]才会显示出值。而我想做的是当输入配方后，在备注中能实现自动显示我设定的数字。比如我在[配方]中输入BBB,必须单击[备注]才会显示“2”，我现在就是想跳过单击这个步骤。我也想过比如LOAD,AFTERUPDATE()等，但试了好多次也没搞定。  

哪位高手能帮小弟看看怎么搞呢，先谢过！

aries1912

刚忘了上传附件了，这里是附件

红尘如烟

在[配方]的AfterUpdate事件中调用

zxklzxm1983

chaojianan

用select case吧
Private Sub 配方_AfterUpdate()
    Select Case Me.配方.Value
    Case "AAA"
        Me.备注 = 1
    Case "BBB"
        Me.备注 = 2
    Case "CCC"
        Me.备注 = 3
    Case Else
        Me.备注 = 4
    End Select

End Sub

chuang0321

5#正好表达了我的想法，多用select case语句会减少很多出错机会。