[求助]组合框选中但记录中不存在的问题

天天网上

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

加个出错语句：
on error goto ErrLBL:
……
ExitLBL:
    EXIT SUB
ErrLBL:
    MSGBOX "出错！"
    GOTO EXITLBL

天天网上

谢谢，我试试。