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

    Compartilhe

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [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

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

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

    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


    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Botao Ativado

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

    resolvido aqui

      Data/hora atual: 22/10/2018, 20:11