27/03/2008, 03:39
|
 | | | Fecha de Ingreso: agosto-2007
Mensajes: 1.338
Antigüedad: 16 años, 9 meses Puntos: 18 | |
| Re: Listado
Primero quita las comillas simples que te pongo en rojo:
Me.Lista.RowSource = "Select CodigoOperario, fecha, 'obra', 'actividad', horas from PartesDeTrabajo where CodigoOperario=" & Me.CodigoOperario & "AND fecha=#"& format (date(), "mm/dd/yyy") & #"
Luego, antes de esa sentencia vamos a comprobar que hay algo en Me.CodigoOperario con : msgbox Me.CodigoOperario
Ademas, en la sentencia falta alguna comilla doble y algun y, al final queadria asi (ponlo tal cual te lo pogo a continuacion:
MsgBox Me.CodigoOperario
Me.Lista.RowSource = "Select CodigoOperario, fecha,obra,actividad,horas from PartesDeTrabajo where CodigoOperario=" & Me.CodigoOperario & "AND fecha=#" & Format(Date, "mm/dd/yyyy") & "#"
Haz esto y me cuentas si funciona.
Un saludo |