Ambiguous name detected: AfterUpdate

[cvboas]

Hi.
I am to try to bring update a field in the db but I get this message of error:

"Ambiguous name detected: codproduto_AfterUpdate"


Can somme one help me Thanks



the code i have is:


Option Compare Database
Option Explicit

Private Sub Form_AfterDelConfirm(Status As Integer)
Forms![orcamento]![SubformularioDetalhes].Requery
End Sub

Private Sub codproduto_AfterUpdate()
Me![descricao] = Me![codproduto].Column(3)
End Sub

Private Sub codproduto_AfterUpdate()
Me![unidade] = Me![codproduto].Column(4)
End Sub

Private Sub codproduto_AfterUpdate()
Me![embalagem] = Me![codproduto].Column(5)
End Sub

Private Sub codproduto_AfterUpdate()
Me![preco_custo] = Me![codproduto].Column(6)
End Sub

Private Sub codproduto_AfterUpdate()
Me![preco_venda] = Me![codproduto].Column(7)
End Sub

Private Sub codproduto_AfterUpdate()
Me![mrg_uni] = Me![codproduto].Column(8)
End Sub

Private Sub codproduto_AfterUpdate()
Me![negotior] = Me![codproduto].Column(9)
End Sub

Private Sub codproduto_AfterUpdate()
Me![colaborador] = Me![codproduto].Column(10)
End Sub

 

[boblarson]

Access can only have ONE AfterUpdate event for an object (in fact all events are like that). You have listed:

Private Sub codproduto_AfterUpdate()
Me![descricao] = Me![codproduto].Column(3)
End Sub

Private Sub codproduto_AfterUpdate()
Me![unidade] = Me![codproduto].Column(4)
End Sub

Private Sub codproduto_AfterUpdate()
Me![embalagem] = Me![codproduto].Column(5)
End Sub

Private Sub codproduto_AfterUpdate()
Me![preco_custo] = Me![codproduto].Column(6)
End Sub

Private Sub codproduto_AfterUpdate()
Me![preco_venda] = Me![codproduto].Column(7)
End Sub

Private Sub codproduto_AfterUpdate()
Me![mrg_uni] = Me![codproduto].Column(8)
End Sub

Private Sub codproduto_AfterUpdate()
Me![negotior] = Me![codproduto].Column(9)
End Sub

Private Sub codproduto_AfterUpdate()
Me![colaborador] = Me![codproduto].Column(10)
End Sub

But it should be:

Private Sub codproduto_AfterUpdate()
Me![descricao] = Me![codproduto].Column(3)
Me![unidade] = Me![codproduto].Column(4)
Me![embalagem] = Me![codproduto].Column(5)
Me![preco_custo] = Me![codproduto].Column(6)
Me![preco_venda] = Me![codproduto].Column(7)
Me![mrg_uni] = Me![codproduto].Column(8)
Me![negotior] = Me![codproduto].Column(9)
Me![colaborador] = Me![codproduto].Column(10)
End Sub

When Access tells you "Ambiguous name detected" it means that you are using the same name for something, in the same scope, more than once.

 

[cvboas]

Thank You.
Im new in the VB code processing, i have started today...lol...
Thanks