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

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

    Compartilhe

    sergiobecker
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 15/08/2013

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

    Mensagem  sergiobecker em Qua 25 Set 2013, 12:28

    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.
    Anexos
    Banco_de_dados3.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (552 Kb) Baixado 12 vez(es)
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11238
    Registrado : 30/12/2009

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

    Mensagem  criquio em Qua 25 Set 2013, 13:14

    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


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    sergiobecker
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 15/08/2013

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

    Mensagem  sergiobecker em Qua 25 Set 2013, 13:30

    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.
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11238
    Registrado : 30/12/2009

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

    Mensagem  criquio em Qua 25 Set 2013, 13:35

    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.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    sergiobecker
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 15/08/2013

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

    Mensagem  sergiobecker em Qua 25 Set 2013, 13:53

    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.
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11238
    Registrado : 30/12/2009

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

    Mensagem  criquio em Qua 25 Set 2013, 14:46

    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.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    sergiobecker
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 15/08/2013

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

    Mensagem  sergiobecker em Qua 25 Set 2013, 15:26

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11238
    Registrado : 30/12/2009

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

    Mensagem  criquio em Qua 25 Set 2013, 17:50

    Veja:
    Anexos
    exemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (72 Kb) Baixado 24 vez(es)


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    sergiobecker
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 15/08/2013

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

    Mensagem  sergiobecker em Qua 25 Set 2013, 20:07

    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.
    Anexos
    Banco_de_dados3.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (131 Kb) Baixado 2 vez(es)
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11238
    Registrado : 30/12/2009

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

    Mensagem  criquio em Qua 25 Set 2013, 21:56

    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


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    sergiobecker
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 15/08/2013

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

    Mensagem  sergiobecker em Qui 26 Set 2013, 01:54

    Desculpe, mas onde eu uso esses códigos?

    sergiobecker
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 15/08/2013

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

    Mensagem  sergiobecker em Seg 28 Out 2013, 17:38

    Ok. Resolvido, obrigado pela ajuda!!

      Data/hora atual: Dom 20 Maio 2018, 22:51