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


4 participantes

    [Resolvido]Limitar registro em um relatório.

    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 14/03/2011

    [Resolvido]Limitar registro em um relatório. Empty [Resolvido]Limitar registro em um relatório.

    Mensagem  Ronaldo Costa 2/3/2020, 22:56

    Olá pessoal!

    Preciso que o meu relatório imprima uma quantidade de registro pre definido pelo usuário do sistema.

    Explico:

    No meu formulário, clico no botão 'Imprimir' aí ele aciona uma imputbox que solicita o número de registros que desejo que seja impresso; coloco a quantidade e o relatório me dar a quantidade solicitada de registros.

    Sei que usando 'top' na instrução de uma consulta, o access faz isso, mas como poderia fazer isso pelo vba?


    grato
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2738
    Registrado : 23/01/2018

    [Resolvido]Limitar registro em um relatório. Empty Re: [Resolvido]Limitar registro em um relatório.

    Mensagem  crysostomo 8/3/2020, 21:12

    no repositório VBA te esse exemplos "imprimir quantidades de copias"


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Limitar registro em um relatório. Empty Re: [Resolvido]Limitar registro em um relatório.

    Mensagem  Fernando Bueno 10/3/2020, 21:27

    Boa tarde;

    Segue m anexo um exemplo.
    Anexos
    [Resolvido]Limitar registro em um relatório. AttachmentEscolher quantas copias imprimir.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (44 Kb) Baixado 39 vez(es)


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Limitar registro em um relatório. 16rzeq
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Limitar registro em um relatório. Empty Re: [Resolvido]Limitar registro em um relatório.

    Mensagem  DamascenoJr. 11/3/2020, 00:03

    Amigos, a ideia não é quantidade de cópias a serem impressas, mas sim quantidade de registros a serem exibidos no relatório para impressão.


    .................................................................................
    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.
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 14/03/2011

    [Resolvido]Limitar registro em um relatório. Empty Re: [Resolvido]Limitar registro em um relatório.

    Mensagem  Ronaldo Costa 11/3/2020, 12:41

    Exatamente DamascenoJr!!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Limitar registro em um relatório. Empty Re: [Resolvido]Limitar registro em um relatório.

    Mensagem  DamascenoJr. 12/3/2020, 02:36

    Tópico movido por tratar-se de dúvida relacionada mais a relatórios do que formulários.


    .................................................................................
    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.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Limitar registro em um relatório. Empty Re: [Resolvido]Limitar registro em um relatório.

    Mensagem  DamascenoJr. 12/3/2020, 03:36

    No evento "ao Abrir" do relatório.
    Código:
    Private Sub Report_Open(Cancel As Integer)

        Dim strValor As String
       
        Do
           
            strValor = InputBox("Quantos registros você quer?", "Quantidade")
           
            If StrPtr(strValor) = 0 Then 'clicou em cancelar
                Cancel = True 'cancela abertura do relatório
                Exit Sub
            ElseIf IsNumeric(strValor) Then
                'montando a fonte do registro do relatório
                Me.RecordSource = "SELECT top " & strValor & " cpCampo1, cpCampo2 FROM tblTabela ORDER BY cpCampo1;"
                Exit Do 'sai do loop para dar continuação ao código
            Else
                Call MsgBox("Informe um número.")
            End If
       
        Loop

    End Sub


    .................................................................................
    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.
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 14/03/2011

    [Resolvido]Limitar registro em um relatório. Empty Re: [Resolvido]Limitar registro em um relatório.

    Mensagem  Ronaldo Costa 14/3/2020, 13:06

    Boas DamascenoJr, à primeira vista, acredito ser isso a solução. Estarei retornando com o resultado...
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 14/03/2011

    [Resolvido]Limitar registro em um relatório. Empty Re: [Resolvido]Limitar registro em um relatório.

    Mensagem  Ronaldo Costa 21/4/2020, 22:04

    Tudo certo. Dentro do que esperava.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Limitar registro em um relatório. Empty Re: [Resolvido]Limitar registro em um relatório.

    Mensagem  DamascenoJr. 23/4/2020, 05:14

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    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.

    Conteúdo patrocinado


    [Resolvido]Limitar registro em um relatório. Empty Re: [Resolvido]Limitar registro em um relatório.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 3/10/2024, 11:09