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

    Erro fatal, vba trava o access

    Compartilhe
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 10/04/2014

    Erro fatal, vba trava o access

    Mensagem  biligo em Dom 04 Jan 2015, 23:09

    Boas pessoal,

    Bom na verdade não sei bem se este seria o local mais adequado para postar esta duvida, afinal o que espero seria mais um bate-papo a
    uma resposta concreta, enfatizando que a desejo. XD

    Com o auxilio dos mestres, pude "adaptar" um código, ao qual deixo abaixo alguns pontos, para gerar arquivos .txt

    Código:

    Dim iArq As Long            'Este é o texto a ser escrito

    'CRIA O ARQUIVO
        iArq = FreeFile
        Open CurrentProject.Path & "\Orçamentos\" & ConvertAccent(Me.Orcado) & "\Orçamento - " & Day(Date)& " de " & MonthName(Month(Date)) & " de " & (Year(Date)) & ".txt" For Output As iArq
           
    'ESCREVE O SEGUINTE:

        Print #iArq, " "
        Print #iArq, "São Paulo,"; Day(Date); "de "; MonthName(Month(Date)); " de"; (Year(Date));

    A questão é que o código tem vontade, funciona quando quer. O arquivo sempre é criado a questão é o conteúdo dele.
    Os erros geralmente aparecem na primeira linha (Print #iArq, " "), mas além de funcionar quando quer ainda me trava o access quando não funciona. XD
    Se alguém já teve algum problema parecido com este tipo de código, similar ou qualquer um mesmo que após um comando trava o access e já o tenha resolvido independente da situação se puder aconselhar
    Agradeço.
    avatar
    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: Erro fatal, vba trava o access

    Mensagem  LiveBrain em Dom 04 Jan 2015, 23:19

    Será que o erro está acontecendo porque você não está fechando o arquivo?


    tente adicionar na última linha do seu código

    Código:
    Close #Arq

    abraços


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 10/04/2014

    Re: Erro fatal, vba trava o access

    Mensagem  biligo em Dom 04 Jan 2015, 23:29

    Esta sim sendo fechado.
    É como falei funciona quando quer, não é falta de dados ou erro no vba creio eu por funcionar as vezes e
    por isto acho o caso estranho pela falta de informações do access no acontecimento do erro.

      Data/hora atual: Qui 24 Ago 2017, 11:37