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


3 participantes

    [Resolvido]Relatorio por data

    robertonl
    avatar
    robertonl
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 86
    Registrado : 21/12/2016
    • Mensagem nº1

    [Resolvido]Relatorio por data Empty [Resolvido]Relatorio por data

    Mensagem  robertonl 24/1/2022, 22:42

    Boa noite.
    Utilizei na consulta do formulario para gerar especificando a data inicial e a data final esta linha de comando.

    É Negado Nulo E Entre [forms]![Frm_ListaEscalados]![txt_datainicial] E [forms]![Frm_ListaEscalados]![txt_datafinal]

    Qual comando utilizo para  se pegar todas as data e gerar o relatorio (data inicial e data final com os campos vazios)


    Última edição por robertonl em 27/1/2022, 00:20, editado 1 vez(es)
    • Ir para o topo
    marcelo marques
    marcelo marques
    marcelo marques
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1003
    Registrado : 12/04/2016
    • Mensagem nº2

    [Resolvido]Relatorio por data Empty Re: [Resolvido]Relatorio por data

    Mensagem  marcelo marques 24/1/2022, 23:55

    É Negado Nulo E Entre [forms]![Frm_ListaEscalados]![txt_datainicial] E [forms]![Frm_ListaEscalados]![txt_datafinal]& "*"
    • Ir para o topo
    robertonl
    avatar
    robertonl
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 86
    Registrado : 21/12/2016
    • Mensagem nº3

    [Resolvido]Relatorio por data Empty Re: [Resolvido]Relatorio por data

    Mensagem  robertonl 25/1/2022, 00:00

    Não funcionou
    • Ir para o topo
    marcelo marques
    marcelo marques
    marcelo marques
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1003
    Registrado : 12/04/2016
    • Mensagem nº4

    [Resolvido]Relatorio por data Empty Re: [Resolvido]Relatorio por data

    Mensagem  marcelo marques 25/1/2022, 00:49

    Está dando algum erro por favor manda porte envolvida de seu bd
    • Ir para o topo
    tauron
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011
    • Mensagem nº5

    [Resolvido]Relatorio por data Empty Re: [Resolvido]Relatorio por data

    Mensagem  tauron 25/1/2022, 09:42

    Dando um pitaco.

    Roberto, por acaso é possivel ter registro cujo campo data esteja em branco? Caso a resposta seja não, basta:

    Na Consulta:

    Entre [forms]![Frm_ListaEscalados]![txt_datainicial] E [forms]![Frm_ListaEscalados]![txt_datafinal]

    No formulário:

    Cole a Função abaixo fazendo as adequações e no botão um simples Call fncRelatorio
    Código:


    Private Function fncRelatorio()
    Dim stDocName As String
    Dim accobj As AccessObject
     
     On Error GoTo Err_fncRelatorio

     stDocName = "[color=#ff0000]SeuRelatório[/color]"
      
            
     'This function closes the report if the report is open and then re-opens the report.
      Set accobj = Application.CurrentProject.AllReports.Item(stDocName)
      If accobj.IsLoaded Then
        If accobj.CurrentView = acCurViewPreview Then
            DoCmd.Close acReport, stDocName
            DoCmd.OpenReport stDocName, acPreview
        End If
      Else
              DoCmd.OpenReport stDocName, acPreview
      End If

        
    Exit_fncRelatorio:
       Exit Function

    Err_fncRelatorio:
       MsgBox Err.Description
       Resume Exit_fncRelatorio
    End Function



    Dica: No Relatório, utilize os comandos abaixo:

    [Forms]![Frm_ListaEscalados].Visible = False

    DoCmd.Close acForm, "Frm_ListaEscalados", acSaveNo
    • Ir para o topo
    robertonl
    avatar
    robertonl
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 86
    Registrado : 21/12/2016
    • Mensagem nº6

    [Resolvido]Relatorio por data Empty Seleção de datas para relatorio

    Mensagem  robertonl 25/1/2022, 17:32

    Ao clicar em  Frm_EscalaLiturgia e clicar no botão escala abre-se um formulario.
    Se nos dois campos especificar data e clicar em filtrar existindo data elas aparecem na caixa de listagem e depois clicar em visualizar aparece as informações.
    Se deixar sem data selecionada (em branco) e clicar em filtrar nenhuma data será listada.
    A ideia é que todas  as datas sejam listadas e ao clicar em visualiza as informações são preenchidas
    Anexos
    [Resolvido]Relatorio por data AttachmentProjeto_Piloto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.1 Mb) Baixado 24 vez(es)
    • Ir para o topo
    robertonl
    avatar
    robertonl
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 86
    Registrado : 21/12/2016
    • Mensagem nº7

    [Resolvido]Relatorio por data Empty Re: [Resolvido]Relatorio por data

    Mensagem  robertonl 25/1/2022, 19:21

    Tentei carregar as informações ao abrir o formulario Frm_ListaEscalados, mas acho que a linha que coloquei para retornar quando selecionar data não está deixando carregar a listbox
    • Ir para o topo
    tauron
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011
    • Mensagem nº8

    [Resolvido]Relatorio por data Empty Re: [Resolvido]Relatorio por data

    Mensagem  tauron 25/1/2022, 22:03

    Então Roberto muito confuso essa sua penultima mensagem.

    Vamos lá, se você determinou como critérios para a filtragem ( Filtrar ou visualizar, o resultado será o mesmo), isso determina que se deixar os campos datas do formulário em branco, irá retornar todas as linhas cujo campo data da tabela esteja em branco, por isso no critério tem "Entre", "E" ou seja deve-se informar o período desejado.

    quanto ao fato de não carregar a lista no formulário, aqui para mim, funfou legal informei o periodo 01/07/2021 a 31/07/2021 e me retornou três registros, tanto no botão filtrar quando no visualizar. Da mesma forma, se eu desejar visualizar todos os registro de 2021, informarei 01/01/2021 a 31/12/2021.

    OBS.: Somente alterei no nome do formulário na linha de comando do botão "visualizar".
    • Ir para o topo
    robertonl
    avatar
    robertonl
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 86
    Registrado : 21/12/2016
    • Mensagem nº9

    [Resolvido]Relatorio por data Empty Re: [Resolvido]Relatorio por data

    Mensagem  robertonl 27/1/2022, 00:21

    Boa noite.
    Obrigado pela dica, mas realizei de outra maneira, que está funcionando
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº10

    [Resolvido]Relatorio por data Empty Re: [Resolvido]Relatorio por data

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 22/11/2024, 22:42