[Resolvido]Botão Capturar

Tenho o form cadprodutos com o campo codfornecedor criei uma listbox
na listbox tenho o botão capturar com seguinte código

Option Compare Database
Dim Selecionado As Boolean

Private Sub Cmdcapturar_Click()
On Error Resume Next
Dim Linha As Integer
Linha = Me.Lista2.ListIndex
If Selecionado = True Then
Forms!cadprodutos.Form!codfornecedor.Value = Me.Lista2.Column(1, Linha)
End If
DoCmd.Close "pesquisafornecedor"
End Sub
no evento duplo click da listbox

Private Sub Lista2_DblClick(Cancel As Integer)
Cmdcapturar_Click
End Sub
Private Sub Lista2_Click()
Selecionado = True
End Sub
Mas não captura ,não acontece nada o que poderia estar errado?Já verifiquei os campos estão certos

Agravina.. Agravina.. Caro Agravina...

O mesmo problema que eu ja resolvi algumas vezes..

O que faz com os códigos amiguinho?



Forms!cadprodutos.Form!codfornecedor.Value = Me.Lista2.Column(0, Linha)

Geralmente o código é a primeira coluna.. e a primeira coluna não é a 1 e sim a 0


Teste assim

Harysohn ,já resolvi isso faz tempo!Esqueci do Resolvido

Beleza Amigão... diz uma coisa qual o tópico que voce me enviou o BD...

Para eu dar uma olhada?

Mande-me o tópico

Enviei para seu email!

Mas não tem tópico sobre isso?

Gestão Compras e vendas