MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    Não imprime

    avatar
    MPRFS
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3
    Registrado : 27/03/2020

    Não imprime Empty Não imprime

    Mensagem  MPRFS em 27/3/2020, 14:30

    Uma boa tarde !
    No meu bd , tenho um form que filtra em três campo. Dois de data inicial e final e um campo de pesquisa por nome do Utente.
    este campo tem o nome de txtpesquisa e tem o seguinte código associado.

    Código:
    Private Sub txtPesquisa_Change()
    Dim strFiltro As String
    strFiltro = "NomeUtente LIKE '*" & Me.txtpesquisa.Text & "*' "
    Me.subfrmQryFaturacao.Form.Filter = strFiltro
    Me.subfrmQryFaturacao.Form.FilterOn = True
    End Sub

    O meu problema reside no seguinte:
    Consigo o pretendo que era filtrar entre datas e imprimir o filtrado. Aparece na impressão o que foi realmente filtrado nos campos datas. O problema coloca se quando tento filtrar por nome de Utente, no form filtra mas não aparece nada quando mandamos imprimir.

    Tenho um botão para imprimir com o nome Imprimir e com o seguinte código.

    Código:
    Private Sub Imprimir_Click()
    DoCmd.OpenReport "relFacturacaoTotal", acViewPreview, , NomeUtente
    End Sub

    Deixo também o código do form completo para que me possam ajudar. Obrigado

    Código:
    Option Compare Database

    Private Sub filtro_Click()
    Dim strFiltro As String
    strFiltro = "NomeUtente LIKE '*" & Me.txtpesquisa.Text & "*' AND Data between # " & Format(DI, "mm/dd/yyyy") & " # and # " & Format(DF, "mm/dd/yyyy") & " #"
    Me.subfrmQryFaturacao.Form.Filter = strFiltro
    Me.subfrmQryFaturacao.Form.FilterOn = True
    End Sub

    Private Sub filtro_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MouseCursor(32649)
    End Sub

    Private Sub Imprimir_Click()
    DoCmd.OpenReport "relFacturacaoTotal", acViewPreview, , NomeUtente
    End Sub

    Private Sub Imprimir_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MouseCursor(32649)
    End Sub

    Private Sub txtPesquisa_Change()
    Dim strFiltro As String
    strFiltro = "NomeUtente LIKE '*" & Me.txtpesquisa.Text & "*' "
    Me.subfrmQryFaturacao.Form.Filter = strFiltro
    Me.subfrmQryFaturacao.Form.FilterOn = Tru

    Um abraço e Deus vos proteja !
    avatar
    MPRFS
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3
    Registrado : 27/03/2020

    Não imprime Empty Re: Não imprime

    Mensagem  MPRFS em 6/4/2020, 00:32

    Up !
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2097
    Registrado : 22/11/2016

    Não imprime Empty Re: Não imprime

    Mensagem  DamascenoJr. em 6/4/2020, 23:03

    Anexe seu projeto para entendermos melhor, pois está faltando a parte dos filtros do relatório que você está tentando imprimir.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 5/7/2020, 21:31