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

    [Resolvido]Como ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como  ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados Empty [Resolvido]Como ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados

    Mensagem  Silvio 22/2/2014, 13:52

    Bom dia a todos.
    Há uma duvida, que permeia minha mente.
    tenho um relatório, onde eu tenho 10 combobox. Para evitar que valores nulos ou vazios, no evento Ao formatar da seção detalhes eu coloquei o código:

    Código:
    If IsNull(Me.Qtd1) Or IsEmpty(Me.Qtd1) Then
    Me.Sessao1.Visible = False
    Else
    Me.Sessao1.Visible = True
    End If

    O que ocorre é que entre as sessões ficaram lacunas em branco, distorcendo a formatação. Ou seja há um espaço entre elas. Exemplo

    sessão1


    sessão5



    sessão10

    Questiono aos mestres....tem como deixar dessa forma.

    sessão1
    sessão5
    sessão10

    Lembrando, que as propriedades do Rpt estão para reduzir na sessão detalhe e que cada entidade envolvida ( combobox e txtbox) também estão como reduzir como sim.

    Em tempo, essas comboxbox e txtbox, estão dentro de um grupo de opções. Vi um código do Dilson por aqui, mas ele ampliava o grupo de opções.

    Bom é isso, se algum puder me dar uma luz, agradeço

    Saúde e paz para todos.


    .................................................................................
    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."
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Como  ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados Empty Re: [Resolvido]Como ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados

    Mensagem  Avelino Sampaio 22/2/2014, 14:18

    Olá!

    Se são linhas de registro vc pode utilizar as propriedades:

    PrintSection
    MoveLayout

    Tenho um exemplo que usa destas propriedades, neste meu artigo:

    http://www.usandoaccess.com.br/tutoriais/tuto32.asp?id=1#inicio

    Aguardamos
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como  ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados Empty Re: [Resolvido]Como ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados

    Mensagem  Silvio 22/2/2014, 15:02

    Avelino, bom dia....

    Apenas para eu entender a lógica...

    Seria assim por algum acaso...apenas para eu entender...

    If IsNull(Me.Qtd1) Or IsEmpty(Me.Qtd1) Then
    Me.Sessao1.Visible = False
    Me.PrintSection = False
    Me.MoveLayout = False
    Else
    Me.Sessao1.Visible = True
    Me.PrintSection = True
    Me.MoveLayout = True
    End If

    O true, faz ele movimentar ?


    .................................................................................
    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."
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Como  ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados Empty Re: [Resolvido]Como ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados

    Mensagem  Avelino Sampaio 22/2/2014, 15:16

    Está tendo o resultado esperado com este código ?

    Ponha aqui um exemplo do relatório que fica mais fácil de te ajudar.

    No aguardo


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como  ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados Empty Re: [Resolvido]Como ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados

    Mensagem  Silvio 22/2/2014, 17:53

    Avelino, infelizmente não há como passar, envolve dados sigilosos de clientes.

    Bom o que eu fiz seguindo teu exemplo, coloquei  o código em questão, na seção detalhe, aba eventos, ao imprimir....

    If IsNull(Me.Qtd1) Or IsEmpty(Me.Qtd1) Then  --> se é nulo( me.qtd1) ou está vazia ( me.qtd1) então  ( qtd1 é uma caixa de texto)

    Me.Sessao1.Visible = False --> minha combobox1.visivel =falso
    Me.PrintSection = False --> é aqui que eu não estou entendo, se sigo o false da linha acima.
    Me.MoveLayout = False--> é aqui que eu não estou entendo
    Else
    Me.Sessao1.Visible = True
    Me.PrintSection = True
    Me.MoveLayout = True
    End If

    Mesmo seguindo seu exemplo, ficaram assim...conforme anexo. Sei que sem postar parte do sistema, torna a ajuda mais complicada, mas conto
    com a ajuda e colaboração.


    .................................................................................
    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."
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Como  ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados Empty Re: [Resolvido]Como ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados

    Mensagem  Avelino Sampaio 22/2/2014, 19:41

    Da para passar somente o relatório, para eu analisar a estrutura ?


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como  ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados Empty Re: [Resolvido]Como ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados

    Mensagem  Silvio 22/2/2014, 19:52

    Claro,  já está aqui.


    .................................................................................
    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."
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Como  ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados Empty Re: [Resolvido]Como ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados

    Mensagem  Avelino Sampaio 22/2/2014, 21:29

    Vejo dois caminhos para o caso.  Um é alterar a origem dos campos , mantendo o layout e a outro é alterar o layout.  

    Observe no exemplo que coloquei os campos sobrepostos e então alteramos suas posições.

    o código teste foi este do evento "ao formatar"


    Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
    Dim strSeq
    Dim k, s

    For k = 1 To 10
       Me("sessao" & k).Visible = False
       Me("rot" & k).Visible = False
       Me("qtd" & k).Visible = False
    Next

    For k = 1 To 10
       If Len(Me("qtd" & k) & "") > 0 Then strSeq = strSeq & ";" & k
    Next
    strSeq = Mid(strSeq, 2)
    s = Split(strSeq, ";")
    For k = 0 To UBound(s)
       Me("sessao" & s(k)).Top = (567 * 6.296) + (567 * (0.582 * k))
       Me("rot" & s(k)).Top = (567 * 6.296) + (567 * (0.582 * k))
       Me("qtd" & s(k)).Top = (567 * 6.296) + (567 * (0.582 * k))
       Me("sessao" & s(k)).Visible = True
       Me("rot" & s(k)).Visible = True
       Me("qtd" & s(k)).Visible = True
    Next
    Me!q.Height = 567 * 1.19 + (567 * (0.555 * UBound(s)))
    End Sub


    A mudança esta no relatório cópia.  Vai trocando de registros e vendo a alteração.

    Aguardamos


    Última edição por Avelino Sampaio em 22/2/2014, 21:38, editado 1 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como  ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados Empty Re: [Resolvido]Como ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados

    Mensagem  Silvio 22/2/2014, 21:31

    Avelino, vou testar ele ainda hoje.....mas somente vou te responder amanhã....a esposa, quer sair....já viu né !!

    Abraços.....


    .................................................................................
    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."
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Como  ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados Empty Re: [Resolvido]Como ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados

    Mensagem  Avelino Sampaio 22/2/2014, 21:39

    Ok, limpe o evento "ao imprimir" que eu esqueci.

    Até amanhã


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como  ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados Empty Re: [Resolvido]Como ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados

    Mensagem  Silvio 22/2/2014, 22:30

    Perfeito...perfeito....

    Muito obrigado por essa aula Avelino....vou guardar esse código com carinho.

    Bom fim de semana.

    Abraços


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

    Conteúdo patrocinado


    [Resolvido]Como  ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados Empty Re: [Resolvido]Como ajustar ordenar campos que contem dados em sequencia, sabendo que entre eles há campos sem dados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 19:43