[Resolvido]Dificuldade para capturar

Ola pessoal esou com a seguinte dificuldade , tenho form cadcontas
o qual tem o campo fornecedor ao lado tenho um botao que ao clicar abre um form fornecedor ,no qual tenho numa cx de listagem os nomes , ao selecionar o nome e clicar no botao capturar este nome deveria aparecer la no form cadcontas no campo fornecedor,estou usando o seguinte codigo

Private Sub cmdCapturar_Click()


On Error Resume Next

Dim Linha As Integer

Linha = Me.ltxListaprodutos.ListIndex


If Selecionado = True Then

Forms!frm_Cadprodutos.Fornecedor.Value = Me.ltxListaprodutos.Column(0, Linha)

End If
DoCmd.Close acForm, "Fornecedor"
Forms!cadprodutos.Fornecedor.Value = Me.ltxListaprodutos.Column(0, Linha)
Forms!cadprodutos.Nomefantasia.SetFocus

End Sub
Private Sub ltxListaProdutos_Click()
Selecionado = True
End Sub


o problema é que o nome selecionado ,nao apareçe no campo fornecedor

Postei Parte do bd para melhor entendimento
abram o form cadprodutos

http://www.speedyshare.com/files/24460389/Banco_de_DadosIII.accdb

Oi boa noite!

Porque ao invês de vc fazer essa manobra toda você não utiliza uma combobox para puxar os seus fornecedores, ela é bem mais flexível e vc pode alimenta-la através de uma instrução SQL em tempo de execução... E a lista vai se completando de acordo com sua digitação

Sintaxe:

combobox.rowsource = "Parametro SQL"

Estou tentado anexar um print screen com um exemplo...

Se servir a dica, mas ainda tiver dúvida com relação ao uso da combobox me avise...

Em cima do exemplo q você deixou...

Transforma o seu controle em uma caixa de combinação, e no evento open do form vc cola o código abaixo:

Fornecedor.RowSource = "SELECT tbl_Fornecedor.IDFornecedor, tbl_Fornecedor.nomefantasia" & _
" FROM tbl_Fornecedor" & _
" ORDER BY tbl_Fornecedor.nomefantasia;"

dai vai nas propriedades do controle e:

NUMERO DE COLUNAS = 2
LARGURA DAS COLUNAS = 0;6
COLUNA ACOPLADA = 1 (QUE DAI APESAR DE APARECER O NOME DO FORNECEDOR IRÁ GRAVAR O CÓDIGO DELE NA TABELA...

amigo pablo neruda, obrigado pela atenção mas ao colar codigo , recebo mensagen metodo rowsource,dados nao encontrados, se puder enviar o exemplo agradeço

Como posso lhe enviar o seu exemplo alterado?!? Pode fornecer um email?

alexandregravina266@hotmail.com

Alexandre segue ai seu exemplo:

http://www.ramoseramos.com/downloads/exemplo.accdb

aproveito para te deixar uma dica, vi que vc em sua tabela se referencia ao fornecedor pelo nome, passe a trabalhar com referencia pelo código, pois se vc efetuar qualquer alteração no nome do fornecedor, uma letra q vc digitar errado dará problema futuramente ao seu BD...

qq coisa estamos as ordens...

Valeu neruda,funcionou certinho.