Office中国论坛/Access中国论坛

标题: [求助]组合框选中但记录中不存在的问题 [打印本页]

作者: 天天网上 时间: 2004-1-30 06:59
标题: [求助]组合框选中但记录中不存在的问题
Private Sub ComBox2_AfterUpdate()
   Dim Xs, Xg, Xb, XX As Double

   Me.frm收入查询.Requery
   Me.frm固定费用查询.Requery
   Me.frm变动费用查询.Requery

   Xb = DSum("金额", "tbl变动费用", "ID=" & ComBox2)
   Xg = DSum("金额", "tbl固定费用", "ID=" & ComBox2)
   Xs = DSum("收入额", "tbl收入", "ID=" & ComBox2)
   Me.textS = Xs
   Me.textG = Xg
   Me.textB = Xb
   XX = Xs - Xg - Xb
   Me.textL = XX

End Sub
由于用一个组合框的记录控制了三个查询，若组合框选中，但记录中暂时没有该项，就出错。
该怎样解决？

作者: zhengjialon 时间: 2004-1-30 15:58
加个出错语句：
on error goto ErrLBL:
……
ExitLBL:
EXIT SUB
ErrLBL:
MSGBOX "出错！"
GOTO EXITLBL

作者: 天天网上 时间: 2004-1-31 09:00
谢谢，我试试。

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