No me funciona una instrucción SQL para filtrar por fecha
Publicado por Karen Rosas (1 intervención) el 22/03/2021 18:15:05
Sucede que me encuentro programando un reporte que me filtre por turno y fecha al mismo tiempo, sin embargo, cuando ejecuto el siguiente código no me funciona, entonces no se si estoy cometiendo un error de sintaxis o algo, agradecería si me pudiesen apoyar.
CABE MENCIONAR QUE CUANDO EJECUTO EL MISMO CÓDIGO ANTERIOR PERO SOLO CON LA instruccion de la siguiente manera, si me carga:
Entonces después de depurarlo varias veces, considero que es la parte del "AND Fecha="......"
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
Private Sub Report_Load()
Dim instruccion As String
Dim intTurno As Integer
If Time() >= #6:00:00 AM# And Time < #2:00:00 PM# Then
intTurno = 1Me.txtFecha = FormatDateTime(Date, vbShortDate)
ElseIf Time() >= #2:00:00 PM# And Time < #10:00:00 PM# Then
intTurno = 2Me.txtFecha = FormatDateTime(Date, vbShortDate)
ElseIf Time() >= #10:00:00 PM# And Time <= #11:59:59 PM# Then
intTurno = 3Me.txtFecha = FormatDateTime(Date, vbShortDate)
ElseIf Time() >= #12:00:00 AM# And Time < #6:00:00 AM# Then
intTurno = 3Me.txtFecha = Date - 1
End If
Me.txtTurno = intTurno
instruccion = "SELECT area,Material,Maquina,Turno,Fecha FROM Checklist_P1 WHERE Turno =" & intTurno & " AND Fecha=" & Format(Date, "dd/MM/yyyy") & ""
Me.lst_PRE1.RowSource = instruccion
End Sub
CABE MENCIONAR QUE CUANDO EJECUTO EL MISMO CÓDIGO ANTERIOR PERO SOLO CON LA instruccion de la siguiente manera, si me carga:
1
instruccion = "SELECT area,Material,Maquina,Turno,Fecha FROM Checklist_P1 WHERE Turno =" & intTurno & ""
Entonces después de depurarlo varias veces, considero que es la parte del "AND Fecha="......"
Valora esta pregunta
0
