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

    Excluir registro

    avatar
    snogueira66
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 01/02/2017

    Excluir registro Empty Excluir registro

    Mensagem  snogueira66 4/8/2017, 18:58

    Pessoal boa tarde,

    Estou criando um banco no access para importar um arquivo .txt e apos a importação preciso excluir todas as linhas da tabela TB_EtqReenvio onde na coluna Tipo esta com registros em branco.

    Segue abaixo o código que estou utilizando.


    Private Sub Comando1_Click()

    Dim arquivo, destino, tabela As String

    Caminho = Application.CurrentProject.Path

    Edicao = Forms!FM_Principal.txt_data
    Empresa = Forms!FM_Principal.txt_empresa
    nome = "etq_reenvio" & "_" & Edicao & "_" & Empresa

    arquivo = Caminho & "\" & nome & ".lst"

    destino = Caminho & "\Tansformado\" & Replace(nome & ".lst", ".lst", ".txt")

    FileCopy arquivo, destino

    DoCmd.TransferText acImportFixed, "Etq_reenvio", "TB_EtqReenvio", destino, 0

    DoCmd.RunSQL ("DELETE * FROM [TB_EtqReenvio] WHERE ((([TB_EtqReenvio].Tipo) = null));") ' esta e o código que estou utilizando para excluir os registros e não esta funcionando.



    End Sub
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    Excluir registro Empty Re: Excluir registro

    Mensagem  caiosouza 4/8/2017, 19:15

    Tente trocar o null, por "":

    Código:
    Private Sub Comando1_Click()

    Dim arquivo, destino, tabela As String

    Caminho = Application.CurrentProject.Path

    Edicao = Forms!FM_Principal.txt_data
    Empresa = Forms!FM_Principal.txt_empresa
    nome = "etq_reenvio" & "_" & Edicao & "_" & Empresa
    arquivo = Caminho & "\" & nome & ".lst"
    destino = Caminho & "\Tansformado\" & Replace(nome & ".lst", ".lst", ".txt")
    FileCopy arquivo, destino
    DoCmd.TransferText acImportFixed, "Etq_reenvio", "TB_EtqReenvio", destino, 0
    DoCmd.RunSQL ("DELETE * FROM [TB_EtqReenvio] WHERE ((([TB_EtqReenvio].Tipo) = ""));")
    End Sub


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    snogueira66
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 01/02/2017

    Excluir registro Empty Re: Excluir registro

    Mensagem  snogueira66 4/8/2017, 19:49

    Já tentei e não funcionou também.

    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    Excluir registro Empty Re: Excluir registro

    Mensagem  caiosouza 4/8/2017, 19:52

    Ok, agora tenta assim:

    Código:
    CurrentDb.Execute "DELETE * FROM TB_EtqReenvio WHERE Tipo= Null "


    .................................................................................
    Caio Souza

    Engenheiro de Software
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 23/01/2017

    Excluir registro Empty Re: Excluir registro

    Mensagem  thiagomcosta 4/8/2017, 19:59

    Tenta a função isnull()

    DoCmd.RunSQL "DELETE * FROM [TB_EtqReenvio] WHERE IsNull([TB_EtqReenvio].Tipo)"
    avatar
    snogueira66
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 01/02/2017

    Excluir registro Empty Re: Excluir registro

    Mensagem  snogueira66 5/8/2017, 17:53

    thiago obrigado,

    O comando IsNull funcionou perfeita mente.

    Att,
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Excluir registro Empty Re: Excluir registro

    Mensagem  Alexandre Neves 5/8/2017, 22:13

    Boa noite,
    Lembre-se de marcar o "Resolvido"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    Excluir registro Empty Re: Excluir registro

    Mensagem  DamascenoJr. 5/11/2021, 01:50

    Sergio, ainda estamos aguardando o resolvido. Precisamos manter a casa arrumada e você como membro deve ajudar.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 6/10/2022, 08:18