Início![[Resolvido]Bloquear subForm do Menu no Exemplo SysBase Empty](https://2img.net/i/empty.gif)
Convidado 19/2/2013, 00:42Para o Colega Assis.
No eventos ao carregar:
If Date > #12/31/2012# Then
Me.Sm3.Enabled = False
Else
Me.Sm3.Enabled = True
End If
No eventos ao carregar:
If Date > #12/31/2012# Then
Me.Sm3.Enabled = False
Else
Me.Sm3.Enabled = True
End If
[Resolvido]Bloquear subForm do Menu no Exemplo SysBase
Convidado- Convidado
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Harry
Ficou assim num Modulo
Public Function Desabilita()
On Error Resume Next
'Mês/Dia/Ano
If Date >= #12/31/2015# Then
Forms![zMainMenu]!Sm3.Enabled = False
Else
Forms![zMainMenu]!Sm3.Enabled = True
End If
End Function
Assim dá para chamar em qualquer Form.
Call Desabilita
Obrigado
Ficou assim num Modulo
Public Function Desabilita()
On Error Resume Next
'Mês/Dia/Ano
If Date >= #12/31/2015# Then
Forms![zMainMenu]!Sm3.Enabled = False
Else
Forms![zMainMenu]!Sm3.Enabled = True
End If
End Function
Assim dá para chamar em qualquer Form.
Call Desabilita
Obrigado
.................................................................................
*** Só sei que nada sei ***
Convidado- Convidado
O Fórum agradece o Retorno.
Bom trabalho.
Bom trabalho.
Conteúdo patrocinado