Boa tarde amigos
Porque não funciona no 2013 ?
Obrigado
Private Sub Form_Open(Cancel As Integer)
Dim Minhadata As String 'isto declara a variavel Minhadata
Dim Dia As Date, Mes As Date, Ano As Date 'isto cria a variavel Dia, mes e ano
Dia = 12 'isto especifica até que dia o programa irá funcionar
Mes = 9 'isto especifica ate que mes o prgrama funcionará
Ano = 2003 'e isto especifica até que ano
Minhadata = Dia & "/" & Mes & "/" & Ano
If Date > Minhadata Then
MsgBox "Este programa expirou, contate o administrador para obter o acesso novamente", vbInformation, "Aviso"
DoCmd.Quit
End If
End Sub
Porque não funciona no 2013 ?
Obrigado
Private Sub Form_Open(Cancel As Integer)
Dim Minhadata As String 'isto declara a variavel Minhadata
Dim Dia As Date, Mes As Date, Ano As Date 'isto cria a variavel Dia, mes e ano
Dia = 12 'isto especifica até que dia o programa irá funcionar
Mes = 9 'isto especifica ate que mes o prgrama funcionará
Ano = 2003 'e isto especifica até que ano
Minhadata = Dia & "/" & Mes & "/" & Ano
If Date > Minhadata Then
MsgBox "Este programa expirou, contate o administrador para obter o acesso novamente", vbInformation, "Aviso"
DoCmd.Quit
End If
End Sub