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


5 participantes

    Apagar Registo

    avatar
    cuesta10100
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 13
    Registrado : 30/01/2013

    Apagar Registo Empty Apagar Registo

    Mensagem  cuesta10100 16/11/2016, 11:00

    Bom dia exmos. Mestres

    Necessito de um botão que apague registos baseado em dois campos, nº funcionário e data

    CurrentDb.Execute "DELETE * FROM Registos_Rendimento WHERE num =" & Me.NumFunc ---- não sei como colocar o campo data

    desta forma ele apaga todos os registos desse funcionário...

    Bem haja e bom trabalho
    Oliveira89
    Oliveira89
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 07/09/2016

    Apagar Registo Empty Re: Apagar Registo

    Mensagem  Oliveira89 16/11/2016, 14:02

    Boa tarde amigo

    https://www.maximoaccess.com/t28227-resolvidodesaparecer-valores-da-combo-box

    talvez seja de alguma ajuda este tópico em relação a datas.


    .................................................................................
    Muito Obrigado
    Com os melhores Cumprimentos
    此致
    Oliveira
    avatar
    cuesta10100
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 13
    Registrado : 30/01/2013

    Apagar Registo Empty Apagar Registo

    Mensagem  cuesta10100 16/11/2016, 15:17

    Boa tarde e obrigado pela sua resposta caro Oliveira,

    de fato não consigo adaptar essa solução ao meu código...

    Coloquei uma imagem do form, e deveria funcionar desta forma:

    - eu coloco uma data, o nº do funcionário e ao clicar no botão Delete ele apagaria todos os registos desse funcionário referentes a esse dia (data).

    Tenho este código: CurrentDb.Execute "DELETE * FROM Registos_Rendimento WHERE num =" & Me.NumFunc
    assim apaga todos os registos do funcionário, mas eu queria era que apagasse só daquela data, mas não sei onde lhe dar essa instrução no código.

    Tentei assim mas sem efeito: CurrentDb.Execute "DELETE * FROM Registos_Rendimento WHERE num =" & Me.NumFunc & " and "Registos_Rendimento.data =" & Me.datai & ""

    Obrigado,
    Abraço!
    Oliveira89
    Oliveira89
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 07/09/2016

    Apagar Registo Empty Re: Apagar Registo

    Mensagem  Oliveira89 16/11/2016, 15:47

    Boa tarde

    Já experimentou criar uma combobox em vez de escrever o funcionário, e quando o funcionário seja escolhido aparecer um sub formulário com todas as datas dele acerca dele?
    Após isso é só seleccionar os registos e apagar ^^


    .................................................................................
    Muito Obrigado
    Com os melhores Cumprimentos
    此致
    Oliveira
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5119
    Registrado : 20/04/2011

    Apagar Registo Empty Re: Apagar Registo

    Mensagem  Silvio 16/11/2016, 16:29

    algo assim....mas pesquisa aqui no fórum.... sempre tem que ter a tralha, cerca de veia ou # antes de data.

    "Registos_Rendimento.data =# & Me.datai & #""


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    Apagar Registo Empty Re: Apagar Registo

    Mensagem  Alvaro Teixeira 4/10/2017, 08:49

    Olá José Costa,
    Como ficou a situação, conseguiu resolver?
    Os utilizadores do fórum agradecem o retorno.

    Abraço

    avatar
    joão2017
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 16/09/2017

    Apagar Registo Empty Re: Apagar Registo

    Mensagem  joão2017 5/10/2017, 00:02

    A data seria o dia atual? entre datas ou superior a tal data?
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    Apagar Registo Empty Re: Apagar Registo

    Mensagem  Alvaro Teixeira 6/12/2017, 15:50

    Olá João, estava esquecido este tópico.

    Tente assim:
    Código:
    CurrentDb.Execute "DELETE * FROM Registos_Rendimento WHERE num = " & Me.NumFunc & " AND Registos_Rendimento.data  = #" & Format(Me.datai, "mm-dd-yyyy") & "#;"

    Abraço

    Conteúdo patrocinado


    Apagar Registo Empty Re: Apagar Registo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 5/11/2024, 18:57