[Resolvido]Caixa de combinação - Como armazenar duas informaçoes 2

Ola amigo NIVALDO,

Fiz conforme voce indicou mais fica dando a seguinte mensagem: ERRO DE COMPILAÇÃO - VARIAVEL NÃO DEFENIDA

COMO FIZ:

Private Sub CNPJ_CPF1_AfterUpdate()
Me.Razao social_nome = Me.CNPJ_CPF1.Collumn(0)
Me.CNPJ_CPF = Me.CNPJ_CPF1.Collumn(1)
End Sub

MENSAGEM ORIGINAL
Ola,

Dei uma procurada e não consegui encontrar pelo fórum.
Estou precisando pesquisar dois campos ao mesmo tempo em uma tabela, exemplo nome e cpf ate aí tudo bem. Quando estou terminado de montar a pesquisa com o assistente ele me pergunta qual campo quero armazenar na tabela atual aí tenho que escolher o NOME ou CPF, só que precisava armazenar os dois para futuras operações, como resolver esse problema.
Gostaria de parabenizar a todos do fórum, pela qualidade do fórum.

Grato,


Aiv Antonio

Só um alerta, não monte um tópico geral e mencione o nome de um usuário específico.

Agora, quanto ao que perguntou, será que se você usar uma consulta União resolveria o que precisa?

Conhece esse tipo de Consulta?

Nela essas duas informações ficarão na mesma coluna.

Outra idéia,

E se você alterar a origem da linha conforma sua necessidade, olha esse exemplo:
Tem uma caixa de texto (Texto14) que ao ser alterara entre os valores 1 e 2 muda a seleção, nesse caso é numa mesma Tabela, mas pode ser feito com outras tabelas

Private Sub Texto14_AfterUpdate()
Select Case Me.Texto14
Case 1
Me.Combinação.RowSourceType = "Table/Query"
Me.Combinação.RowSource = "SELECT [Tabela].[Campo] FROM Tabela;"
Case 2
Me.Combinação.RowSourceType = "Table/Query"
Me.Combinação.RowSource = "SELECT [Tabela1].[Campo] FROM Tabela1;"
End Select
End Sub

OK Grato pelo toque sobre mencionar o nome de usuário, mas já tentei dessa forma que você sugeriu e não surtiu o efeito desejado. Precisava mesmo era guardar os dois valores como mencionei.
Pois a consulta esta dando certo o que preciso e armazenar os dois valores da consulta em uma tabela.

Exemplo quero pesquisar no cadastro de fornecedores o NOME e o CNPJ. E em outro cadastro quero armazenar o NOME e o CNPJ cadastrados para futuras alterações.

Grato,


Aiv Antonio

E se a propriedade Número de Colunas como 2 e a propriedade Largura das colunas como 1cm;0cm?

Desse jeito as duas colunas estão numa combo e você pode usar o valor da duas mas de outra maneira, ex:

Ao selecionar o valor da coluna acoplada você pode inserir automaticamente o valor da outra em uma caixa de texto acoplada ou não, assim:

Private Combo10_AfterUpdate()
Me.CaixaDeTexto = Combo10.Column(1)
End Sub

Bom como mencionei a pesquisa não tem problemas quando pesquiso na caixa de combinação aparece o NOME e o CNPJ da tabela1 ate aí tudo bem. Só que quando vou armazenar o resultado só consigo armazenar o NOME ou CNPJ. Gostaria de armazenar os dois o NOME no campo NOME DO FORNECEDOR e CNPJ no campo CNPJ DO FORNECEDOR na tabela 2.

Grato

Aiv Antonio

Então meu caro, aí você usa esse último recurso que te mandei.

Ao atualizar a combo ela automaticamente vai ficar com o primeiro valor não vai? Vamos dizer que seja nome e se ela estiver com as duas colunas, Nome e CNPJ você vai inserir via VBA o CNPJ no campo da tabela 2.

Se eu entendi direito, essas duas informações serão inseridas na Tabela 2, certo?

Se sim, faça assim no evento após atualizar da Combo:

Private Sub Combo_AfterUpdate()
'Vai inserir o CNPJ na caixa de texto acoplada na Tabela 2
Me.CNPJ_FORNECEDOR.Value = Combo.Column(1) 'A coluna Nome nesse exemplo é a coluna 0 (zero)
End Sub

Valeu amigo, deu tudo certo agora.

Grato,


Aiv Antonio

Que bom!
Por favor dê um clique no Resolvido, obrigado.

Dessa vez clico eu no resolvido, abraço.