Hola de nuevo, he descubierto algo por si le sirve de ayuda a alguien para resolverlo.
Si coloco cualquiera de los dos códigos por separado no da problemas.
Si pongo en el form:
Código:
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT euros_km FROM sala_maquinas WHERE id=1")
Me.kilometraje = Me.num_klm * rs!euros_km
rs.Close
Set rs = Nothing
Me rellena el campo kilometraje sin problemas.
Si pongo:
Código:
If Me.Pernocta = True Then
Me.beneficio = Nz(Me.horas_curso, 0) * 17.74
Else
Me.beneficio = Nz(Me.horas_curso, 0) * 14.5
End If
Me hace el if perfectamente rellanando el campo beneficio.
Pero si pongo ambos códigos (da igual el orden e incluso da igual si lo pongo cada uno como envento de un boton distinto) me saca el mensaje de antes, no muestra ningún dato del subform y además no hay posibilidad de vuelta atrás aunque borre todo el código. La solución es tirar la aplic, y coger una copia de seguridad que hecha antes de introducir el código.
Pueden ayudarme?
Gracias.