Cambio de Fecha Setup
Publicado por T O N Y (40 intervenciones) el 19/03/2014 21:53:44
Hola: estoy desarrollando una rutina en VB, es para cuando a una aplicacion le programa una fecha limite de trabajo, pero los usuario para seguir trabajando le cambian la fecha al setup y puede continuar como si nada, esta es la rutina que estoy haciendo:
Pero reulta que la hora mayor cuando es el mismo dia, ( en el primer If), no me la trae de la base, porque sera? alguien puede ayudarme.-
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
DoCmd.GoToRecord , , acNewRec
FechaE = DateHoraE = TimeUsuario = CurrentUser()
Texto21 = DMax("[FechaE]", "Menu", "[Id]>1")
If FechaE = Texto21 ThenTexto23 = DMax("[HoraE]", "Menu", "[FechaE]=" & Forms![Menu].[Texto21])
End If
If FechaE = Texto21 And HoraE < Texto23 Then
MsgBox "Hora alterada en orden, las bases se bloqueran para seguridad", vbCritical
'DoCmd.Quit
End If
If FechaE < Texto21 ThenMsgBox "Fecha alterada en orden, las bases se bloqueran para seguridad", vbCritical
'DoCmd.Quit
End If
Pero reulta que la hora mayor cuando es el mismo dia, ( en el primer If), no me la trae de la base, porque sera? alguien puede ayudarme.-
Valora esta pregunta
0
