Eliminar # error al ejecutar la VBA código en Access

votos
0

Necesito ayuda, porque cuando corro de código, un error aparece cuando algún campo de fecha está vacío. Tengo una tabla con información y corro este código ya que el generador.

Eliminar # error al ejecutar la VBA código en Access

Yo agradecido por ayudarle.

Option Compare Database

Public Function WorkingDays2(FECHA_DE_VALIDACION_FA As Date, FECHA_IMPRESIÓN As Date) As Integer
'....................................................................
' Name:     WorkingDays2
' Inputs:   StartDate As Date
'   EndDate As Date
' Returns: Integer
' Author: Arvin Meyer
' Date:     May 5,2002
' Comment: Accepts two dates and returns the number of weekdays between them
' Note that this function has been modified to account for holidays. It requires a table
' named tblHolidays with a field named HolidayDate.
'....................................................................

Dim intCount As Integer
Dim rst As DAO.Recordset
Dim DB As DAO.Database

Set DB = CurrentDb
Set rst = DB.OpenRecordset(SELECT [DIAFESTIVO] FROM DIASFESTIVOS, dbOpenSnapshot)

'StartDate = StartDate + 1
'To count StartDate as the 1st day comment out the line above

intCount = 0

Do While FECHA_DE_VALIDACION_FA <= FECHA_IMPRESIÓN

rst.FindFirst [DIAFESTIVO] = # & FECHA_DE_VALIDACION_FA & #
If Weekday(FECHA_DE_VALIDACION_FA) <> vbSunday And Weekday(FECHA_DE_VALIDACION_FA) <> vbSaturday Then
If rst.NoMatch Then intCount = intCount + 1
End If

FECHA_DE_VALIDACION_FA = FECHA_DE_VALIDACION_FA + 1



Loop

WorkingDays2 = intCount

Exit_WorkingDays2:
Exit Function

WorkingDays2 = intCount

Exit_WorkingDays2:
Exit Function

Err_WorkingDays2:
Select Case Err

Case Else
MsgBox Err.Description
Resume Exit_WorkingDays2
End Select


End Function
Publicado el 27/11/2018 a las 16:47
fuente por usuario
En otros idiomas...                            


2 respuestas

votos
0

Su pregunta original incluía código de una función llamada WorkingDays3, que toma un parámetro de fecha.

Su ilustración muestra una función denominada WorkingDays2, que toma dos parámetros de fecha.

Creo que tendrá que dar información más detallada acerca de los datos que se está trabajando, y en qué condiciones se está viendo el # error.

Respondida el 27/11/2018 a las 20:46
fuente por usuario

votos
0

Depende un poco cuando se llama a esta función desde su base de datos. Probablemente como un campo calculado en una consulta? Algo como esto: WorkingDays: WorkingDays3([YourDateField])?

Tal vez puedas probar: WorkingDays: WorkingDays3(Nz([YourDateField],Date())

Respondida el 27/11/2018 a las 17:51
fuente por usuario

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more