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

    [Resolvido]sql delete ajuda.

    wellingtoneo
    wellingtoneo
    wellingtoneo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 294
    Registrado : 30/07/2012
    • Mensagem nº1

    [Resolvido]sql delete ajuda. Empty [Resolvido]sql delete ajuda.

    Mensagem  wellingtoneo 21/5/2013, 13:44

    Pessoal, bom dia!

    Já tentei de tudo, mas não conseguir resolver esse problema. O que eu quero é pegar a data mais antinga e excluir... vejam


    dt = Format(DMin("AQInicial", "tblFeriasHorista", "RegistroF = " & Me.cboregistro), "dd/mm/yyyy") ' pega a data mais antiga.

    If DCount("RegistroF", "tblferiashorista", "RegistroF = " & Me.cboregistro) = 5 Then ' conta se existe 5 registro do mesmo "RegistroF". caso sim, deleta a data mais antiga.
    DoCmd.RunSQL "DELETE * FROM tblFeriasHorista WHERE (AQInicial) = " & dt & ";"
    End If

    e agora? Quem poderá me ajudar?!?! Obrigado!
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010
    • Mensagem nº2

    [Resolvido]sql delete ajuda. Empty Re: [Resolvido]sql delete ajuda.

    Mensagem  Avelino Sampaio 21/5/2013, 14:17

    "e agora? Quem poderá me ajudar?!?! Obrigado!" -- kkkk esta frase me lembra do Chapolin Colorado - "E agora, quem poderá me defender?"

    O VBA é patriota, ou seja, gosta da hora no formato Americano. Troque para:

    dt = Format(DMin("AQInicial", "tblFeriasHorista", "RegistroF = " & Me.cboregistro), "mm/dd/yyyy")

    Não sabemos qual o tipo da variavel dt. Se ainda não funcionar, acrescente as TRALHAS

    DoCmd.RunSQL "DELETE * FROM tblFeriasHorista WHERE (AQInicial) = #" & dt & "#;"

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    wellingtoneo
    wellingtoneo
    wellingtoneo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 294
    Registrado : 30/07/2012
    • Mensagem nº3

    [Resolvido]sql delete ajuda. Empty Re: [Resolvido]sql delete ajuda.

    Mensagem  wellingtoneo 21/5/2013, 14:48

    Obrigado mestres Avelino! Por isso que sou seu fã! Valeu!!! E a frase é do Chapolin sim. Alguns episódio eles falam "quem poderá me defender" em outros "quem poderá me ajudar" ... Até!!!
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº4

    [Resolvido]sql delete ajuda. Empty Re: [Resolvido]sql delete ajuda.

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 29/4/2024, 07:29