Question

我的客户希望能够自动求和单元格中的值。例如，他们键入一个新值，并且该值将被添加到前一个值，全部都在一个单元格内（它们不需要另一个字段）。

到目前为止，我有2种形式，它们将使用它们输入到 calculator 中的一种形式来计算新值，但是它仅适用于一个单元格。

Option Compare Database

Function MyVal(lnIn As Long)
    If Len(Me.entry) > 1 Then
        Me.entry = Replace(Me.entry, ".", "") & lnIn
        'Me.entry = Left(Me.entry, Len(Me.entry)) & "." & Right(Me.entry)
    Else
        Me.entry = Me.entry & lnIn
    End If
End Function

Private Sub calc_Click()
    Me.Balance = Me.Balance - (-(Me.entry))
    Me.entry = ""
End Sub

Private Sub clear_Click()
    Me.entry = ""
End Sub

Private Sub Command16_Click()
    Dim MyBalance As Currency
    MyBalance = Me.Balance
    DoCmd.Close
    Forms!frmHours.Form.SetFocus
    Forms!frmHours.Form.Balance = MyBalance
End Sub

Private Sub Form_Open(Cancel As Integer)
    Me.Balance = OpenArgs
End Sub

是否可以将“选定的”单元格值移到我拥有的表中（代替旧值），进行计算，然后将新值移回选定的单元格中？

MS Access-更新单元格的值

0 个答案: