[Resolvido]Adaptação código JPaulo

Mestre

Com certeza recorda-se deste exemplo que me enviou à uns tempos. Estou agora a tentar adapta-lo às minhas necessidades, mas não consigo achar o código certo para fazer o que pretendo. Tinha feito a opção de 5 processos e a aplicação bloqueava, mas agora acho que a opção abaixo era mais elegante.

Private Sub Calendar2_AfterUpdate()
Me.txtDataCompromisso.Value = Me.Calendar2.Value

End Sub

Private Sub Form_Current()
Dim x As String
Dim y As String
x = Nz(Me.DataCompromisso, 0) - Date
y = "Esta é uma Versão experimental, faltam" & " " & x & " " & "dia(s) para terminar."
If Date > Me.DataCompromisso.Value Or IsNull(Me.DataCompromisso) Then
Me.lblInforma.Caption = ""
Else
Me.lblInforma.Caption = y
End If
End Sub

Entre várias coisas esta foi a última e não funciona
Botão de comando
If Me.txtDataCompromisso.Value = Me.Calendar2.Value Then
DoCmd.Close
DoCmd.OpenForm "frmactivação"
Else
DoCmd.Close
DoCmd.OpenForm "INICIAL"
End If
A Caixa compromisso foi marcada com a data de hoje.

Agradeço a sua ajuda

Gostaria de o ajudar, mas para isso teria de perceber o que pretende, e não percebi.

Mestre

Inicialmente quando lhe pedi aquele exemplo de contagem decrescente em data não era para efectuar o que estou a fazer agora. O que estou tentando agora:

Peguei no seu código e resolvi adaptá-lo para o seguinte:

30 dias após o utilizador experimentar a aplicação esta avisa que terminou o prazo de avaliação:

x = Nz(Me.DataCompromisso, 0) - Date
y = "Esta é uma Versão experimental, faltam" & " " & x & " " & "dia(s) para terminar

Já consegui através deste forma que o form executa-se quase tudo o que eu queria:
Private Sub Form_Timer()
If Me.txtDataCompromisso.Value = Date Then
Me.lblInforma1.Visible = True
Me.lblInforma.Visible = False
Me.lblInforma1.Caption = "Terminou a versão demo"
DoCmd.Close
DoCmd.OpenForm "frmactivação"
Else
DoCmd.Close
DoCmd.OpenForm "INICIAL"
End If
End Sub

Contudo, o lblInforma1 não obedece ao código e não faz print da caption tem a propriedade visível=False.

Abaixo o código todo do módulo:

Private Sub Calendar2_AfterUpdate()
Me.txtDataCompromisso.Value = Me.Calendar2.Value

End Sub

Private Sub Comando7_Click()
DoCmd.Quit
End Sub

Private Sub Form_Current()
Dim x As String
Dim y As String
x = Nz(Me.DataCompromisso, 0) - Date
y = "Esta é uma Versão experimental, faltam" & " " & x & " " & "dia(s) para terminar."
If Date > Me.DataCompromisso.Value Or IsNull(Me.DataCompromisso) Then
Else
Me.lblInforma.Caption = y
End If
End Sub

Private Sub Form_Timer()
If Me.txtDataCompromisso.Value = Date Then
Me.lblInforma1.Visible = True
Me.lblInforma.Visible = False
Me.lblInforma1.Caption = "Terminou a versão demo"
DoCmd.Close
DoCmd.OpenForm "frmactivação"
Else
DoCmd.Close
DoCmd.OpenForm "INICIAL"
End If
End Sub

Mestre

Já consegui mudando assim:

Dim x As String
Dim y As String
x = Nz(Me.DataCompromisso, 0) - Date
y = "Esta é uma Versão experimental, faltam" & " " & x & " " & "dia(s) para terminar."
If Date > Me.DataCompromisso.Value Or IsNull(Me.DataCompromisso) Then
Me.lblInforma.Caption = y
Else
Me.lblInforma.Caption = "Terminou a versão demo"
End If

Obrigado

Na sala de Repositório de Exemplos você tem vários, é só adapatar.

Veja o:

Demo por Dias

e o:

Demo Informar Serial