[Resolvido]Criar uma caixa de combinação em formulário simples.

Boa Noite Mestres !

Estou com o seguinte problema para implementar uma caixa de combinação, parecia tão simples, só que ficou complicado. Criei um formulário que contêm dados de três tabelas[Fornecedor],[Formas_de_Pg] e [Descri_Recibo] sendo que o formulário não contêm SubFormulários, é um formulário simples contínuo a grande questão é quando crio uma caixa de combinação para trazer os dados da tabela [Fornecedor], quando clico na caixa de combinação e clico no nome do fornecedor os dados não vem preencher os campos no formulário, lembrado que é apenas as informações dos fornecedores, as outras informações do formulário serão preenchidas manualmente.

Fico grato a quem poder me dar uma dica.

Em anexo cópia do problema!!
https://www.dropbox.com/s/bv56801ag4ny0vv/RECIBO_FORNECEDOR.accdb

Augusto, bom dia.

Por favor, confirma esse código no seu BD.

Substitua a caixa de combinação por uma não acoplada (ela será preenchida pelo código abaixo) e os campos no formulário serão preenchidos pelo click no nome escolhido na caixa de combinação. Ok.

Private Sub Combinação45_Click()

Dim X As Variant
Dim strNome As String

strNome = "[NOME] & '|' & [APELIDO] & '|' & [TELEFONE] & '|' & [ENDERECO] & '|' & [Numero] & '|' & [BAIRRO] & '|' & [CIDADE] & '|' & [CNPJ] & '|' & [CPF]"

strNome = DLookup(strNome, "IdFornecedor", "[Código]='" & Me.Combinação45.Column(0) & "'")

X = Split(strNome, "|")

Me.IdFornecedor_NOME = X(0)
Me.APELIDO = X(1)
Me.TELEFONE = X(2)
Me.ENDERECO = X(3)
Me.Numero = X(4)
Me.BAIRRO = X(5)
Me.CIDADE = X(6)
Me.CNPJ = X(7)
Me.CPF = X(

End Sub

Private Sub Combinação45_GotFocus()
Dim strSQL As String

strSQL = "SELECT Código, NOME FROM IdFornecedor"

Me.Combinação45.RowSource = strSQL

End Sub

Sem mais.
RDuarte

Valeu por ter atendido! Só que tá dando um erro em uma linha do código, não sei se fiz correto! informei o código no evento (Após Atualizar)da caixa de combinação combinação, sou um pouco inexperiente no Access, verifiquei item por item do código para ver se encontrava algum erro na grafia, mais nada.

Se não for pedir abusar de sua ajuda, baixa o exemplo do meu BD e poem o código escrito, para ver se dar certo.

está aparecendo o erro nessa linha de comando strNome = DLookup(strNome, "IdFornecedor", "[Código]='" & Me.Combinação45.Column(0) & "'")


Agradeço a ajuda e fico no aguardo.

Bom Dia !

Consegui corrigir o erro na linha de comando, só que surgiram dois outros erros, 1º Os outros campos que não são da tabela Fornecedor estão bloqueados não recebem dados, 2º Quando fecho o formulário aparece uma mensagem informando que dados estão sendo duplicados na tabela e não salva as alterações no formulário.

Agradeço quem poder me ajudar nessa, estou aprendendo mais a cada dia graças a todos aqui.

Oi Augusto.

Eu alterei o teu trabalho com base nas tuas tabelas e fiz o formulário por meio do Assistente de Formulário, sem nenhum código de VBA.

Segue em anexo para você ver as alterações que foram feitas, principalmente nas nomeclaturas dos campos (ver as tabelas) e alem disso, foram criados pelo assitente 2 subFormulários onde estão relacionados com o formulário pai (Fornecedores).

Também coloquei uma caixa de combinação no cabeçalho do formulário, onde ao selecionar o nome do fornecedor, os dados são apresentados, além disso você pode realizar novas inclusões diretamente no formulário.

Espero ter ajudado.

RDuarte 

Boa Noite.
RDuarte! Veleu mesmo meu irmão, já estava ficando quase pirando, vou dar uma estudada no seu modelo mas de já , agradeço muito a ajuda, tá perfeito

Augusto, bom dia.

Obrigado pelo retorno.

O Fórum agradece.

RDuarte