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

    [Resolvido]Título do Relatório

    avatar
    PINHO1307
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 15/09/2017

    [Resolvido]Título do Relatório Empty [Resolvido]Título do Relatório

    Mensagem  PINHO1307 8/10/2017, 13:41

    Caros, bom dia.

    Criei um relatório através de uma consulta e gostaria que o título do relatório exibisse o período de datas que digitei na consulta.
    Exemplo: Data Inicial: 01/09/2017 - Data Final: 30/09/2017.

    Título: "Demitidos no Perído de 01/09/2017 a 30/09/2017".

    Obs.: Os campos Data Inicial e Data Final não existem na consulta, são critérios informados para filtrar a consulta.

    Qualquer ajuda será bem vinda.

    Grato.

    Pinho
    avatar
    joão2017
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 75
    Registrado : 16/09/2017

    [Resolvido]Título do Relatório Empty Re: [Resolvido]Título do Relatório

    Mensagem  joão2017 8/10/2017, 14:06

    Bom dia!Você executa a consulta de um formulário?
    avatar
    PINHO1307
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 15/09/2017

    [Resolvido]Título do Relatório Empty Re: [Resolvido]Título do Relatório

    Mensagem  PINHO1307 8/10/2017, 14:39

    Sim. Criei um botão que ao acioná-lo ele executa o vba e chama o relatório.
    O VBA é o seguinte:

    Private Sub Comando11_Click()
    Dim dtinicial, dtfim, criterio As String
    Dim datainic, datafim As Date


    dtinicial = inputbox("Insira a Data Inicial", "Data Inicial")
    dtfim = inputbox("Insira a Data Final", "Data Final")
    datainic = CDate(dtinicial)
    datafim = CDate(dtfim)
    dtinicial = Format(datainic, "mm/dd/yyyy")
    dtfim = Format(datafim, "mm/dd/yyyy")
    criterio = "Demissao >= " + "#" + dtinicial + "#" + " and Demissao <= " + "#" + dtfim + "#"
    DoCmd.OpenReport "Relatório_Demitidos_Semana", acViewPreview, , criterio, , acWindowNormal

    End Sub
    avatar
    PINHO1307
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 15/09/2017

    [Resolvido]Título do Relatório Empty Re: [Resolvido]Título do Relatório

    Mensagem  PINHO1307 9/10/2017, 12:08

    Galera, bom dia.

    Consegui resolver. Criei duas caixas de texto no Formulário, no VBA associei o que é digitado as duas caixas e fiz referência a elas no Relatório.

    Desse jeito:

    No Formulário =>  Caixas de Texto = dtinicio e dtfinal

    No VBA :

    Private Sub Comando11_Click()
    Dim dtinicial, dtfim, criterio As String
    Dim datainic, datafim As Date


    dtinicial = inputbox("Insira a Data Inicial", "Data Inicial")
    dtfim = inputbox("Insira a Data Final", "Data Final")
    datainic = CDate(dtinicial)
    datafim = CDate(dtfim)
    Me.dtinicio = dtinicial
    Me.dtfinal = dtfim
    dtinicial = Format(datainic, "mm/dd/yyyy")
    dtfim = Format(datafim, "mm/dd/yyyy")
    criterio = "Demissao >= " + "#" + dtinicial + "#" + " and Demissao <= " + "#" + dtfim + "#"
    Me.Visible = False
    DoCmd.OpenReport "Relatório_Demitidos_Semana", acViewPreview, , criterio, , acWindowNormal

    End Sub

    E no Relatório => Criei duas caixas de texto que irão receber as informações e na propriedade Fonte de Controle de cada caixa criei as fórmulas: =[Formulários]![Formulário_Relatórios]![dtinicio] e =[Formulários]![formulário_Relatórios]![dtfinal]

    Valeu !!!


    Inté.
    tauron
    tauron
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1287
    Registrado : 07/12/2011

    [Resolvido]Título do Relatório Empty Re: [Resolvido]Título do Relatório

    Mensagem  tauron 11/10/2017, 13:33

    Você "chama" o relatorio atraves de um formulario e uma consulta exclusiva? caso sim, proceda assim:

    Na consulta:
    campo Data: entre [formularios]![seuformulario]![seucampodatainical] e [formularios]![seuformulario]![seucampodatafinal]

    No formulario:
    1 opcao: ao clicar do botao "abrir relatorio"
    2 opcao: apos atualizar "seucampodatafinal"

    coloque este codigo substituindo o vermelho conforme o caso
    DoCmd.OpenReport "seurelatorio", acViewPreview
    Me.Visible = False

    No relatorio:
    No campo que recebera as datas:

    ="periodo de: " & [formularios]![seuformulario]![seucampodatainicial] & " a " & [formularios]![seuformulario]![seucampodatafinal]

    no evento ao fechar
    DoCmd.Close acForm, "seuformulario", acSaveNo
    avatar
    PINHO1307
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 15/09/2017

    [Resolvido]Título do Relatório Empty Re: [Resolvido]Título do Relatório

    Mensagem  PINHO1307 17/10/2017, 14:04

    Tauron, bom dia.

    Já consegui resolver. Veja o meu post acima.
    Mas, fica sua dica também como solução.

    Valeu !!!


      Data/hora atual: 21/4/2021, 18:33