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]Filtrar para imprimir

    avatar
    alantb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 163
    Registrado : 25/07/2017

    [Resolvido]Filtrar para imprimir Empty [Resolvido]Filtrar para imprimir

    Mensagem  alantb em 22/2/2018, 16:54

    Olá, em um form tenho 3 botões de opção para filtrar um relatório. O botão de opção TODOS tá OK; o segundo, FUNCIONÁRIO, até carrega o relatório, mas não filtra pelo FUNCIONÁRIO. Também tem um terceiro botão de opção , LOTAÇÃO, mas creio se conseguir funcionar o de FUNCIONÁRIO, o código é semelhante. Estou tentando assim, mas ainda falta alguma coisa para filtrar os funcionários:

    Private Sub cmdImprime_Click()
    ImprimeRel
    End Sub

    Sub ImprimeRel()
    Dim strFiltro As String

    If Me.GpSeleciona = 1 Then ' gpSeleciona é um grupo de opções. Aqui é o botão de opção TODOS

    DoCmd.OpenReport "RelBiometrias", acViewPreview

    ElseIf Me.GpSeleciona = 2 Then 'aqui é o botão de opção FUNCIONÁRIO

    If Len("" & Me.ComboBox1) > 0 Then
    strFiltro = "NomeFunc='" & ComboBox1 & "'"
    ElseIf Len("" & Me.ComboBox1) > 0 Then
    strFiltro = "NomeFunc='" & Me.ComboBox1 & "'"
    End If

    If Len(strFiltro) > 0 Then strFiltro = " WHERE " & strFiltro

    DoCmd.OpenReport "RelBiometrias", acViewPreview, , , , "SELECT tbFuncionario.codFunc, tbFuncionario.NomeFunc, tbMovimento.codBiometria, tbMotivo.descMotivo, tbMovimento.nroDias, tbMovimento.AContar FROM ConsultaBiometria " & strFiltro

    DoCmd.Close acForm, "frmRelBioAgrupada"

    Else ' Aqui entra o botão de opção LOTAÇÃO

    DoCmd.OpenReport "RelBiometrias", acViewPreview, , "CodLotacao = " & Me!txtCodLotacao

    End If


    End Sub
    avatar
    alantb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 163
    Registrado : 25/07/2017

    [Resolvido]Filtrar para imprimir Empty Re: [Resolvido]Filtrar para imprimir

    Mensagem  alantb em 22/2/2018, 18:38

    Já modifiquei o form e o relatório, e nada. O máximo que consigo é imprimir todos dados. Segue o bd para os colegas poder ver melhor. Para verificar abrir o form frmRelBioAgrupada; selecionar o botão de opção Funcionário; selecionar ALAN ou ROSANI e deveria imprimir somente os dados de um ou de outro.
    Anexos
    [Resolvido]Filtrar para imprimir AttachmentbdBiometria.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.2 Mb) Baixado 14 vez(es)
    avatar
    alantb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 163
    Registrado : 25/07/2017

    [Resolvido]Filtrar para imprimir Empty Re: [Resolvido]Filtrar para imprimir

    Mensagem  alantb em 23/2/2018, 17:24

    Olá pessoal, consegui resolver. Fiz uma cópia do bd, modifiquei o form e também a origem dos dados do relatório, e deu certo. Tudo isso modificando a maneira de filtrar: em vez de via código, coloquei os filtros direto na consulta, tudo isso conforme tutorial do nosso colega prof. Gilberlânio no video em https://www.youtube.com/watch?v=Jkk2Lmu5qVo. A todos que visualizaram o tópico, obrigado pela atenção.

    ALAN

      Data/hora atual: 1/6/2020, 21:30