Parámetros de fechas para informe
Publicado por Daniela Briñez (5 intervenciones) el 29/07/2016 22:41:51
Buenas tardes amigos.
Tengo un informe que genero entre dos rangos de fechas, por ejemplo desde (01/06/2016 hasta 30/06/2016, idea es que el procedimiento sea confiable es decir que se pueda antes de generar el informe entre el rango de fechas seleccionado, se pueda validar:
1. Que no queden vacías las dos cajas de texto
2. Que una caja de texto esté vacía
3. Que ninguna de las dos fechas sea superior al día de hoy
4. Que la fecha final no sea inferior a la fecha inicial etc....
Para ello he construido el siguiente código, al dar clic, pero no me deja pasar, se queda en "NINGUNA FECHA PUEDE SER SUPERIOR A LA ACTUAL"
Por favor solicito de su sapiencia, ya que me quedé estancada.
Estas son las líneas:
Muy amables por su ayuda.
Tengo un informe que genero entre dos rangos de fechas, por ejemplo desde (01/06/2016 hasta 30/06/2016, idea es que el procedimiento sea confiable es decir que se pueda antes de generar el informe entre el rango de fechas seleccionado, se pueda validar:
1. Que no queden vacías las dos cajas de texto
2. Que una caja de texto esté vacía
3. Que ninguna de las dos fechas sea superior al día de hoy
4. Que la fecha final no sea inferior a la fecha inicial etc....
Para ello he construido el siguiente código, al dar clic, pero no me deja pasar, se queda en "NINGUNA FECHA PUEDE SER SUPERIOR A LA ACTUAL"
Por favor solicito de su sapiencia, ya que me quedé estancada.
Estas son las líneas:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub VER_INFORME_Click()
DoCmd.SetWarnings False
If IsNull(cboFechaDesde) And IsNull(cboFechaHasta) Then
MsgBox "ESTABLEZCA AMBAS FECHAS, PARA PRESENTAR EL INFORME.", 0, "ATENCION"
cboFechaDesde.BackColor = vbYellow
cboFechaHasta.BackColor = vbYellow
cboFechaDesde.SetFocus
Exit Sub
Else
If IsNull(cboFechaDesde) Or IsNull(cboFechaHasta) Then
MsgBox "FALTA UNA FECHA POR ESTABLECER.", 0, "ATENCION"
Exit Sub
End If
End If
If cboFechaDesde > cboFechaHasta Then
MsgBox "¡¡ ATENCIÓN !! EROR EN FECHAS - LA FECHA 'Desde' NO PUEDE SER SUPERIOR A LA FECHA 'Hasta'.", 0, "ATENCIÓN"
Exit sub
End if
If cboFechaDesde > Now() Or cboFechaHasta > Now() Then
MsgBox "NINGUNA FECHA PUEDE SER SUPERIOR A LA ACTUAL.", 0, "ATENCIÓN"
Exit Sub
End If
If cboFechaHasta < cboFechaDesde Then
MsgBox "¡¡ ATENCIÓN !! EROR EN FECHAS - LA FECHA 'Hasta' NO PUEDE SER INFERIOR A LA FECHA 'Desde'.", 0, "ATENCIÓN"
Exit Sub
End If
On Error GoTo Err_VER_INFORME_Click
Dim stDocName As String
stDocName = "CUENTRAS"
DoCmd.RunMacro stDocName
DoCmd.Close acForm, "frmMain"
Exit_VER_INFORME_Click:
Exit Sub
Err_VER_INFORME_Click:
MsgBox Err.Description
Resume Exit_VER_INFORME_Click
DoCmd.SetWarnings True
End Sub
Muy amables por su ayuda.
Valora esta pregunta
0