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.
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
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
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
0
