[Resolvido]No click de um botão não funciona

Boa tarde

'Um click do comando do botão muda o valor do "DataMenu" para mais.

'Outro click em outro botão muda o valor do "DataMenu" para menos.

If DataMenu <> Date Then
'Se o valor do campo DataMenu for diferente da data do sistema
Me.Comando100.Visible = False
Me.Rótulo99.Visible = False
Me.Comando88.Visible = True
Me.Rótulo101.Visible = True
'até aqui tudo bem funciona, mas quando o dataMenu volta ser igual a data do sistema
Else
'Se o valor do campo DataMenu for igual a data do sistema
Me.Comando100.Visible = True
Me.Rótulo99.Visible = True
Me.Comando88.Visible = False
Me.Rótulo101.Visible = False

End If

Obrigado

Boa tarde, Assis
Tens de ver qual o valor assumido. Pode ser nulo e passar à frente das duas condições

Boa tarde Alexandre

O Campo DataMenu tem por exemplo a data de hoje 03-05-2013

Ao fazer click no botão para mais faz isto:

Me.DataMenu = Format(DateAdd("M", 1, DataMenu), "dd/mm/yyyy")
Passa para 03-06-2013.

Ao fazer click no botão para menos faz isto:

Me.DataMenu = Format(DateAdd("M", -1, DataMenu), "dd/mm/yyyy")

Passa para 03-05-2013.

Era aqui que escondia ou não os comando ou rótulos...

Obrigado

Tens de confirmar o valor do controlo. Para ver melhor, só com a bd

Obrigado Alexandre

Irei ver depois do jantar, mas os nomes dos controlos continuam a não estar padronizados o que não ajuda.
Até já

Assis,
É preciso tantos controlos para mostrar "Alterar Data" e "Data Actual"?
Não bastaria um rótulo?

Alexandre

Pode ser

Obrigado

Assis,
Adaptei mas, ao abrir, dá erro que está escondido nalgum sítio que não encontrei por ter controlos a mais, com nomes de controlos parecidos com nomes de variáveis, etc
Vê como um único rótulo dá para controlar o texto e a cor do rótulo

Obrigado Alexandre

Bom fim de semana