MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Cor da linha zebrada em relatorio

    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Cor da linha zebrada em relatorio Empty Cor da linha zebrada em relatorio

    Mensagem  HARYSOHN em 4/5/2011, 22:59

    tenho um codigo que aplica uma linha zebrada no relatorio..
    A cor e essa: Const COR_CINZA = &HDFDFDF

    Tem uma cor mais clara que esta...??

    Se puderem ajudar.. Agradeco
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Cor da linha zebrada em relatorio Empty Re: [Resolvido]Cor da linha zebrada em relatorio

    Mensagem  HARYSOHN em 4/5/2011, 23:02

    Codigo completo

    Dim fCinza As Integer

    Private Sub PreencheCinza()
    Const COR_CINZA = &HDFDFDF
    Const SM_TWIPS = 0
    Const DS_INVISIBLE = 5
    If fCinza Then
    Me.ScaleMode = SM_TWIPS
    Me.DrawStyle = DS_INVISIBLE
    Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), COR_CINZA, BF
    End If
    fCinza = Not fCinza
    End Sub
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Cor da linha zebrada em relatorio Empty Re: [Resolvido]Cor da linha zebrada em relatorio

    Mensagem  vieirasoft em 4/5/2011, 23:10

    Tente assim e altere a cor

    Option Compare Database
    Const vbLightGrey = 12632256

    Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
    If Me.CurrentRecord Mod 2 = 0 Then
    Me.Section(acDetail).BackColor = vbLightGrey
    Else
    Me.Section(acDetail).BackColor = vbWhite
    End If

    End Sub
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Cor da linha zebrada em relatorio Empty Re: [Resolvido]Cor da linha zebrada em relatorio

    Mensagem  HARYSOHN em 4/5/2011, 23:26

    Eu substituo aquele codigo por esse?
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Cor da linha zebrada em relatorio Empty Re: [Resolvido]Cor da linha zebrada em relatorio

    Mensagem  HARYSOHN em 4/5/2011, 23:29

    Substitui, nao funcionou
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Cor da linha zebrada em relatorio Empty Re: [Resolvido]Cor da linha zebrada em relatorio

    Mensagem  vieirasoft em 4/5/2011, 23:30

    Sim, experimente com esse que eu lhe enviei. Substitua a cor, veja o nº da cor escolhida através do próprio formulário. Por exemplo quer amarelo, crie um form sem dados e defina a cor de fundo para amarelo, vai dar 2123333 por exemplo. Substitua no cóxigo por Yellow e pelo nº da cor.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Cor da linha zebrada em relatorio Empty Re: [Resolvido]Cor da linha zebrada em relatorio

    Mensagem  HARYSOHN em 5/5/2011, 00:39

    Amigo Vieira o seu codigo funcionou, mas no acces 2007 as cores do form, nao aparecem em numeros como esta no seu codigo..

    Aparece assim: #5C83B4
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Cor da linha zebrada em relatorio Empty Re: [Resolvido]Cor da linha zebrada em relatorio

    Mensagem  vieirasoft em 5/5/2011, 00:41

    Desde que funcione, sabes que eu aqui trabalho com o xp. Funcionou no 2007 com essa alteração?
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Cor da linha zebrada em relatorio Empty Re: [Resolvido]Cor da linha zebrada em relatorio

    Mensagem  HARYSOHN em 5/5/2011, 00:44

    seu codigo funcionou... mas os numeros das cores nao sao todos numericos no 2007... sao diferentes...

    se puder ver um numero ai para mim.. um mais claro...

    Agradeco
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Cor da linha zebrada em relatorio Empty Re: [Resolvido]Cor da linha zebrada em relatorio

    Mensagem  vieirasoft em 5/5/2011, 00:48

    Porque não fazes como eu sugeri através de um form sem dados, copias o código alfanumérico.
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Cor da linha zebrada em relatorio Empty Re: [Resolvido]Cor da linha zebrada em relatorio

    Mensagem  vieirasoft em 5/5/2011, 00:58

    Esqueci, mas sabes de certeza- na aba propriedades se definires a cor e fundo de u form aparece o código da cor, certo.
    avatar
    ssporch
    Novato
    Novato

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 19/10/2010

    [Resolvido]Cor da linha zebrada em relatorio Empty Onde coloco este código???

    Mensagem  ssporch em 26/2/2019, 15:21

    Prezado Vieira,

    Em qual evento eu coloco o código sugerido por você?
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Cor da linha zebrada em relatorio Empty Re: [Resolvido]Cor da linha zebrada em relatorio

    Mensagem  vieirasoft em 26/2/2019, 20:38

    Clique sobre a secção "Detalhe" do form, vá à aba "Tudo", localize cor de fundo. Abra a palete e escolha a cor que deseja. Abraço
    avatar
    ssporch
    Novato
    Novato

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 19/10/2010

    [Resolvido]Cor da linha zebrada em relatorio Empty Deu certo!!!

    Mensagem  ssporch em 26/2/2019, 20:46

    Prezado Vieira,

    Sua instrução funcionou!

    Muito obrigado!

    Creio que podemos dar por resolvido!

    Um abraço,

    Sérgio Sporch
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Cor da linha zebrada em relatorio Empty Re: [Resolvido]Cor da linha zebrada em relatorio

    Mensagem  vieirasoft em 26/2/2019, 20:58

    Fico muito feliz por o ter ajudado. Bom trabalho.

    Conteúdo patrocinado

    [Resolvido]Cor da linha zebrada em relatorio Empty Re: [Resolvido]Cor da linha zebrada em relatorio

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/6/2019, 14:06