[Resolvido]Botao Ativado

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


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

resolvido aqui