Protege una aplicacion con una fecha
Publicado por José Ant. Pinín (63 intervenciones) el 01/04/2017 18:39:49
Buenas.
Tengo una aplicación que se abre en un formulario. Como puedo hacer para que superada la fecha actual, salga una ventana diciendo que ha superado la fecha de licencia y al hacer clic sobre ACEPTAR se cierre la aplicación.
Tengo este código, para que cuando supera una cantidad de registros aparezca la ventana y me funciona bien, quiero hacer lo mismo pero cuando supero una fecha.
Gracias anticipadas.
Tengo una aplicación que se abre en un formulario. Como puedo hacer para que superada la fecha actual, salga una ventana diciendo que ha superado la fecha de licencia y al hacer clic sobre ACEPTAR se cierre la aplicación.
Tengo este código, para que cuando supera una cantidad de registros aparezca la ventana y me funciona bien, quiero hacer lo mismo pero cuando supero una fecha.
1
2
3
4
5
6
7
Private Sub Form_Current()
If DCount("*", "008 001 T Visitas") > 17500 Then
MsgBox "Pongase en contactro con su Administrador 630923449", vbOKOnly, "Ha superado el número de registros"
Me.Undo
DoCmd.Quit
End If
End Sub
Gracias anticipadas.
Valora esta pregunta


0