我对子窗体上的所有三个事件进行计算以更新主窗体:

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 两个窗口 贴_粘贴子窗体中的多个记录时的子窗体校准错误相关推荐

  1. java 两个url对比_一个URL模式中的两个slu ..

    如何将两个slu in放在一个url模式中?我有一个与模型类别有多对一关系的模型链接 . url( regex=r'^(?P[\w-]+)/(?P\d+)(?:/(?P[\w\d-]+))?/$', ...

  2. java 两个窗口 贴_求助Java窗口菜单如何实现复制粘贴剪切等功能(内附源代码)...

    该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 if(e.getActionCommand()=="进入注册") {new CommFrame();   }}class Handle ...

  3. JAVA两个表相关联_关于Java:如何将多对多关联映射到映射到两个不同表的类?...

    我有一个凭证-POJO映射到两个表. 第一个映射分配一个实体名称" voucherA",并将POJO映射到TableA. 第二个映射使用" voucherB"作 ...

  4. java低层源码_如何查看javaJDK中底层源码

    展开全部 在初次使用java时,往往我32313133353236313431303231363533e4b893e5b19e31333363393735们对最基本的java类会忽略对其内部基本的实现 ...

  5. appium java 点击事件_“按钮点击”在Appium Android测试中给出“处理命令时出现未知的服务器端错误 . ”...

    info:[debug]将命令推送到appium工作队列:["element:getSize",{"elementId":"2"}] inf ...

  6. npm中node更新_如何在Node中管理NPM和功能时保持理智

    npm中node更新 by Ted Gross 泰德·格罗斯(Ted Gross) 如何在Node中管理NPM和功能时保持理智 (How to keep your sanity while manag ...

  7. java两个对象赋值_一起学Java(二十六)----- 对象之间赋值

    不积跬步,无以至千里:不积小流,无以成江海. Java语言基础 Java对象之间赋值 赋值是用等号运算符" = "进行的,在对对象进行"赋值"时,实际就是将句柄 ...

  8. java两种不同单例模式_关于Java里的两种单例模式

    没有系统学习过设计模式,只是项目中遇到一些常用的.单例模式就是最常用的之一了,还以为无非就那样的,原来单例模式的种类也有很多,不过现在我经常用到的就这两种.还有别的比如登记式单例是通过工厂方法来获得单 ...

  9. java 两个字段排序_如何在Java中按两个字段排序?

    使用Java 8流方法..//Creates and sorts a stream (does not sort the original list) persons.stream().sorted( ...

最新文章

  1. Model层的两种写法
  2. bzoj1202[HNOI2005]狡猾的商人
  3. spring boot + vue + element-ui全栈开发入门——项目部署
  4. codeblock socket 编译错误_从Linux源码看Socket(TCP)Client端的Connect
  5. xshell vim 不能粘贴_编辑器之神——vim的入门指南
  6. INF DestinationDirs Section
  7. 初中变成了菜园子了!
  8. tomcat 在WIN10 上运行出现500错误的解决方法
  9. (204)浮点数的表示
  10. 你有进一步深入理解二分查找吗?
  11. 太火!这本 AI 图书微软强推,程序员靠它拿下 50K!
  12. Android usb audio录音(四)
  13. idata 单片机 新唐_半导体新唐单片机怎么样_新唐单片机是台湾的吗
  14. sql 获取日期时分秒_SQL获取系统年月日时分秒 | 学步园
  15. 51单片机培训计划(新订)
  16. Mplayer SMplayer 软件配置
  17. V6H--升级3种方式和修改版本号
  18. Ubuntu-18.04.5-desktop安装教程
  19. 致我们渐行渐远的青春——给曾经的你
  20. vue中如何引入jquery详解

热门文章

  1. MySQL 索引优化全攻略
  2. 异步网络消息处理框架
  3. 数据科学家数据分析师_使您的分析师和数据科学家在数据处理方面保持一致
  4. 计算机学院李世杰,有关办理2016级转专业学生相关手续通知
  5. 什么事数据科学_如果您想进入数据科学,则必须知道的7件事
  6. 熊猫数据集_熊猫迈向数据科学的第一步
  7. 压缩/批量压缩/合并js文件
  8. 29 Python - 字符与编码
  9. 357. Count Numbers with Unique Digits
  10. try catch线程问题???