[Resolvido]Código VBA executa em accdb e accde, mas não em accdr

Olá pessoal!

Estou tendo um problema esquisitíssimo!

Tenho um código em um botão para criar o relatório em PDF e salvá-lo em uma pasta. Caso o arquivo não exista, ele cria, inclusive a pasta. Até aí tudo bem. Executa perfeitamente nas extensões accdb e accde. Quando mudo a extensão para accdr começa a dar erro. Tenho percebido que o caminho para salvar o arquivo aparentemente não é notado pelo código VBA.

Alguém já teve algum problema parecido? Saberiam como resolver isso?

Abraços!

Olá Héverson Mota,
Tenha atenção que algumas funcionalidades não funciona em Runtime.
Para despistar, tente executar o accdb em modo runtime.
Abraço

Obrigado AhTeixeira,

O problema não é bem esse. O curioso é que existem mais dois botões que fazem a mesma coisa, com nomes diferentes (logicamente), e funcionam perfeitamente. Li e reli o código. Só mudam os nomes dos relatórios... A arquitetura é a mesma.

Sinistro!

Olá, será melhor postar o código em causa ou..
Postar base de dados com o código em questão para podermos também testar.
Abraço

Obrigado, mas farei algumas modificações. Se não resolver eu desisto kkk

Só queria saber se porventura alguém já tenha tido algum tipo de problema semelhante. Não vejo o porquê de não funcionar. A alternativa será refazer em outro projeto e testar para saber o que se passa.

Por favor, deixe esse tópico como aberto. Pois dentro de uma semana saberei qual será a solução. Aí então volto aqui e dou como resolvido.

Abraços!

Héverson

Olá Héverson Mota,
Obrigado pelo retorno.
Caso não consiga resolver, será melhor optar pela sugestão da mensagem n.4.
Assim fica disponível para todos os membros poder analisar e quem sabe ajudar.
Abraço

Senhores, descobri o problema.

É que ao gerar o arquivo, o nome do mesmo não era aceito pelo caractere "/". Agora, por que esse caractere aparecia se eu havia feito uma função para suprimi-lo do nome? O número da "invoice" (similar a uma nota fiscal), é gerado da seguinte forma: MT-995/16. Sendo MT a origem (Mato-Grosso), o número da invoice e o ano.
Ao gerar o arquivo, para retirar a "/16", fiz: Mid(Me!invNumber, 1, Len(Me!invNumber) - 3). Só não entendo por que dá certo em algumas invoices e outras não?

Resolvi da seguinte forma: criei um campo para a nomenclatura ESTADO (com os ESTADOS cadastrados), o campo invoice fica só com números e o terceiro para o ano de criação.

Se alguém souber o porquê do erro da minha fórmula, por favor, me diga.

Abraços!

Será que nesses que apresentam erros, nao haveria por ali um Espaço? No final do nome?

O ideal mesmo é utilizar o Replace para localizar a / e substituir por um - por exemplo.

Replace(Me!invNumber,"/","-")

Fábio,

Ótima observação. Mas não há espaço porque limitei a quantidade de caracteres no campo.

No entanto, a tua ideia é muito boa.

Ainda assim, ao refletir sobre uma solução, percebi que criar dois campos distintos, letra dos Estados e ano, facilitará na filtragem de relatórios.

Obrigado e darei como resolvido o tópico!

Obrigado a todos pela ajuda!

Abraxx!!!

Olá a todos,
Acho que a ultima mensagem era para o colega Fabio Paes, que também entrou no tópico.
Que é de salutar toda a ajuda.
Abraço a todos

Meu equívoco! Obrigado ahteixeira,

Corrigido!

Olá, se compreendi bem a questão na mensagem nº 7,
só mesmo comparando o valor da nota nos casos onde acontece.
Alternativa poderia ser:

Código:

left(Me!invNumber, instr(Me!invNumber,"/") -1)

Teste assim.
Abraço