ACCESS VBA二义性，详细看以下代码，如何修改，请高手指点！

suzihan · 发表于 2013-5-14 07:34

Option Compare Database
Private Sub 数量_AfterUpdate()
返修率 = Nz([次品数量]) / Nz([数量])
End SubPrivate Sub 次品数量_AfterUpdate()返修率 = Nz([次品数量]) / Nz([数量])
End SubPrivate Sub 数量_AfterUpdate()人均小时产量 = Nz([数量]) / Nz([生产人数])
End SubPrivate Sub 生产人数_AfterUpdate()
人均小时产量 = Nz([数量]) / Nz([生产人数])
End SubPrivate Sub 数量_Afterpdate()
生产效率 = Nz([单件工时]) * Nz([数量]) / Nz([总工时])
End SubPrivate Sub 单件工时_AfterUpdate()
生产效率 = Nz([单件工时]) * Nz([数量]) / Nz([总工时])
End Sub

Private Sub 总工时_AfterUpdate()
生产效率 = Nz([单件工时]) * Nz([数量]) / Nz([总工时])
End Sub

suzihan · 发表于 2013-5-14 07:35

Option Compare Database
Private Sub 数量_AfterUpdate()
返修率 = Nz([次品数量]) / Nz([数量])
End
SubPrivate Sub 次品数量_AfterUpdate()
返修率 = Nz([次品数量]) / Nz([数量])
End
SubPrivate Sub 数量_AfterUpdate()
人均小时产量 = Nz([数量]) / Nz([生产人数])
End SubPrivate Sub 生产人数_AfterUpdate()
人均小时产量 = Nz([数量]) / Nz([生产人数])
End SubPrivate Sub 数量_Afterpdate()
生产效率 = Nz([单件工时]) * Nz([数量]) / Nz([总工时])
End SubPrivate Sub 单件工时_AfterUpdate()
生产效率 = Nz([单件工时]) * Nz([数量]) / Nz([总工时])
End Sub

Private Sub 总工时_AfterUpdate()
生产效率 = Nz([单件工时]) * Nz([数量]) / Nz([总工时])
End Sub

zez · 发表于 2013-5-14 07:42

有三个 Private Sub 数量_AfterUpdate()

ctp_119 · 发表于 2013-5-14 08:05

所谓的二义性，就是过程名相同，电脑不知道执行哪个的错误，通常合并即可。

xuwenning · 发表于 2013-5-14 08:26

ACCESS VBA二义性说白了就是有同名同姓的人
计算机代码不允许同名同姓的人

suzihan · 发表于 2013-5-14 10:32

具体怎么修改呢？

suzihan · 发表于 2013-5-14 10:37

我试着把 Private Sub 数量_AfterUpdate()修改成一个，还是不行。还请高手们帮我把代码修改下，多谢！

		自动登录	找回密码
密码			免费注册