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]Mudar cor da fonte campo texto subformulario

    Compartilhe

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 13/10/2011

    [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  ifahidalgo em 25/5/2018, 19:08

    tenho um formulário com subformulário onde tenho uma campo que pega a data atual e faço uma condição abaixo

    no evento load do form principal

    txtdataatual = Now()
    compdata = CDate(txtdataatual - 10)
    If (dataabertura <= compdata) And (status = "ABERTO") Then
    Me!numeroOS.ForeColor = vbRed
    Me!cmbtipo.ForeColor = vbRed
    Me!dataabertura.ForeColor = vbRed
    Me!datafechamento.ForeColor = vbRed
    Me!cmbdesignacao.ForeColor = vbRed
    Me!txtlocal.ForeColor = vbRed
    Me!servico.ForeColor = vbRed
    Me!observacao.ForeColor = vbRed
    Me!cmbsituacao.ForeColor = vbRed
    Me!cmbgrauprioridade.ForeColor = vbRed
    Me!status.ForeColor = vbRed
    'Me.subFrmOSPrincipal.Requery
    MsgBox "OS em detalhe vermelho com atraso no atendimento.", vbInformation, "Tempo de Atendimento!"
    End If

    esses campos são do subformulario, nessa condição preciso que o registro que está nessa condição do IF, a fonte fique vermelha.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  Silvio em 25/5/2018, 19:25

    Boa tarde...

    Quais campos são do formulário principal e quais campos são do sub ?


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 13/10/2011

    Re: [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  ifahidalgo em 25/5/2018, 19:28

    os que estão dentro do if são todos do sub form e tambem o dataabertura e status

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 13/10/2011

    Re: [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  ifahidalgo em 25/5/2018, 19:31

    o sistema é de OS, e o objetivo é quando abrir o formulario, onde tem um subformulario, com os dados das OS. A OS que está com data muito antiga entra nessa condição.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  Silvio em 25/5/2018, 19:32

    Forms!NomeFormPrincipal!nomeSubformulario!numeroOS.ForeColor = vbRed


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  Assis em 25/5/2018, 19:35

    Boa tarde

    O código Now(), não devolve a Data, 25-05-2018

    Mas sim a Data e Hora 25-05-2018 19:35:00


    .................................................................................
    *** Só sei que nada sei ***

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 13/10/2011

    Re: [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  ifahidalgo em 29/5/2018, 12:06

    alterei para Date para pegar a data. mas continuo sem conseguir colocar a fonte em vermelha.


    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 13/10/2011

    Re: [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  ifahidalgo em 29/5/2018, 12:07

    no formulario principal no evento load estou colocando o seguinte

    txtdataatual = Date
    compdata = CDate(txtdataatual - 10)

    If (Forms!frmPrincipal!subFrmOSPrincipal!dataabertura <= compdata) And (Forms!frmPrincipal!subFrmOSPrincipal!status = "ABERTO") Then
    Forms!frmPrincipal!subFrmOSPrincipal!numeroOS.ForeColor = 3
    Forms!frmPrincipal!subFrmOSPrincipal!cmbtipo.ForeColor = 3
    Forms!frmPrincipal!subFrmOSPrincipal!dataabertura.ForeColor = 3
    Forms!frmPrincipal!subFrmOSPrincipal!datafechamento.ForeColor = 3
    Forms!frmPrincipal!subFrmOSPrincipal!cmbdesignacao.ForeColor = 3
    Forms!frmPrincipal!subFrmOSPrincipal!txtlocal.ForeColor = 3
    Forms!frmPrincipal!subFrmOSPrincipal!servico.ForeColor = 3
    Forms!frmPrincipal!subFrmOSPrincipal!observacao.ForeColor = 3
    Forms!frmPrincipal!subFrmOSPrincipal!cmbsituacao.ForeColor = 3
    Forms!frmPrincipal!subFrmOSPrincipal!cmbgrauprioridade.ForeColor = 3
    Forms!frmPrincipal!subFrmOSPrincipal!status.ForeColor = 3

    MsgBox "OS em detalhe vermelho com atraso no atendimento.", vbInformation, "Tempo de Atendimento!"
    End If
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  Assis em 29/5/2018, 12:39

    Ivan

    Se postar (só) essa parte da sua BD facilita quem quer ajudar, e pode ter sorte quem necessita da ajuda.


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  Silvio em 29/5/2018, 13:00

    Coloque o evento no Atual.

    Mude de ForeColor para BackColor.

    Em tempo, o fundo das caixas de textos não podem ser transparentes, tem que ser sólido.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 13/10/2011

    Re: [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  ifahidalgo em 29/5/2018, 13:20

    fiz o evento no formulario principal, chega a entrar no msgbox

    Private Sub Form_Current()
    txtdataatual = Date
    compdata = CDate(txtdataatual - 10)

    If (Forms!frmPrincipal!subFrmOSPrincipal!dataabertura <= compdata) And (Forms!frmPrincipal!subFrmOSPrincipal!status = "ABERTO") Then
    Forms!frmPrincipal!subFrmOSPrincipal!numeroOS.BackColor = vbRed
    Forms!frmPrincipal!subFrmOSPrincipal!cmbtipo.BackColor = vbRed
    Forms!frmPrincipal!subFrmOSPrincipal!dataabertura.BackColor = vbRed
    Forms!frmPrincipal!subFrmOSPrincipal!datafechamento.BackColor = vbRed
    Forms!frmPrincipal!subFrmOSPrincipal!cmbdesignacao.BackColor = vbRed
    Forms!frmPrincipal!subFrmOSPrincipal!txtlocal.BackColor = vbRed
    Forms!frmPrincipal!subFrmOSPrincipal!servico.BackColor = vbRed
    Forms!frmPrincipal!subFrmOSPrincipal!observacao.BackColor = vbRed
    Forms!frmPrincipal!subFrmOSPrincipal!cmbsituacao.BackColor = vbRed
    Forms!frmPrincipal!subFrmOSPrincipal!cmbgrauprioridade.BackColor = vbRed
    Forms!frmPrincipal!subFrmOSPrincipal!status.BackColor = vbRed

    MsgBox "OS em detalhe vermelho com atraso no atendimento.", vbInformation, "Tempo de Atendimento!"
    End If
    End Sub
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  Silvio em 29/5/2018, 14:20

    Mas resolveu ?


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 13/10/2011

    Re: [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  ifahidalgo em 29/5/2018, 15:51

    Não resolveu, ele entra no if mas não pinta os campos, seguindo as informações.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  Silvio em 29/5/2018, 18:21

    Veja a mensagem de numero nove do amigo Assis..... siga ela.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 13/10/2011

    Re: [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  ifahidalgo em 29/5/2018, 19:10

    Segue o arquivo para analise, o formulario é o frmPrincipal.
    Anexos
    SysManutencao.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (409 Kb) Baixado 7 vez(es)
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  Assis em 29/5/2018, 19:37

    Silvio

    O subformulário é do tipo folha de dados.

    Alterei para formulário continuo e.....



    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  Silvio em 29/5/2018, 19:59

    Nobre Assis, show de bola....nunca íamos " adivinhar " que era folha de dados.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 13/10/2011

    Re: [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  ifahidalgo em 29/5/2018, 21:48

    Como Fazer para ficar com a aparência de folha de dados (excel)

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 13/10/2011

    Re: [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  ifahidalgo em 29/5/2018, 21:53

    troquei aqui também para formulário continuo mas, preciso que fique com a aparência de folha de dados.
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  Assis em 29/5/2018, 23:17

    Boa noite

    Se precisa como folha de dados é como está naquele que postou na mensagem 15.

    Nas propriedades do formulário altere como mostra a imagem


    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    *** Só sei que nada sei ***

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 13/10/2011

    Re: [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  ifahidalgo em 30/5/2018, 00:12

    sim eu entendi. mas preciso que fique a formatação de cores, mas como folha de dados, até mesmo pq o sistema e de Abertura de OS, e configurado como formulario continuo não fica usual.

    estou tentando fazer pela formatação condicional. até consegui que print um campo de vermelho com a condição da data, mas tambem preciso que a OS esteja com o status aberto.

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 13/10/2011

    Re: [Resolvido]Mudar cor da fonte campo texto subformulario

    Mensagem  ifahidalgo em 30/5/2018, 00:30

    acabei de conseguir com a formatação condicional, muito obrigado pelas ajudas.


    ([dataabertura] <= Formulários![frmprincipal]![txtcompdata] ) and ( [status] = ABERTO)


    e funcionou.

      Data/hora atual: 19/8/2018, 00:33