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]Botao Ativado

    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 375
    Registrado : 05/03/2017

    [Resolvido]Botao Ativado Empty [Resolvido]Botao Ativado

    Mensagem  fazerbem em 1/6/2018, 21:37

    Tenho este comando abaixo, de inicio o Botao de Alternancia e branco em False e Azul em True

    AO Final da Macro ele teria que se desativar e ficar branco novamente, se o campo Val1=Vazio

    Que falta aqui ?

    Andre

    Código:

    Private Sub A1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If IsNull(Val1) Then
    MsgBox ("Campo Validade é NULO !")
    A1=False
    End If
    End Sub
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 375
    Registrado : 05/03/2017

    [Resolvido]Botao Ativado Empty Re: [Resolvido]Botao Ativado

    Mensagem  fazerbem em 1/6/2018, 23:04

    Fiz assim e funcionou aqui, talvez nao tenha sido a melhor forma mas ao usar Enabled=False ele retorna para a cor branca e ao saur de novo Eanbled=True eele novamente habilita o botao desta vez na cor branca que e o que eu quero.

    Ja tinha tentado fazer mudando a cor mas nao mudava.
    Tentei tb usar Me.Reflesh tb sem sucesso. Porem se eu desse Alt F5 o botao ficava branco. Bem o que importa e o resultado, quem nao tem cao caça com gato mesmo.

    A1.BackColor = &H80000005& - nao funciona
    somente A1=False tb nao funciona, so se der Alt F5
    Me.Reflesh tb nao

    Se tiverem outra forma melhor me avisa aqui

    Código:


    Private Sub A1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If IsNull(Val1) Then
    MsgBox ("Campo Validade é NULO !")
    A1.Enabled = False
    A1.Enabled = True
    End If
    End Sub


    Andre

    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 375
    Registrado : 05/03/2017

    [Resolvido]Botao Ativado Empty Re: [Resolvido]Botao Ativado

    Mensagem  fazerbem em 3/6/2018, 16:21

    resolvido aqui

    Conteúdo patrocinado

    [Resolvido]Botao Ativado Empty Re: [Resolvido]Botao Ativado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/5/2019, 14:16