如下图，我建立了一个汇率的表单，每个月的1、11、21号会把下个10日的汇率填上去。
http://ppt.cc/-UGG
然后，最主要的是要给客户的报价单，会依照不同的客户，用不同的币别做报价。如下图…
http://ppt.cc/crm1
我要的是，当我选择不同的币别时，就会显示对应的汇率。
http://ppt.cc/S-cx
例如：
报价日期=2014/12/02，选择人民币时，就会自动显示汇率=4.996。
报价日期=2014/12/15，选择美元时，就会自动显示汇率=31.075。
报价日期=2014/12/15，选择人民币时，就会自动显示汇率=5.033。
这样一来，就可以减少汇率key错的问题，也可以避免一直看汇率而有计算错误。
请各位教教我~~
以下是我写的VBA，但失败。
Private Sub 币别_change()
Do While (Me![报价日期] >= [Table]![汇率][汇率起始日期])
If Me![币别]="新台币" Then
Me![汇率]="1"
End If
If Me![币别]="美元" Then
Me![汇率]=Dlookup("美元买入汇率","汇率","[币别]='" & Me![币别] & "'")
End If
If Me![币别]="人民币" Then
Me![汇率]=Dlookup("人民币买入汇率","汇率","[币别]='" & Me![币别] & "'")
End If
If Me![币别]="港币" Then
Me![汇率]=Dlookup("港币","汇率","[币别]='" & Me![币别] & "'")
End If
Loop
End Sub