una suma con SQL,no m sale y me URGE PARA HOY!!PF!
Publicado por ainhoa (45 intervenciones) el 08/06/2004 10:01:38
Hola a tod@s!
Estoy haciendo un nuevo programa en el que tengo estas 2 tablas:
DATOS (denomiancion, nombre)
RELACION (denominacion, horas, nombre)
Sirve para saber las horas que pasa cada trabajador en las diferentes secciones d la empresa, ejmplo:
- calibracion: 2 h
- Almacen: 4 h --------------> en un dia
- Taller : 2 h
pero esto puede variar segun el dia.
Y tengo en un formulario: nombre (en un desplegable), denominacion (desplegable) y 2 cajas de texto (desde una fecha hasta otra fecha), Y CON ESTO, que me salga en un caja de texto o dnd sea necesario, EL TOTAL DE LAS HORAS invertidas en ese tipo de trabajo (denominacion) en el plazo seleccionado.
Espero haberme explicado bien, es urgente, esta vez mas en serio tvia, tengo 3 dias para hacerlo :S
he probado con este codigo:
Private Sub nombre1_AfterUpdate()
On Error Resume Next
Dim rs As Recordset
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT sum(horas) FROM relacion WHERE denominacion='" & denominacion.Value & "' AND nombre='" & nombre.Value & "' AND format(relacion.fecha,""dd/mm/yy"") >= '" & Me.desde & "' AND format(relacion.fecha,""dd/mm/yy"") <= '" & Me.hasta & ", CurrentProject.Connection, 3, 3"
If Not rs.EOF Then
total.Value = rs.Fields(0).Value
Else
total.Value = ""
End If
rs.Close
End Sub
pero no salen datos, ayudarme pf, 3 dias, solo 3 dias tengo para terminarlo!!!
Gracias!!
Estoy haciendo un nuevo programa en el que tengo estas 2 tablas:
DATOS (denomiancion, nombre)
RELACION (denominacion, horas, nombre)
Sirve para saber las horas que pasa cada trabajador en las diferentes secciones d la empresa, ejmplo:
- calibracion: 2 h
- Almacen: 4 h --------------> en un dia
- Taller : 2 h
pero esto puede variar segun el dia.
Y tengo en un formulario: nombre (en un desplegable), denominacion (desplegable) y 2 cajas de texto (desde una fecha hasta otra fecha), Y CON ESTO, que me salga en un caja de texto o dnd sea necesario, EL TOTAL DE LAS HORAS invertidas en ese tipo de trabajo (denominacion) en el plazo seleccionado.
Espero haberme explicado bien, es urgente, esta vez mas en serio tvia, tengo 3 dias para hacerlo :S
he probado con este codigo:
Private Sub nombre1_AfterUpdate()
On Error Resume Next
Dim rs As Recordset
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT sum(horas) FROM relacion WHERE denominacion='" & denominacion.Value & "' AND nombre='" & nombre.Value & "' AND format(relacion.fecha,""dd/mm/yy"") >= '" & Me.desde & "' AND format(relacion.fecha,""dd/mm/yy"") <= '" & Me.hasta & ", CurrentProject.Connection, 3, 3"
If Not rs.EOF Then
total.Value = rs.Fields(0).Value
Else
total.Value = ""
End If
rs.Close
End Sub
pero no salen datos, ayudarme pf, 3 dias, solo 3 dias tengo para terminarlo!!!
Gracias!!
Valora esta pregunta


0