Ir para conteúdo
Fórum Script Brasil
  • 0

Pegar Dados De Outra Tabela (resolvido)


robsabin

Pergunta

Olá tenho um probleminha.

Estou criando um banco de dados com duas tabelas "tab_atualiza" e "tab_nota"

O que queria fazer é o seguinte: No formulario da tabela tab_nota tem um campo "empresa" quando eu sair do foco ele pegar os campos da tabela tab_atualiza e preencher o formulário da tabela tab_nota automaticamente.

Criei este código :

Private Sub Destinatário_LostFocus()

Set rs = New ADODB.Recordset

Set cn = CurrentProject.AccessConnection

With rs

Set .ActiveConnection = cn

.Source = "SELECT * FROM tab_atualiza WHERE empresa = '" & Destinatário.Text & "'"

.LockType = adLockOptimistic

.CursorType = adOpenKeyset

.Open

End With

With rs

If .EOF And .BOF Then

:

vInclusao = True

Else

Código.SetFocus

Código.Text = !codigo

ENDEREÇO.SetFocus

ENDEREÇO.Text = !endereco

Cidade.SetFocus

Cidade.Text = !Cidade

Estado.SetFocus

Estado.Text = !Estado

CEP.SetFocus

CEP.Text = !CEP

Texto19.SetFocus

Texto19.Text = !CNPJ

Texto21.SetFocus

Texto21.Text = !CFDF

End If

End With

Set Me.Recordset = rs

End Sub

Só que os campos do formulário da tab_nota que não tem na tabela tab_atualiza dá este tipo de erro "#Nome?".

Gostaria que alguém me ajuda-se nisso.

Desde já agradeço.

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Tenta assim

dim guarda as variant

guarda=dlookup("[tab_ataulizaCod]","tab_atualiza","[tab_atualizaEmpresa]="&me.empresa)

me.codigo.value=guarda

guarda=dlookup("[tab_ataulizaEndereço]","tab_atualiza","[tab_atualizaEmpresa]="&me.empresa)

me.ENDEREÇO.value=guarda

....

e assim por diante, claro que fiz só um exemplo, você deve utilizar realmente a nomenclatura de seus campos.

Se resolver seu problema confirme ok!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...