06/08/2004, 02:09
|
| | Fecha de Ingreso: junio-2004 Ubicación: Barcelona
Mensajes: 61
Antigüedad: 20 años, 5 meses Puntos: 1 | |
A lo mejor si pruebas a escribirlo asi te funciona, es mas normal, yo siempre lo he hecho asi y funciona, ademas te faltan las comillas en la variable de texto placas, debe quedar mas o menos asi:
Private Sub Comando3_Click()
Dim placas As String
me.ct_desde = format(me.ct_desde, "mm/dd/yyyy")
me.ct_hasta = format(me.ct_hasta, "mm/dd/yyyy")
placas = "GGG555"
Me.RecordSource = "SELECT Repuestos.[Nombre del Repuesto], [Registro de Repuestos].Cantidad, [Registro de Repuestos].Valor FROM Repuestos INNER JOIN ([Registro de Mantenimientos] INNER JOIN [Registro de Repuestos] ON [Registro de Mantenimientos].[Mantenimiento Nº] = [Registro de Repuestos].[Mantenimiento Nº]) ON Repuestos.[Código del Repuesto] = [Registro de Repuestos].[Código del Repuesto] WHERE ((([Registro de Mantenimientos].[Fecha de Inicio del Trabajo])>=#" & ct_desde & "# And ([Registro de Mantenimientos].[Fecha de Inicio del Trabajo]) <= #" & ct_hasta & "# And ([Registro de Mantenimientos].[Placa]) ='" & placas & "'))"
Me.Requery
End Sub
Un saludoi
Sk@keo® |