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

2 participantes

    Não imprime

    avatar
    MPRFS
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Não imprime Empty Não imprime

    Mensagem  MPRFS 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 : 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 6/4/2020, 00:32

    Up !
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Não imprime Empty Re: Não imprime

    Mensagem  DamascenoJr. 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: 18/5/2022, 21:16