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]Cor da linha zebrada em relatorio

    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 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 : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 4/5/2011, 23:26

    Eu substituo aquele codigo por esse?
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 4/5/2011, 23:29

    Substitui, nao funcionou
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 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.
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 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 : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 5/5/2011, 00:41

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


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

    Mensagem  Convidado 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 : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 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 : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 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
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 75%

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

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

    Mensagem  ssporch 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 : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 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
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 75%

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

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

    Mensagem  ssporch 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 : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 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: 27/4/2024, 03:58