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

    avatar
    alantb
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  alantb 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
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  alantb 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 22 vez(es)
    avatar
    alantb
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  alantb 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: 21/4/2021, 19:33