Salu2. me vas a perdonar pero tu código me tiene en la luna. yo pienso que está mal hecho, pero solo es una opinión,
.
=======================
Primero declaras como string yy le metes una SELECT
Y luego lo comparas con un campo FECHA¿?, toy en el aire lo siento.
Dim Rango As String
Rango = "Select * From MASIVOS Where (Fecha>=" & "'" & DTPickFechaDesde & "'"
Rango = Rango & " And Fecha<='" & DTPickFechaHasta & "')"
If Rango = RsMasivos!Fecha Then
osea, si select patatin = a fecha, no coincidira nunca.
=======================
Si habres una taba conrestricciones se supone que solo coge lo que tu le has dicho, tu problema no lo veo.
Ya me perdonarás pero tendras que explicarte mejor.
A ver si este código te acara algo:
=============================
Set BasePrincipal = OpenDatabase(PathDeBase)
ValStr = "SELECT * FROM Citas WHERE (Fecha>=" & "'" & FechaIni & "'"
ValStr = ValStr & " And Fecha<='" & FechaFin & "')"
If GNCli <> 0 Then
ValStr = ValStr & " And IdCliente=" & DameInt(Mid$(Clientes.Text, (Len(Clientes.Text) - 3)))
End If
ValStr = ValStr & " ORDER BY Fecha;"
Set AbreTabla = BasePrincipal.OpenRecordset(ValStr, dbOpenDynaset, dbReadOnly)
If AbreTabla.EOF Then
AbreTabla.Close
BasePrincipal.Close
PulsaS 0, "No tiene trabajos realizados entre las fechas introducidas", "0 TRABAJOS", vbInformation
Exit Function
End If
Tabla1.Redraw = False
AbreTabla.MoveFirst
While Not AbreTabla.EOF
Tabla1.Rows = (Tabla1.Rows + 1)
Tabla1.Row = (Tabla1.Rows - 1)
Tabla1.TextMatrix(Tabla1.Row, 0) = "" & AbreTabla!Trabajo
Tabla1.TextMatrix(Tabla1.Row, 1) = "" & GiraFecha(AbreTabla!Fecha, 4)
Tabla1.TextMatrix(Tabla1.Row, 2) = "" & Mid$(AbreTabla!HoraI, 1, 2) & ":" & _
Mid$(AbreTabla!HoraI, (Len(AbreTabla!HoraI) - 1))
Tabla1.TextMatrix(Tabla1.Row, 3) = "" & Mid$(AbreTabla!HoraF, 1, 2) & ":" & _
Mid$(AbreTabla!HoraF, (Len(AbreTabla!HoraF) - 1))
Tabla1.TextMatrix(Tabla1.Row, 4) = "" & AbreTabla!Precio
If AbreTabla!cobrado = 0 Then
Tabla1.TextMatrix(Tabla1.Row, 5) = "No"
Tabla1.Col = 5
Tabla1.CellBackColor = &H80& 'blanco -2147483643
Else
Tabla1.TextMatrix(Tabla1.Row, 5) = "Si"
Tabla1.Col = 5
Tabla1.CellBackColor = 90 * QBColor(10)
End If
Tabla1.TextMatrix(Tabla1.Row, 6) = "" & AbreTabla!IdCliente
Tabla1.TextMatrix(Tabla1.Row, 7) = "" & AbreTabla!IdCita
AbreTabla.MoveNext
Wend
============================================