Function 访问时将十进制字段从传递到函数参数的错误类型

将十进制数[nr_tamanho]传递给函数参数时，我得到了错误类型。你能帮我吗

带2的十进制数

2位小数的一般数

召唤

作用

Public Function CalculoExcesso(intQuantidade As Integer, strUnidade As String, bolTamanho As Double, strAcabamento As String, strFioAjuda As String, strReferencia As String) As Integer

On Error GoTo Err_CalculoExcesso

Dim intTotal As Integer
Dim bolExcesso As Double

intTotal = 0
bolExcesso = 0

'IFS HERE

intTotal = CInt(intQuantidade * bolExcesso)

CalculoExcesso = intTotal

Exit_CalculoExcesso:
Exit Function

Err_CalculoExcesso:
Select Case Err

Case Else
MsgBox Err.CalculoExcesso
Resume Exit_CalculoExcesso
End Select

End Function

---

我测试了你的功能，没有出错。你调试过step吗？禁用错误处理程序，以便您可以获得实际的错误消息。对不起，我完全忘记了该字段不是必填字段，并且在调用函数之前没有检查它是否为null。。。

Public Function CalculoExcesso(intQuantidade As Integer, strUnidade As String, bolTamanho As Double, strAcabamento As String, strFioAjuda As String, strReferencia As String) As Integer

On Error GoTo Err_CalculoExcesso

Dim intTotal As Integer
Dim bolExcesso As Double

intTotal = 0
bolExcesso = 0

'IFS HERE

intTotal = CInt(intQuantidade * bolExcesso)

CalculoExcesso = intTotal

Exit_CalculoExcesso:
Exit Function

Err_CalculoExcesso:
Select Case Err

Case Else
MsgBox Err.CalculoExcesso
Resume Exit_CalculoExcesso
End Select

End Function