Início
![[Resolvido]RUN TIME erro 483 Empty](https://2img.net/i/empty.gif)
Convidado 19/1/2016, 16:03boas
tenho o seguinte código numa combo e da o seguinte erro (imagem) :
Private Sub cboProdutos_AfterUpdate()
DoCmd.ApplyFilter , "ID_Produtos = " & Me!cboProdutos.Column(0)
Me.cboProdutos = ""
Me!PRODUTO.SetFocus
End Sub
tenho o seguinte código numa combo e da o seguinte erro (imagem) :
Private Sub cboProdutos_AfterUpdate()
DoCmd.ApplyFilter , "ID_Produtos = " & Me!cboProdutos.Column(0)
Me.cboProdutos = ""
Me!PRODUTO.SetFocus
End Sub
Última edição por Marco Sousa em 28/2/2018, 00:51, editado 1 vez(es)