Access - GUARDAR Resultado de una Función en un campo de una tabla

   
Vista:

GUARDAR Resultado de una Función en un campo de una tabla

Publicado por Gustavo (1 intervención) el 16/10/2012 16:13:08
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

GUARDAR Resultado de una Función en un campo de una tabla

Publicado por deneg_nhj (349 intervenciones) el 17/10/2012 19:47:14
Gustavo

En el evento BeforeUpdate del Formulario, coloca lo siguiente:

[NumeroSemana] = eNumeroSemanaISO (Fecha)


Estoy suponiendo que el campo en la tabla se llama "NumeroSemana"


Saludos!
http://www.sgh.com.mx/hjaservicios.html
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar