MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    comparar duas tabelas e alterar campo

    avatar
    omtorre
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 19/05/2014

    comparar duas tabelas e alterar campo Empty comparar duas tabelas e alterar campo

    Mensagem  omtorre Qua 23 Set - 18:21

    Galera
    Boa Tarde,

    Preciso de uma ajuda quanto a comparação de duas tabelas e que me retornasse o valor positivo e alterar outro campo da tabela.

    Tenho duas tabelas com campo relacionado "Boleto"

    Tabela 1
    Nome
    Pagamento
    Data Vencimento
    Boleto

    Tabela 2
    Nome
    Data Vencimento
    Boleto
    Valor
    Juros

    Como Default o campo Pagamento esta com status "Divida em Aberto".

    Gostaria de comparar o campo "Boleto", e se caso o registro da Tabela 1 existir na Tabela 2, o campo Pagamento seria alterado para "Divida Pago".

    Já tenho uma consulta que consigo trazer os registros da Tabela 1 que não existem na Tabela 2.

    Após essa comparação farei uma consulta com os registros com status "Divida em Aberto" e "Divida Pago"


    Obrigado pela ajuda
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    comparar duas tabelas e alterar campo Empty Re: comparar duas tabelas e alterar campo

    Mensagem  Dilson Qui 24 Set - 14:25

    102 Códigos VBA para Access

    Vá na opção: Update Campo de uma Tabela baseado noutra Tabela, via VBA
    avatar
    omtorre
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 19/05/2014

    comparar duas tabelas e alterar campo Empty Re: comparar duas tabelas e alterar campo

    Mensagem  omtorre Qui 24 Set - 15:01

    Dilson,

    Não entendi muito bem a sua resposta, mas valeu pela informação.

    Estava pensando em algo do tipo:

    Já existe uma consulta com um relacionamento no campo "Boleto" entre as duas tabelas, e me mostra os registros que existem na Tabela 1 e não na Tabela 2.

    Seria possível no momento de carregar o formulário baseado nessa consulta das duas tabelas, executar a logica abaixo.

    If Boleto (Tabela 1) = Boleto (tabela 2) then
    me.pagamento (Tabela 1) = "divida pago"
    elseif
    me.pagamento (Tabela 1) = "divida em aberto"


    Se caso houver como colocar essa expressão na consulta, também me ajuda.


    Obrigado


    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    comparar duas tabelas e alterar campo Empty Re: comparar duas tabelas e alterar campo

    Mensagem  Dilson Qui 24 Set - 15:09

    Não entrarei no mérito da estrutura existente ainda.

    Vamos aplicar o código que referenciei.

    Coloque a partir de um botão:

    'By JPaulo ® Maximo Access
    Dim strSql      As String
    strSql = "UPDATE Tabela2,Tabela1  "
    strSql = strSql & "SET Tabela2.Pagamento = 'divida pago' WHERE Tabela2.CampoID=Tabela1.CampoID;"
    CurrentDb.Execute (strSql)

    Nota: Substitua nome de tabelas e campos de acordo com seu banco.

    Conteúdo patrocinado


    comparar duas tabelas e alterar campo Empty Re: comparar duas tabelas e alterar campo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 21 Nov - 15:56