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]Evento ao carregar um formulário para excluir censurado (tabelas) geradas por decorrencia da importação de arquivos para o access

    Cleniroweb
    avatar
    Cleniroweb
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 16/03/2014
    • Mensagem nº1

    [Resolvido]Evento ao carregar um formulário para excluir censurado (tabelas) geradas por decorrencia da importação de arquivos para o access Empty [Resolvido]Evento ao carregar um formulário para excluir censurado (tabelas) geradas por decorrencia da importação de arquivos para o access

    Mensagem  Cleniroweb 30/3/2014, 05:22


    Caros colegas,

    Gostaria de saber se é possível criar um evento ao carregar do formulário, para excluir as tabelas geradas pelo access, por decorrencia de erros em alguns campos ao importar dados de arquivos tipo txt.



    Exemplo:
    308295$a5:j65000_ImportErrors
    308295$a5:j65000_ImportErrors1
    308295$a5:j65000_ImportErrors2


    Obrigado à todos.
    Cleniro.
     Question 
    • Ir para o topo
    Noobezinho
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012
    • Mensagem nº2

    [Resolvido]Evento ao carregar um formulário para excluir censurado (tabelas) geradas por decorrencia da importação de arquivos para o access Empty Re: [Resolvido]Evento ao carregar um formulário para excluir censurado (tabelas) geradas por decorrencia da importação de arquivos para o access

    Mensagem  Noobezinho 30/3/2014, 11:41

    Cleniro

    Experimente colocar no inicio do código que faz a importação, a linha abaixo e veja se funfa.

    On error resume next

    Se não funfar, aguardemos a ajuda de alguém que já trabalhou com importação de textos .

    Abraços

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...

    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    • 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 : 3900
    Registrado : 04/04/2010
    • Mensagem nº3

    [Resolvido]Evento ao carregar um formulário para excluir censurado (tabelas) geradas por decorrencia da importação de arquivos para o access Empty Re: [Resolvido]Evento ao carregar um formulário para excluir censurado (tabelas) geradas por decorrencia da importação de arquivos para o access

    Mensagem  Avelino Sampaio 30/3/2014, 15:44

    Olá!

    Segue uma função:

    Public Sub fncDeletartabelas()
    Dim rs As DAO.Recordset
    Dim strSql$
    strSql = "Select Name FROM msysObjects WHERE Type =1 and Name like '*erro*'"
    Set rs = CurrentDb.OpenRecordset(strSql)
    Do While Not rs.EOF
        DoCmd.DeleteObject acTable, rs!Name
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    End Sub


    Atenção: Backup antes de testar.

    Sucesso!


    Última edição por Avelino Sampaio em 31/3/2014, 09:58, editado 2 vez(es)


    .................................................................................
    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
    Cleniroweb
    avatar
    Cleniroweb
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 16/03/2014
    • Mensagem nº4

    [Resolvido]Evento ao carregar um formulário para excluir censurado (tabelas) geradas por decorrencia da importação de arquivos para o access Empty Re: [Resolvido]Evento ao carregar um formulário para excluir censurado (tabelas) geradas por decorrencia da importação de arquivos para o access

    Mensagem  Cleniroweb 31/3/2014, 04:13

    Avelino,

    Magnifico,

    A única modificação que fiz para funcionar foi:

    Onde se lê '*erro*'", modifiquei para '*ImportErros*'"

    Muito obrigado,



    Noob,

    Não funcionou mas, obrigado pela sua contribuição.

    Sucesso à todos vocês,
    Cleniro
    bounce
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº5

    [Resolvido]Evento ao carregar um formulário para excluir censurado (tabelas) geradas por decorrencia da importação de arquivos para o access Empty Re: [Resolvido]Evento ao carregar um formulário para excluir censurado (tabelas) geradas por decorrencia da importação de arquivos para o access

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 21/11/2024, 19:49