MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Apagar Registo

    Compartilhe

    cuesta10100
    Novato
    Novato

    Respeito às Regras 100%

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

    Apagar Registo

    Mensagem  cuesta10100 em 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
    avatar
    Oliveira89
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Apagar Registo

    Mensagem  Oliveira89 em 16/11/2016, 14:02

    Boa tarde amigo

    [Você precisa estar registrado e conectado para ver este link.]

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


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

    cuesta10100
    Novato
    Novato

    Respeito às Regras 100%

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

    Apagar Registo

    Mensagem  cuesta10100 em 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!
    avatar
    Oliveira89
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Apagar Registo

    Mensagem  Oliveira89 em 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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Apagar Registo

    Mensagem  Silvio em 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.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Apagar Registo

    Mensagem  ahteixeira em 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


    joão2017
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Apagar Registo

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

    A data seria o dia atual? entre datas ou superior a tal data?
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Apagar Registo

    Mensagem  ahteixeira em 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

      Data/hora atual: 22/10/2018, 22:14