Buscar dato por fechas en VBA
Tengo la siguiente tabla en Access 2013 con los tipos impositivos
Registro FIVA FFIVA %IVA
----------------------------------------------------------------------
1 01/01/1995 30/06/2010 15
2 01/07/2010 30/09/2012 18
3 01/10/2012 31/12/2999 21
---------------------------------------------------------------------
Necesito buscar que porcentaje de IVA debería aplicarse según una fecha dada. Por ejemplo para la fecha 17/12/2015 deberá mostrar 21, para la fecha 01/08/2011 deberá mostrar 18 y para una fecha de 01/01/2000 deberá mostrar 15
Lo de Dprim no te funcionará si no cambias las comas por punto y coma
2 respuestas más de otros expertos
Si bien la manera propuesta por Jacinto es correcta, tiene el "inconveniente" de que si hay un cmabio normativo y tienes que añadir otro valor a la tabla, o modificar alguno de los existentes, te exige modificar el código.
Si usas alguna de las funciones de búsqueda de Access, o te creas una función personalizada, ese problema lo evitas.
Por ejemplo, si tienes un cuadro de texto independiente en un formulario en el que quieras mostrar el porcentaje, le puedes poner como origen de control:
=DPrim("[%IVA]","NombreTabla","FFIVA>=#" & [FechaFactura] & "#")
Siendo FechaFactura el campo del formulario en el que tienes la fecha.
Jesús: Voy a suponer que la fecha que Vas a sondear está en un TextBox de un Formulario.
A ese TextBox le llamaremos TxtFechaSondeo. Otro para el IVAVigente
Entre otras maneras de hacerlo, puedes poner éste código en el Evento AfterUpdate de TxtFechaSondeo, y recuerda activarlo como Procedimiento de Evento en Propiedades.
Private Sub TxtFechaSondeo_AfterUpdate()
If Me.TxtFechaSondeo <= #30/06/2010# Then
Me.IVAVigente = 18
ElseIf Me.TxtFechaSondeo > #30/06/2010# And Me.TxtFechaSondeo <= #30/09/2012# Then
Me.IVAVigente = 18
Else
Me.IVAVigente = 21
End If
End Sub
No lo he probado pero supongo que no tendrás dificultades. Recuerda darle Formato a TxtFechaSondeo como Fecha Corta, y si tienes dificultad por tu versión de Access con las fechas de la forma en que yo las cito de dd/mm/aaaa, las pones en formato mm/dd/aaaa.
Saludos >> Jacinto
Disculpa, que he puesto el primer IVA como 18 y es 15, pero supongo que verás que es un error. Saludos >> jacinto