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

    Erro ao chamar função Array()

    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    Erro ao chamar função Array() Empty Erro ao chamar função Array()

    Mensagem  thiagomcosta 16/8/2019, 20:14

    Estou com um problema sem sentido.

    De um dia para outro, sem alteração alguma nos meus arquivos, começou a dar erro quando eu crio uma array vazia.
    Exemplo:
    Código:
    Dim Nomes()
    Nomes = Array()

    O erro é:
    "Erro em tempo de execução '5': Argumento ou chamada de procedimento inválida"

    Até ontem nunca deu erro, e o sistema já está em produção a mais de 2 anos.
    Outra coisa, os erros não ocorrem em todas as máquinas.

    Alguém já sofreu com isso?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    Erro ao chamar função Array() Empty Re: Erro ao chamar função Array()

    Mensagem  Avelino Sampaio 17/8/2019, 10:04

    Olá!

    Na máquina que apresenta o erro:  abra o vba do seu projeto, vá em DEPURAR e clique em COMPILAR.  Nos informe se encontrou erros e quais foram.

    Informe também a versão do Access nestas máquinas.

    Aguardamos
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    Erro ao chamar função Array() Empty Re: Erro ao chamar função Array()

    Mensagem  thiagomcosta 19/8/2019, 13:46

    Pior que quando compila não informa erro algum.

    Todas as máquinas rodam com Office 365, mesma versão do windows Win10 Pro. Por enquanto 3 máquinas estão apresentando erros (de 8 máquinas da rede). Nada foi  mudado na configuração (apesar que pode ter havido atualização automática de algum programa)

    As rotinas que estão dando erros nas máquinas destes usuários, rodam perfeito na minha máquina.

    Um exemplo do código que está dando erros, na linha que cria a Array (penúltima):
    Código:

    Private Sub Class_Initialize()
        Me.Destino = ""
        Me.CopiaOculta = ""
        Me.Resposta = "financeiro@ideesconvites.com.br; sergio@ideesconvites.com.br"
        Me.Titulo = "<VAZIO>"
        Me.Mensagem = "<VAZIO>"
        Me.Anexos = Array()
    End Sub

    Esse erro ocorre em toda o código quando eu crio uma array vazia: array().

    Atualizando: agora somente na minha máquina está funcionado Rolling Eyes

    O que mais me intriga é que não foi atualizado nada nos códigos e roda redondo a mais de 2 anos.
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    Erro ao chamar função Array() Empty Re: Erro ao chamar função Array()

    Mensagem  thiagomcosta 20/8/2019, 15:31

    Atualizando: agora as ribbons com vários botões também resolveram não aparecer. Tive de alterar e diminuir todas para que fossem exibidas novamente.

    Coisa de louco!
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    Erro ao chamar função Array() Empty Re: Erro ao chamar função Array()

    Mensagem  thiagomcosta 2/9/2019, 20:26

    Sobre as arrays eu consegui resolver criando array com o primeiro elemento nulo e ignorando ele posteriormente. COMPLETAMENTE ERRADO, porém foi a única maneira de fazer o sistema voltar a rodar.

    As Ribbons tive de desabilitar e criar formulários com botões para acesso às funcionalidades.

    Hoje resolveu parar de abrir mensagens de emails.

    Sempre com o erro:
    Erro em tempo de execução '5':
    Argumento ou chamada de procedimento inválida

    Repito que tais códigos já estavam rodando em produção a no mínimo 2 anos, sem problema algum.
    Não houve alterações nas versões do windows ou office.

    Estes erros estão quase me forçando a migrar o programa para outra linguagem.

      Data/hora atual: 24/7/2021, 08:59