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]Campo Valiação com cor

    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 20/08/2014

    [Resolvido]Campo Valiação com cor Empty [Resolvido]Campo Valiação com cor

    Mensagem  cacorei09 em 7/3/2020, 20:18

    Boa Tarde Amigos deste Forum.

    Fiz um comando no botão Gravar para validação dos campos, só que gostaria que, quando o campo estivesse vazio, o mesmo ficasse, por exemplo, "vermelho"também e após salvar voltar a cor padrão.

    Já procurei e não consegui encontrar nada parecido


    Private Sub btnGravar_Click()

    If IsNull(Me.NomeDoProduto) Or Me.NomeDoProduto.value = "" Then

    MsgBox "O campo ""Nome do Produto"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
    Me.NomeDoProduto.SetFocus

    DoCmd.CancelEvent
    End
    End If
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1465
    Registrado : 23/01/2018

    [Resolvido]Campo Valiação com cor Empty Re: [Resolvido]Campo Valiação com cor

    Mensagem  crysostomo em 8/3/2020, 20:47

    Código:
    If IsNull(Me.NomeDoProduto)  Then
    MsgBox "o campo  é obrigatório.", vbCritical, "Aviso"
    Me.NomeDoProduto.SetFocus
    Me.Me.NomeDoProduto.BackColor = 646464


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 20/08/2014

    [Resolvido]Campo Valiação com cor Empty Campo Valiação com cor

    Mensagem  cacorei09 em 8/3/2020, 22:30

    Amigo Crys:


    Show, mas quando vou "gravar", a cor permanece, mesmo após preencher o campo em questão.

    Gostaria de quando gravar, o campo ficasse com a cor normal....


    Última edição por cacorei09 em 8/3/2020, 22:47, editado 1 vez(es)
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1465
    Registrado : 23/01/2018

    [Resolvido]Campo Valiação com cor Empty Re: [Resolvido]Campo Valiação com cor

    Mensagem  crysostomo em 8/3/2020, 22:36

    Quando salvar coloca depois para blackclor white
    Doc.save
    Me.nomeDoProduto.blackColor= white


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 20/08/2014

    [Resolvido]Campo Valiação com cor Empty Campo Valiação com cor

    Mensagem  cacorei09 em 8/3/2020, 22:54

    Crys;

    Coloquei o comando que você falou e está retornando a cor preta quando salvo;
    Já coloquei depois do refresh, depois que salva ....


    Private Sub btnGravar_Click()

    If IsNull(Me.NomeFabricante) Or Me.NomeFabricante.value = "" Then


    MsgBox "O campo ""Classe"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
    Me.NomeFabricante.SetFocus
    Me.NomeFabricante.BackColor = 6464664

    DoCmd.CancelEvent

    Exit Sub

    End If

    Me.NomeFabricante.BackColor = white

    Me.Refresh

    DoCmd.GoToRecord , , acNewRec

    End Sub
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1465
    Registrado : 23/01/2018

    [Resolvido]Campo Valiação com cor Empty Re: [Resolvido]Campo Valiação com cor

    Mensagem  crysostomo em 8/3/2020, 23:15

    Como vc está salvando ele?
    If isnull(me.nomeDoProduto)Then
       Me.nomeDoProduto.blackaColor= 255
    Else
       Me.nomeDoProduto.blackColor=vbwhite
    Docmd.Sve


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 20/08/2014

    [Resolvido]Campo Valiação com cor Empty Campo Valiação com cor

    Mensagem  cacorei09 em 8/3/2020, 23:19

    Obrigado amigo Crys....

    Funcionou e ficou assim:


    Private Sub btnGravar_Click()

    If IsNull(Me.NomeFabricante) Or Me.NomeFabricante.value = "" Then

    MsgBox "O campo ""Classe"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"

    Me.NomeFabricante.SetFocus
    Me.NomeFabricante.BackColor = 646464

    DoCmd.CancelEvent

    Exit Sub

    End If

    Me.NomeFabricante.BackColor = vbWhite
    DoCmd.Save

    Me.Refresh

    DoCmd.GoToRecord , , acNewRec

    End Sub
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1465
    Registrado : 23/01/2018

    [Resolvido]Campo Valiação com cor Empty Re: [Resolvido]Campo Valiação com cor

    Mensagem  crysostomo em 9/3/2020, 01:18

    Show.
    Sucesso no projeto.
    Não deixa de colocar o tópico como resolvido.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 2/12/2020, 15:32