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


5 participantes

    [Resolvido]Imprimir relação inteira escolhida pelo usuario

    avatar
    fabianobilo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 166
    Registrado : 10/09/2012

    [Resolvido]Imprimir relação inteira escolhida pelo usuario Empty [Resolvido]Imprimir relação inteira escolhida pelo usuario

    Mensagem  fabianobilo 5/1/2021, 17:48

    Olá pessoal!

    Tenho uma relação de IDs que gera um relatório para cada ID

    Gostaria de imprimir de uma única vez uma relação entre IDs

    Ex: imprimir todos os relatório de ID inicial até o ID final.

    Att

    Fabiano
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Imprimir relação inteira escolhida pelo usuario Empty Re: [Resolvido]Imprimir relação inteira escolhida pelo usuario

    Mensagem  tauron 5/1/2021, 22:15

    Acreditando que você filtre o relatório através de um formulário, coloque como critério na "fonte de registro" do seu relatório:

    Como [Formulários]![Seuformulário]![OCampo] & "*"
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Imprimir relação inteira escolhida pelo usuario Empty Re: [Resolvido]Imprimir relação inteira escolhida pelo usuario

    Mensagem  Silvio 6/1/2021, 11:40

    Bom dia...

    Algo parecido com isso...

    SELECT * FROM ... WHERE id BETWEEN 50 AND 70 ORDER BY id -->isso vai na consulta que gera o relatório em questão.

    Talvez, sem ver o teu projeto, terá que criar um formulário desacoplado onde irá inserir o iD Inicial ( 50 ) e o ID Final (70) e um botão de comando para a referida impressão do mesmo.


    Ou de um modo mais simples.....Na consulta que gera o relatório

    Na coluna onde está o ID coloque..

    Entre Forms!SeuFormulario!IDInicial E Forms!SeuFormulario!IDFinal

    Mesmo assim terá que ter um formulário desacoplado com os campos IDIncial e IDFinal.

    Bons estudos e bom trabalho.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    fabianobilo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 166
    Registrado : 10/09/2012

    [Resolvido]Imprimir relação inteira escolhida pelo usuario Empty Imprimir relação inteira escolhida pelo usuario

    Mensagem  fabianobilo 18/1/2021, 19:55

    Olá!

    Elaborei um formulário conforme estrutura baixo para imprimir os itens selecionados

    Criei em campo chamado "Sel" e gostaria de imprimir apenas os itens selecionados "sim"

    Campos:

    id_aber         Nome_trecho             N_sequencia    Sel
    218                 Teste1                      001                 Sim
    218                 Teste2                      002                 Sim
    218                  Teste3                      003                 Não
    218                  Teste4                      004                 Não

    Obs: Achei mais interessante do que ID inicial e ID final com id_aber selecionado como "sim" que sempre será o mesmo id_aber.

    Um botão para visualizar e outro para imprimir em uma só vez todos os "N_sequencia" e "id_aber"



    Se puderem contribuir, agradeço

    Att

    Fabiano
    avatar
    fabianobilo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 166
    Registrado : 10/09/2012

    [Resolvido]Imprimir relação inteira escolhida pelo usuario Empty Imprimir relação inteira escolhida pelo usuario

    Mensagem  fabianobilo 21/1/2021, 12:19

    Bom dia pessoal!

    Consegui desenvolver e resolver o problema

    Se alguém desejar ter o exemplo disponibilizo.

    Criei um formulário com opção de seleção e imprimi os N_sequencia selecionados.

    Att

    Fabiano
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Imprimir relação inteira escolhida pelo usuario Empty Re: [Resolvido]Imprimir relação inteira escolhida pelo usuario

    Mensagem  Silvio 21/1/2021, 12:25

    Boas...

    Independente de qualquer pedido de usuário, o intuito do fórum é a partilha de conhecimento.

    Sugiro que poste aqui um exemplo do que fez para que outros, que porventura tenham esse tipo de duvida, saibam como resolver.



    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Imprimir relação inteira escolhida pelo usuario Empty Re: [Resolvido]Imprimir relação inteira escolhida pelo usuario

    Mensagem  Silvio 21/1/2021, 12:25

    Boas...

    Independente de qualquer pedido de usuário, o intuito do fórum é a partilha de conhecimento.

    Sugiro que poste aqui um exemplo do que fez para que outros, que porventura tenham esse tipo de duvida, saibam como resolver.



    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    fabianobilo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 166
    Registrado : 10/09/2012

    [Resolvido]Imprimir relação inteira escolhida pelo usuario Empty Imprimir relação inteira escolhida pelo usuario

    Mensagem  fabianobilo 21/1/2021, 18:19

    Olá pessoal!

    Não estou conseguindo carregar o exemplo.

    Como faço para enviar a quem quiser?

    Att
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Imprimir relação inteira escolhida pelo usuario Empty Re: [Resolvido]Imprimir relação inteira escolhida pelo usuario

    Mensagem  Assis 23/1/2021, 10:53



    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Imprimir relação inteira escolhida pelo usuario Empty Re: [Resolvido]Imprimir relação inteira escolhida pelo usuario

    Mensagem  DamascenoJr. 28/1/2021, 23:02

    Fabiano, algum avanç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.
    avatar
    fabianobilo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 166
    Registrado : 10/09/2012

    [Resolvido]Imprimir relação inteira escolhida pelo usuario Empty Imprimir relação inteira escolhida pelo usuario

    Mensagem  fabianobilo 2/2/2021, 16:47

    Olá!
    Criei na tabela campo Sel:Sim/Não e criei uma lista com os seguintes comandos

    Botão: Marcar todos
    On Error GoTo MarcarTodos_Click_Erro

    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE sua consulta SET Sel=-1"
    DoCmd.SetWarnings True

       Me.Lista = Empty
       Me.Lista.Requery


    On Error GoTo 0
    Exit Sub


    MarcarTodos_Click_Erro:


    DoCmd.Hourglass False

    End Sub

    Botão: desmarcar
    On Error GoTo MarcarTodos_Click_Erro

    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE sua consulta SET Sel=0"
    DoCmd.SetWarnings True

       Me.Lista = Empty
       Me.Lista.Requery


    On Error GoTo 0
    Exit Sub


    MarcarTodos_Click_Erro:


    DoCmd.Hourglass False

    End Sub

    Criei um campo de pesquisas para pesquisar os itens a serem impressos

    Ex: Nome_trecho

    Botão: imprimir a seleção

    Comando:
    Private Sub GeraImpressao(TipoImpressao As Integer)
    Dim Msg As String
    On Error GoTo 1

       Dim rst1 As Recordset
       Dim Sel1 As String
       If Nz(DCount("id da sua tabela", "sua tabela", "Sel = true"), 0) = 0 Then
           MsgBox "Atenção; Não Foi Selecionado Nenhum Registro!", , "Atenção!"
           Exit Sub
       End If
       
       Sel1 = "SELECT * from SuaTabelawhere Sel = True"
       Set rst1 = CurrentDb.OpenRecordset(Sel1)
           
       Do While Not rst1.EOF
       
           If TipoImpressao = 1 Then
               DoCmd.OpenReport "seu relatório", acViewNormal, , "id sua tabela=" & rst1![id da sua tabela]
       
           
    Exit_1:
       DoCmd.Hourglass False
       DoCmd.Echo True
      Exit Sub

    1 a:
       DoCmd.Hourglass False
       DoCmd.Echo True
    End Sub

    Botão imprimir:
    Dim Msg As String
    On Error GoTo 1


       Call GeraImpressao(1)

    Exit_1:
       DoCmd.Hourglass False
       DoCmd.Echo True
       Exit Sub

    1 a:
       DoCmd.Hourglass False
       DoCmd.Echo True
    End sub
    avatar
    fabianobilo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 166
    Registrado : 10/09/2012

    [Resolvido]Imprimir relação inteira escolhida pelo usuario Empty Imprimir relação inteira escolhida pelo usuario

    Mensagem  fabianobilo 2/2/2021, 16:54

    Olá!

    Grato pela contribuição de todos

    Fabiano

    Conteúdo patrocinado


    [Resolvido]Imprimir relação inteira escolhida pelo usuario Empty Re: [Resolvido]Imprimir relação inteira escolhida pelo usuario

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 09:14