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]Título do Relatório

    avatar
    PINHO1307
    Novato
    Novato

    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 em 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 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 em 8/10/2017, 14:06

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

    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 em 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 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 em 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 100%

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

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

    Mensagem  tauron em 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 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 em 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: 2/6/2020, 12:42