如下圖，我建立了一個匯率的表單，每個月的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