dim ssql as string
ssql="delete * from DATA"
CurrentDb.Execute ssql
ssql="insert into DATA (工艺名称,温度,速度,时间,次数) "
ssql=ssql & "select 工艺名称1,温度1,速率1,时间1,sum(次数1) as 次数 from 工艺表 "
ssql=ssql & "group by 工艺名称1,温度1,速率1,时间1"
CurrentDb.Execute ssql
实际上DATA数据表是多余的,直接做一个分组查询就可以得到结果了。
点击下载此附件
Option Compare Database
Private Sub 次数_AfterUpdate()
Call 确认追加
End Sub
Private Sub 工艺代码_AfterUpdate()
Call 确认追加
End Sub
Private Sub 工艺名称_AfterUpdate()
Call 确认追加
End Sub
Private Sub 其他字段_AfterUpdate()
Call 确认追加
End Sub
Private Sub 时间_AfterUpdate()
Call 确认追加
End Sub
Private Sub 速率_AfterUpdate()
Call 确认追加
End Sub
Private Sub 温度_AfterUpdate()
Call 确认追加
End Sub
Public Sub 确认追加()
If Not IsNull(工艺代码) And Not IsNull(工艺名称) And Not IsNull(温度) And Not IsNull(速率) And Not IsNull(时间) And Not IsNull(次数) Then
If Nz(DCount("ID", "DATA", "工艺代码=FORMS!工艺表窗体!工艺代码 AND 工艺名称=FORMS!工艺表窗体!工艺名称 AND 温度=FORMS!工艺表窗体!温度 AND 速率=FORMS!工艺表窗体!速率 AND 时间=FORMS!工艺表窗体!时间 AND 次数=FORMS!工艺表窗体!次数")) = 0 Then
DoCmd.RunSQL "Insert into DATA(工艺代码,工艺名称,温度,速率,时间,次数) values (FORMS!工艺表窗体!工艺代码,FORMS!工艺表窗体!工艺名称,FORMS!工艺表窗体!温度,FORMS!工艺表窗体!速率,FORMS!工艺表窗体!时间,FORMS!工艺表窗体!次数)"
End If
End If
End Sub
总记录:2篇 页次:1/1 9 1 :