Office中国论坛/Access中国论坛

标题: 【【【这个VBA语句有什么问题啊】】】 [打印本页]

作者: xinyuehu 时间: 2008-10-23 19:28
标题: 【【【这个VBA语句有什么问题啊】】】
我就是想输入业务金额，根据输入的各种条件自动匹配对应的业务费率

Option Compare Database
Private Sub ywfl_Enter()
If ywlx = "养卡" Then
  ywfl = 0.02
ElseIf ywlx = "代还" Then
  If vip = "Y" Then
ywfl = 0.02
  ElseIf vip = "N" Then
If klx = "境内" Then
   ywfl = 0.028
ElseIf klx = "境外" Then
   ywfl = 0.038
Else
   ywfl = ""
End If
  Else
ywfl = ""
  End If
ElseIf ywlx = "提现" Then
  If ywje <= 3000 Then
ywfl = 0.02
  ElseIf ywje > 3000 Then
ywfl = 0.018
  Else
ywfl = ""
  End If
Else
  ywfl = ""
End If
End Sub

可是不加中间这段

If klx = "境内" Then
   ywfl = 0.028
ElseIf klx = "境外" Then
   ywfl = 0.038
Else
   ywfl = ""
End If

的时候就没问题，一加上去就不行了，我初学access和vba，实在看不出来哪里有问题

请大家帮我改一下，先谢谢了

还有就是我想让窗口里任意一个数据改动的时候都会执行这段代码，应该用什么事件啊？

附上access文件，是2003格式的了

作者: tmtony 时间: 2008-10-23 20:43
使用 nz(klx) 来判断
因为klx里是空值

作者: tz-chf 时间: 2008-10-23 20:56
处理方法不太好

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)