[Resolvido]Ajuda colocar botão de atalho para relatórios no formulário

Ola amigos, gostaria de pedir uma ajuda, pois não estou conseguindo colocar um botão de atalho no formulário principal para os relatórios, alguém poderia me ajudar por favor? Segue o arquivo em anexo, ficarei muito grato, obrigado.

O que você quer dizer com "botão de atalho"? Um botão para abrir o relatório? Se for, basta colocar no evento "Ao clicar" do botão:

Código:

DoCmd.OpenReport "NomeDoRelatório", acPreview

Caso queira abrir o relatório filtrando pelo registro atual do formulário, basta informar o nome do campo da chave primária na tabela:

Código:

DoCmd.OpenReport "NomeDoRelatório", acViewPreview, , "Código=" & Me.Código

Obrigado pela resposta, mas tentei fazer conforme você falou, mas está retornando um erro, poderia por favor implementar estes botões para os relatórios no formulário, o arquivo em anexo? na verdade eu não sou muito bom em VBA, se puder, ficarei grato, obrigado.

Mas isso não tem que ter conhecimento, é só clicar na linha do evento "Ao clicar" do botão, clicar nos três pontinhos na frente do nome do evento e escolher a opção "Construtor de código". Depois, é só colar o código que passei e mudar "NomeDoRelatório" para o nome correto dele. É fazendo que você irá aprender.

Ola, já fiz isso e acho que fiz certo, só que está retornando o seguinte erro: Erro em tempo de execução '3211'
O mecanismo de banco de dados não pôde bloquear a tabela "tblPedidos", pois ela está sendo usada por outra pessoa ou processo., isso que eu não estou conseguindo resolver.

Me parece que o que você quer é abrir o relatório filtrado pelo registro atual no formulário, é isso mesmo? Uma saída pode ser usar um formulário auxiliar, aonde pode ter um campo que receberá o ID do registro atual. Na consulta, você muda o critério para buscar nesse campo desse formulário auxiliar. Supondo que o formulário se chama "frmAuxiliar" e o campo se chama "txtID", o critério seria:

Como Forms!frmAuxiliar!txtID

No botão que está tentando abrir o relatório atualmente, você coloca:

DoCmd.OpenForm "frmAuxiliar"
Forms!frmAuxiliar!txtID = Me.IDPedido
DoCmd.Close acForm, Me.Name

Deves colocar esse campo do IdPedido no formulário atual, pois não o tem nele.

No evento "No timer" do formulário frmAuxilixar:

Me.TimerInterval = 0
DoCmd.OpenReport "NomeDoRelatório", acViewPreview
DoCmd.Close acForm, Me.Name

No Intervalo do cronômetro do frmAuxiliar, coloque 10.

Amigo, como eu disse, eu não sou muito bom em VBA, se você implementar para mim no anexo, ficarei grato, obrigado!

Veja:

Ola amigo, me perdoe pelo incomodo, é o seguinte, você implementou um botão pelo código que você me mostrou ok? então, eu não consegui fazer com os outros, tentei usar a mesma forma com os outros botões mas não dá certo, veja no arquivo em anexo que você enviou pra mim, o botão "TERMO" é o que você fez, o botão "CAPA" eu consegui fazer funcionar, mas de outra forma e o botão "DAP CÁLCULO" repete o relatório do botão "TERMO", o qual deveria abrir o relatório "DAP CÁLCULO" então não sei como fazer para fazer funcionar. Se puder me ajudar, eu agradeço.

Acredito que nem todos os relatórios terão esse problema na abertura. Esse método seria apenas para abrir os que apresentarem problemas. Os outros pode abrir direto. Uma dica para usar um único formulário Auxiliar seria acrescentar mais um campo nele e dar-lhe o nome de txtRelatorio e colocar nesse campo txtRelatorio o nome do relatório que deverá ser aberto:

Código:

DoCmd.OpenForm "frmAuxiliar"
Forms!frmAuxiliar!txtNome = Me.Nome
Forms!frmAuxiliar!txtRelatorio = "NomeDoRelatório"
DoCmd.Close acForm, Me.Name

Agora você pode usar esse campo para abrir o relatório:

Código:

Me.TimerInterval = 0
DoCmd.OpenReport Me.txtRelatorio, acViewPreview
DoCmd.Close acForm, Me.Name

Desculpe, mas onde eu uso esses códigos?

Ok. Resolvido, obrigado pela ajuda!!