Campo calculado en un formulario access de los valores del subformulario
Tengo una tabla llamada "fitx" donde hay los siguientes campos: [Idfitx] [idreferencia] [cantidad] [personal] [hora inicial] [hora final] [situacion]
Tengo una consulta llamada "tiempo" donde calculo la diferencia entre [hora inicial] y [hora final]. Este valor sea llama [minutos]. Incluye también todos los campos de la tabla "fitx"
Los datos los entre desde un formulario llamado "tancar fitx" creado a partir de la tabla "fitx" y con un subformulario "tiempo subform" creado a partir de la consulta "tiempo" donde se muestran todos los valores donde [idreferencia] sean iguales a [idreferencia] del formulario
Me gustaría que cuando cambio el valor [situación]=3 en el formulario me calcule en un campo (lo llamaré "actividad") del formulario lo siguiente:
Si en el subformulario hay algún registro que tenga el campo [cantidad] vacio el valor del campo "actividad" sea la suma de todos los valores [minutos] que hay en el subformulario dividido por la suma de todos los valores [cantidad]. En caso de que no haya ningún registro que tenga el campo [cantidad] vacío el valor del campo "actividad" debe ser [minutos]/[cantidad]
A ver si me puedes ayudar ya que llevo varios días dándole vueltas y no lo consigo resolver
1 Respuesta
Perdona mi ignorancia pero como mando la estructura?
Gracias
Si quieres solamente escribe el nombre de la tabla y el nombre de sus campos.
formulario: tancar fitx
consulta origen: fitx
Campos: [Idfitx] [idreferencia] [cantidad] [personal] [hora inicial] [hora final] [situación]
Subformulario: tiempo
Consulta origen: tiempo
Campos: [personal][hora inicial] [hora final] [minutos] [idreferencia] [situación] [actividad] [cantidad]
Hola,
Espero que te sirva esta información.
Muchísimas gracias
'Puedes usar este ejemplo de código en el evento "después de actualizar" del campo
"situación", solamente escribe la formula que mencionas y reemplaza el texto "tu formula"
Dim rs as recordset
Dim Db as database
Dim xActividad as single
Dim SrtSQL as string
Set db=dbengine(0)(0)
If situación = 3 then
strSQL=“Select sum(minutos) as Tmin, sum(Cantidad) as Tcan”
strsql=strsql & “ From tiempo”
set rs=db.openrecordset(strSQL)
if rs.recordcount >0 then
if isnull(rs!tcant) then
Actividad= tu formula
else
Actividad = tu formula
end if
end if
End if
Hola,
Lo he estado probando (he cambiado los nombres de las tablas y campos pero he puesto los nuevos nombres) me da un error en el punto Set rs = Db.OpenRecordset(strSQL)
Puedes ayudarme?
Te mano la instrucción tal cual la he puesto
Muchas gracias de antemano
Private Sub situacio_partida_AfterUpdate()
Dim rs As Recordset
Dim Db As Database
Dim xactivitat_fitxatge As Single
Dim SrtSQL As String
Set Db = DBEngine(0)(0)
If situacio_partida <> "Muntatge" Then
strSQL = "Select sum(minuts_partida) as Tmin, sum(Unitats) as Tcan"
strSQL = strsql & "From FixtatgesACTIVITAT"
Set rs = Db.OpenRecordset(strSQL)
If rs.RecordCount > 0 Then
If IsNull(rs!tcant) Then
Actividad = 1 + 1
Else
Actividad = 2 + 2
End If
End If
End If
End Sub
Debes checar que tus nombres de campo y tablas estén correctos. Me doy cuenta que antes de "From debe tener un espacio. Para revisar tu instrucción que se encuentra en la variable strSQL, al momento que te mande algún error puedes ver el contenido del código dando CTRL+G y escribiendo ? strsql y el enter.
Hola de nuevo
He añadido el espacio y ahora el error es distinto... me da un mensaje que dice:
Se ha producido el error '3061' en tiempo de ejecución: Pocos parámetros. Se esperaba 1.
Ojalá puedas ayudarme
Un millón de gracias de nuevo
Si quieres mándame tu Base de datos para ver tu error. [email protected]
Es un error de sintaxis (solo revísalo). No olvides cerrar la pregunta.
