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

    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    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 : 1157
    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 : 164
    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 : 1157
    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 : 164
    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 : 1157
    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 : 164
    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 : 1157
    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.

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 5/4/2020, 14:01