Eliminar #Error en Access
Publicado por lina (12 intervenciones) el 28/11/2018 14:29:18
Buenos días, escribo porque al ejecutar un código vba para calcular los días hábiles entre dos fechas que se encuentran en una tabla, si una fecha esta vacía se genera el error.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Option Compare Database
Public Function WorkingDays3(FECHA_IMPRESIÓN As Date) As Integer
On Error GoTo Err_WorkingDays3
Dim intCount As Integer
Dim rst As DAO.Recordset
Dim DB As DAO.Database
FECHAHOY = Date
Set DB = CurrentDb
Set rst = DB.OpenRecordset("SELECT [Holiday] FROM Holidays", dbOpenSnapshot)
'StartDate = StartDate + 1
'To count StartDate as the 1st day comment out the line above
intCount = 0
Do While FECHA_IMPRESIÓN <= FECHAHOY
rst.FindFirst "[Holiday] = #" & FECHA_IMPRESIÓN & "#"
If Weekday(FECHA_IMPRESIÓN) <> vbSunday And Weekday(FECHA_IMPRESIÓN) <> vbSaturday Then
If rst.NoMatch Then intCount = intCount + 1
End If
FECHA_IMPRESIÓN = FECHA_IMPRESIÓN + 1
Loop
WorkingDays3 = intCount
Exit_WorkingDays3:
Exit Function
Err_WorkingDays3:
Select Case Err
Case Else
MsgBox Err.Description
Resume Exit_WorkingDays3
End Select
End Function
Valora esta pregunta
0