MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [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 Qua 04 Maio 2011, 6:59 pm

    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 Qua 04 Maio 2011, 7:02 pm

    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 Qua 04 Maio 2011, 7:10 pm

    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 Qua 04 Maio 2011, 7:26 pm

    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 Qua 04 Maio 2011, 7:29 pm

    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 Qua 04 Maio 2011, 7:30 pm

    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 Qua 04 Maio 2011, 8:39 pm

    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 Qua 04 Maio 2011, 8:41 pm

    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 Qua 04 Maio 2011, 8:44 pm

    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 Qua 04 Maio 2011, 8:48 pm

    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 Qua 04 Maio 2011, 8:58 pm

    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 : 48
    Registrado : 19/10/2010

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

    Mensagem  ssporch em Ter 26 Fev 2019, 12:21 pm

    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 Ter 26 Fev 2019, 5:38 pm

    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 : 48
    Registrado : 19/10/2010

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

    Mensagem  ssporch em Ter 26 Fev 2019, 5:46 pm

    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 Ter 26 Fev 2019, 5:58 pm

    Fico muito feliz por o ter ajudado. Bom trabalho.

      Data/hora atual: Dom 12 Jul 2020, 10:26 am