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


3 participantes

    [Resolvido]Criar Nova tabela de registos eliminados

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Criar Nova tabela de registos eliminados Empty Criar Nova tabela de registos eliminados

    Mensagem  Assis 31/3/2012, 10:14

    Bom dia

    Tenho um formulario que ao abrir executa este comando.

    CurrentDb.Execute "DELETE * FROM agenda WHERE confirmada ='" & "Não" & "'and DataAviso <#" & Date & "#"

    Este comando elimina os pacientes que faltaram á consulta.

    Mas não estou a conseguir registar estes registos deletados numa nova Tabela Chamada "Faltas" .

    Que tem os campos:

    -DataAviso
    -Paciente
    -Medico
    -Tratamento


    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    Registrado : 05/11/2009

    [Resolvido]Criar Nova tabela de registos eliminados Empty Re: [Resolvido]Criar Nova tabela de registos eliminados

    Mensagem  Alexandre Neves 31/3/2012, 11:23

    Bom dia, Assis

    Antes de eliminar, registe os faltosos em nova tabela
    CurrentDb.Execute "INSERT INTO Faltosos SELECT * FROM agenda WHERE confirmada ='Não' and DataAviso <#" & Date & "#;"
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Criar Nova tabela de registos eliminados Empty Re: [Resolvido]Criar Nova tabela de registos eliminados

    Mensagem  Assis 31/3/2012, 11:36

    Obrigado Alexandre


    .................................................................................
    *** Só sei que nada sei ***
    casilveira
    casilveira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 10/02/2012

    [Resolvido]Criar Nova tabela de registos eliminados Empty Re: [Resolvido]Criar Nova tabela de registos eliminados

    Mensagem  casilveira 2/4/2012, 13:32

    Amigo Assis e Alexandre

    *** Só sei que nada sei ***

    Sábias palavras.

    Desde que fui apresentado a esse forum tenho buscado e encontrado respostas às minhas questões, com sugestões muito criativas.
    Tenho procurado estar sempre atualizado com as respostas que são dadas aqui a outras questões e me surpreendo com a imaginação das soluções encontradas.

    Sempre que alguém deletava algum item em meu aplicativo, era seguido de um procedimento que não o eliminava do banco de dados, mas isso sempre gerou um problema imenso.

    Hoje me deparo com a resposta de voces dois, uma coisa simples e de resultado melhor do que eu havia imaginado...


    Meu conselho a todos, não se atenham somente as suas questões, leiam tudo que estiver no forum, como leitura diária, publiquem as suas soluções criativas, isso faz muita diferença.

    Obrigado a todos.


    Carlos Silveira


    Conteúdo patrocinado


    [Resolvido]Criar Nova tabela de registos eliminados Empty Re: [Resolvido]Criar Nova tabela de registos eliminados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 05:54