我對子窗體上的所有三個事件進行計算以更新主窗體：

Private Sub Form_AfterDelConfirm(Status As Integer)

Me.Parent.UpdateStunden

End Sub

Private Sub Form_AfterInsert()

Me.Parent.UpdateStunden

End Sub

Private Sub Form_AfterUpdate()

Me.Parent.UpdateStunden

End Sub

Public Sub UpdateStunden(Optional BeforeUpdateEvent As Boolean = False)

On Error GoTo ErrorHandler

Dim rst As Recordset

Dim sql As String

Dim NewStunden As Variant

If Me.NewRecord Then Exit Sub

sql = _

"SELECT Sum(Stunden) AS SumStunden " & _

"FROM T?tigkeiten " & _

"WHERE T?tigkeitsdatum = #" & Format(Me!T?tigkeitsdatum, "yyyy-mm-dd") & "#;"

Set rst = CurrentDb().OpenRecordset(sql, dbOpenSnapshot)

If Not rst.EOF Or Not rst.BOF Then

NewStunden = rst!SumStunden

If Nz(NewStunden) <> Nz(Me.Stunden) Or IsNull(Me.Stunden) Then

Me.Stunden = NewStunden

End If

End If

ExitPoint:

On Error Resume Next

If Me.Dirty And Not BeforeUpdateEvent Then Me.Dirty = False

rst.Close

Set rst = Nothing

Exit Sub

ErrorHandler:

Select Case Err

Case Else: LogNTEvent Now & "Error: " & Err & ": " & Err.Description & ": UpdateStunden", EVENTLOG_ERROR_TYPE, 1000, "Error: " & Err.Number

End Select

Resume ExitPoint

End Sub

這通常很好 .

但是如果我將多個記錄復制并粘貼到子表單中，則會出現錯誤 . 當我將多個記錄從一個子表單復制并粘貼到同一個子表單但在另一個主表單記錄上時，計算錯誤 .

這應該作為標準，因為我到處使用它 .

我們需要一個After Paste事件！

有誰知道如何做到這一點？

關心理查德

總結

以上是生活随笔為你收集整理的java 两个窗口 贴_粘贴子窗体中的多个记录时的子窗体校准错误的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。