Listado

[Taribo007]

Y en el msgbox que te sale???

un saludo

[Koudelka]

nada, está en blanco

[Taribo007]

El formulario se llama Hora3 o horas3????

Forms!hora3!CodigoOperario = IdOperario

Un saludo

[Koudelka]

hora3 (sin la s al final)

[Koudelka]

bueno, al final he regresado a una copia que tenía hecha antes de hacer lo de la lista y parece ser que sí funciona. si me vuelve a fallar, pues no sé que voy a hacer >.<

[Koudelka]

nada, ni empezando desde uno anterior. Me da error al crear uno nuevo y creo que es porque intenta sumar las horas de la lista.

[Koudelka]

Veamos, me comentaron que para poder arreglar este problema tendría que poner el campo que calcula las horas (TxtHorasTotales) con un valor inicial 0 para que a la hora de crear un nuevo formulario no me imtente sumar algo que quizá no haya. El problema es que no se cómo poner que su valor inicial sea 0.

He intentado poner TxtHorasTotales = 0 Pero creo que me falta algo más.

[Koudelka]

resurjo este tema porque sigo con el problema y hasta ahora no lo he podido remontar >.<

Alguien me puede ayudar?

[Koudelka]

Vuelvo a resurgir este tema, para ver si me puedes volver a ayudar Tariboo. Digamos que es este mismo formulario (no me da problemas eh?), es simplemente que quiero añadirle algo nuevo y es muy parecido a lo que hicimos en este topic.

Voy a intentar hacer algo de memoria. En el formulario había un campo de lista con una serie de campos y en el propio formulario, al abrirse tenía lo siguiente (entre otras cosas XD)

Me.Lista.RowSource = "Select CodigoOperario, fecha,obra,actividad,horas from PartesDeTrabajo where CodigoOperario=" & Me.CodigoOperario & "AND fecha=#" & Format(Date, "mm/dd/yyyy") & "#"


Pues bien, quiero hacer esto mismo, pero con una lista que quiero añadir. Tiene los mismos campos es sólo que quiero añadir que la actividad sea = Descansos. He intentado poniendo lo siguiente:

Me.Lista2.RowSource = "Select CodigoOperario, fecha,obra,actividad,horas from PartesDeTrabajo where actividad=" & Me.Texto174 & "AND CodigoOperario=" & Me.CodigoOperario & "AND fecha=#" & Format(Date, "mm/dd/yyyy") & "#"

Me.texto174 es igual a Descansos (no se me ocurría otra manera de ponerlo >.<)

El caso es que no me da error, pero tampoco me muestra nada y no se cómo hacerlo T.T

[Taribo007]

Te refieres al literal "descansos"???

Me.Lista2.RowSource = "Select CodigoOperario, fecha,obra,actividad,horas from PartesDeTrabajo where actividad='Descansos' AND CodigoOperario=" & Me.CodigoOperario & "AND fecha=#" & Format(Date, "mm/dd/yyyy") & "#"

Un saludo

[Koudelka]

Y ahora cómo haría la suma de horas de esa segunda lista? XDDD

Veamos, la suma de las horas de la primera lista es así:

Me.TxtHorasTotales = DSum("Horas", "PartesDeTrabajo", "CodigoOperario=" & Me.CodigoOperario & "AND fecha=#" & Format(Date, "mm/dd/yyyy") & "#")


Pero no se cómo colocarle la segunda suma:

Me.TxtHorasTotales2 = DSum("Horas", "PartesDeTrabajo", "actividad=Descansos AND CodigoOperario=" & Me.CodigoOperario & "AND fecha=#" & Format(Date, "mm/dd/yyyy") & "#")

Me da error, así que supongo que será por alguna comilla o algo >.<

[Taribo007]

Te faltan dos comillas simples, mira como te lo puse antes:

Me.TxtHorasTotales2 = DSum("Horas", "PartesDeTrabajo", "actividad='Descansos' AND CodigoOperario=" & Me.CodigoOperario & "AND fecha=#" & Format(Date, "mm/dd/yyyy") & "#")

Un saludo