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 Sex 25 Maio 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 : 3923
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Sex 25 Maio 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 Sex 25 Maio 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 Sex 25 Maio 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 : 3923
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Sex 25 Maio 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 : 3430
    Registrado : 06/11/2009

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

    Mensagem  Assis em Sex 25 Maio 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 Ter 29 Maio 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 Ter 29 Maio 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 : 3430
    Registrado : 06/11/2009

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

    Mensagem  Assis em Ter 29 Maio 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 : 3923
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Ter 29 Maio 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 Ter 29 Maio 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 : 3923
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Ter 29 Maio 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 Ter 29 Maio 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 : 3923
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Ter 29 Maio 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 Ter 29 Maio 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 : 3430
    Registrado : 06/11/2009

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

    Mensagem  Assis em Ter 29 Maio 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 : 3923
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Ter 29 Maio 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 Ter 29 Maio 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 Ter 29 Maio 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 : 3430
    Registrado : 06/11/2009

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

    Mensagem  Assis em Ter 29 Maio 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 Qua 30 Maio 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 Qua 30 Maio 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: Qua 20 Jun 2018, 12:42