[5分]提示金额不符，如果是整数就没问题，如果小数点后两位就出现错误判断

Private Sub 开票金额_AfterUpdate()

If Val(Me.开票金额) <> Val(Me.fysum) Then
  If MsgBox("您输入的开票金额同对账金额不符，是否要进行调整？", vbYesNo + vbQuestion, 提示!) = vbYes Then
    DoCmd.Close acForm, Me.Name

     Forms!usysfrmmain!frmChild.SourceObject = "frmsrtz_child"
     Forms!usysfrmmain!frmChildName.Caption = "收入调整明细"
Else
     MsgBox "请重新输入开票金额！", vbCritical, "提示："
     Me.开票金额 = Null
     Me.开票金额.SetFocus
  End If
 
 End If
 
End Sub

之前是整数，这样写没问题，但是单精度就会出问题