Question

我正在尝试循环访问一组Access表单字段，以便识别最后一个值，然后围绕它构建计算。第一行的代码如下：

Private Sub TierCalc_Click()

Dim lastStageValue As Integer

    If (CP6Sum.Value Is Not Null) Then
        lastStageValue = CP6Sum.Value
    End If


End Sub

当我运行这个时，我得到上面所需的424运行时对象＆＃39;错误。如果我拿出“.Value＆＃39;在其他网站建议的代码中它保持不变。如果我宣布该字段（即＆＃39; Dim CP6Sum As Integer＆＃39;），我会得到无效的限定符＆＃39;如果我然后采取＆＃39; .value＆＃39;我得到了＆＃39; Type Mismatch＆＃39;误差Δθ

有什么想法吗？谢谢，莉莎

Answer 1

试试这个：

Private Sub TierCalc_Click()
Dim lastStageValue As Integer

If Not IsNull(Me.CP6Sum) Then
    lastStageValue = CP6Sum.value
End If


End Sub

运行时424 - Access 2013中所需的对象

1 个答案: