Foros del Web » Programación para mayores de 30 ;) » Bases de Datos General »

Dias laborables discriminando feriados regionales en ACCESS 2003

Estas en el tema de Dias laborables discriminando feriados regionales en ACCESS 2003 en el foro de Bases de Datos General en Foros del Web. Buenas tardes, tengo una base en access de la cual obtengo dias laborables restando feriados, el problema es que algunos feriados solo pertenecen a ciertas ...
  #1 (permalink)  
Antiguo 02/10/2008, 13:12
 
Fecha de Ingreso: octubre-2008
Mensajes: 8
Antigüedad: 16 años, 1 mes
Puntos: 0
Exclamación Dias laborables discriminando feriados regionales en ACCESS 2003

Buenas tardes, tengo una base en access de la cual obtengo dias laborables restando feriados, el problema es que algunos feriados solo pertenecen a ciertas regiones y por lo tanto solo se deberían restar a las personas que pertenezcan a esas regiones (la tabla de feriados tiene un campo de ciudad y la de empleados tambien).

La funcion que utilizo es la siguiente ("Localidades" contiene la ciudad de los empleados y "localidad" pertence a "Feriados"):
Function WorkingDays( _
DateStart As Date, _
DateEnd As Date, _
Localidades As String) As Long
Dim SQL As String
Dim Holidays As Long
Dim WeekendDays As Long
Dim loopDate As Date

If DateStart < DateEnd Then
SQL = "SELECT Count(*) FROM Feriados " _
& " WHERE feriado Between #" _
& Format(DateStart, "mm/dd/yyyy") _
& "# AND #" & Format(DateEnd, "mm/dd/yyyy") _
& "# AND #" & localidad = Localidades & "#" (ESTA LINEA NO CORRE !!!!!!!!!!)
On Error Resume Next
Holidays = CurrentDb.OpenRecordset(SQL).Fields(0)
On Error GoTo 0

For loopDate = DateStart To DateEnd
If Weekday(loopDate) = vbSaturday Or _
Weekday(loopDate) = vbSunday Then
WeekendDays = WeekendDays + 1
End If

Next

WorkingDays = ((DateEnd - DateStart) + 1) - (Holidays + WeekendDays)
End If

End Function

Agradezco de antemano su ayuda
  #2 (permalink)  
Antiguo 03/10/2008, 00:38
Avatar de Taribo007  
Fecha de Ingreso: agosto-2007
Mensajes: 1.338
Antigüedad: 17 años, 3 meses
Puntos: 18
Respuesta: Dias laborables discriminando feriados regionales en ACCESS 2003

Si el campo localidades es de tipo texto, prueba asi:

SQL = "SELECT Count(*) FROM Feriados " _
& " WHERE feriado Between #" _
& Format(DateStart, "mm/dd/yyyy") _
& "# AND #" & Format(DateEnd, "mm/dd/yyyy") _
& "# AND localidad ='" & Localidades & "'"

Si fuera de tipo numerico, quieta las comillas simples rojas

un saludo
  #3 (permalink)  
Antiguo 03/10/2008, 07:37
 
Fecha de Ingreso: octubre-2008
Mensajes: 8
Antigüedad: 16 años, 1 mes
Puntos: 0
Respuesta: Dias laborables discriminando feriados regionales en ACCESS 2003

Gracias por responder. Los campos son de texto, hice los cambios que mencionabas pero sigue sin tomar en cuenta la condicion. Si tienes alguna otra idea te ruego me la hagas conocer
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:05.