Renomear relatório

Boa tarde Pessoal,

Estou precisando de um recurso na qual não estou conseguindo desenvolver.

Preciso via código renomear um relatório, para que ao abri este relatório, ou dê erro ou Caso não encontre para impressão, dê a mensagem de inexistente.

pode ser dentro do botão clicar,

Se alguém puder me ajudar, ficarei muito grato.

Campos.

Boa tarde Avelino!

Primeiramente agradeço por sua disponibilidade,

Vou montar dentro do meu código, e assim que concluir, caso não tenha mais dúvidas, já encerro, ok.

Um abraço,

Campos.

Avelino, bom dia,

Deu certo, funcionou legalzinho,

desculpe-me da demora, correrias !!!

grato pela força,


um abraço,

Campos.

Avelino, bom dia!

Fiz os testes, relatei que estava tudo certo, mas quando fechei o programa no outro dia fui realizar as operações deu erro.

Notei que não funcionou porque o projeto é protegido com senha, e não posso deixá-lo desprotegido.


Você sabe me dizer se existe uma forma de trabalhar com essa renomeação mesmo com o projeto protegido?


Grato,

Campos.

olá Avelino como vai tudo bem? Tenha um bom dia.

linha 1: Dim bd As DAO.Database
linha 2: Set bd = DBEngine.OpenDatabase("c:\Maestro\maestro_v5_be.accdb",False, False, ";pwd=a1234")
linha 3: DoCmd.TransferDatabase acLink, "Microsoft Access", "c:\Maestro\maestro_v5_be.accdb", acTable, _
"tblClientes", "tblClientes"
linha 4: bd.Close
linha 5: Set bd = Nothing

Vê se entendi,

na linha 1: a palavra bd, eu troco pelo nome do meu banco de dados;

na linha 2: coloco o caminho do meu banco de dados;
*pwd=a1234 no lugar de a1234 a senha do meu banco de dados;

na linha 3: o código a executar;

onde estiber bd é o nome de meu banco de dados, é isso?


grato,

Campos.

Olá Avelino, não deu certo amigo.

Fiz assim:

Private Sub ativar()
Dim controle As DAO.Database
Set controle = DBEngine.OpenDatabase("C:\Desktop\controle.mdb", False, False, ";pwd=abn2015")

DoCmd.Rename "relpedido1", acReport, "relpedido"
Set controle = Nothing
End Sub

obs*: pwd=abn2015 se refere a senha do banco de dados, é isso?


Deu erro 2017

"Este projeto do visual basic aplication está protegidocom senha......................."


Pode me ajudar?


Grato
Campos.

Reaberto!!


Não funciona quando está protegido!!

Ok Avelino, eu aguardo!



Grato,

Campos.

Boa tarde Avelino, como vai tudo bem?


Vc acha que teremos uma solução neste caso?

Fico no aguardo conforme sua disponibilidade, ok amigo.


Um abraço,


Campos.