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.RecordsetDim DB As DAO.DatabaseFECHAHOY = DateSet DB = CurrentDbSet rst = DB.OpenRecordset("SELECT [Holiday] FROM Holidays", dbOpenSnapshot)
'StartDate = StartDate + 1
'To count StartDate as the 1st day comment out the line above
intCount = 0Do 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 = intCountExit_WorkingDays3:Exit Function
Err_WorkingDays3:Select Case Err
Case Else
MsgBox Err.DescriptionResume Exit_WorkingDays3
End Select
End Function
Valora esta pregunta
0