Consulta en access para un calculo

[PiquioII]

Hola, esta es mi duda:

Estoy calculando las horas que hay en una obra entre 2 fechas, lo que pasa es que me esta dando error el la clausula from.

Este es el codigo que he escrito:

Private Sub cmdejecutar_Click()
Dim dbs As Database
Dim rst As DAO.Recordset

Dim servicio As String
Dim fecha1 As Date
Dim fecha2 As Date


DoCmd.GoToRecord , , acNext
DoCmd.GoToRecord , , acPrevious

servicio = Me.Cuadro_combinado14.Value
fecha1 = Me.Fecha_Inicio.Value
fecha2 = Me.Fecha_Final.Value

Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("select sum ([personal-obra].horas) as tot from obras inner join personal-obra on obras.idobra=[personal-obra].obra where obras.nombre like '" & servicio & "' and [personal-obra].fecha between #" & [fecha1] & " # and # " & [fecha2] & "#"")

Me.Total_Hora_Normal.Text = rst.Fields(0)

rst.Clone
rst.Close

End Sub

Muchas gracias

[Taribo007]

Prueba asi:

Set rst = dbs.OpenRecordset("select sum ([personal-obra].horas) as tot from obras inner join [personal-obra] on obras.idobra=[personal-obra].obra where obras.nombre like '" & servicio & "' and [personal-obra].fecha between #" & Format([fecha1], "mm/dd/yyyy") & "# and #" & Format([fecha2], "mm/dd/yyyy") & "#")

No obstante, access te proporciona funciones agregadas de dominio como dsum, dlookup, dcount, que quiaz te vengan mejor, para no tenere que abrir un recordset para obtener un solo valor (si es que es eeste el caso)

Un saludo

[PiquioII]

Me devuelve un valor nulo, y el intervalo de fechas que introduzco es correcto.

¿Por que me devuelve este valor nulo?

Muchas gracias.

[Taribo007]

Pruaba con :

msgbox rst!tot

Compruaba que devuelve algun valro con:

rst.movelast

msgbox rst.recordcount

Un saludo

[PiquioII]

Me devuelve el valor 1 y me tenia que devolver 16

Muchas gracias.

Un saludo