¿CÓMO GUARDAR Resultado de una Función en un campo de una tabla en Access?

Buenas tardes,

Os expongo un problema que no hay manera de resolver, .... El detalle de la Situación es el siguiente:
Dentro de un formulario, he creado un campo SEMANA, dicho campo lo que
hace mediante la función =NumeroSemanaISO(Fecha), me devuelve a qué
semana corresponde la fecha que previamente he rellenado en un campo
FECHA del mismo formulario.


"Public Function NumeroSemanaISO(Optional datFecha As Date) As Integer
Dim lngFecha As Long
On Error GoTo NumeroSemanaISO_TratamientoErrores
If datFecha = 0 Then datFecha = Date
lngFecha = DateSerial(Year(datFecha - Weekday(datFecha - 1) + 4), 1, 3)
NumeroSemanaISO = Int((datFecha - lngFecha + Weekday(lngFecha) + 5) / 7)
NumeroSemanaISO_Salir:
On Error GoTo 0
Exit Function
NumeroSemanaISO_TratamientoErrores:
MsgBox "Error " & Err.Number & " en proc.: NumeroSemanaISO de Módulo: Módulo1 (" & Err.Description & ")"
Resume NumeroSemanaISO_Salir
End Function ' NumeroSemanaISO"


Al ponernos en vista formulario nos aparece correctamente, pero el
problema que tengo es que necesito que ese NUMERO DE SEMANA se me
almacene en la tabla que tengo con la fecha y el campo SEMANA que es
donde quiero guardar el contenido que devuelve la función.... No sé si
me he explicado lo suficiente...
Espero que alguien me pueda echar un cable.
Saludos, Gustavo

Añade tu respuesta

Haz clic para o