Copiate esta funcion en un modulo:
' ( @ @ )
'-----------------------------oOOo-(_)-oOOo--------------------------
'| CREADO POR: Andrés González García (Taribo) |
'| UTILIDAD: Devuelve el ultimo dia del mes |
'| FECHA: 21 de Abril de 2008 |
'| AGRADECIMIENTOS:Foro de Access y VBA |
'| OBSERVACIONES:
http://www.mvp-access.com/foro/ |
'---------------------------------------Oooo.------------------------
' .oooO ( )
' ( ) ) /
' \ ( (_/
' \_)
Public Function UltimoDiaMes(Mes As Integer, Año As Integer) As Date
UltimoDiaMes = DateSerial(Año, Mes + 1, 1) - 1
End Function
Y la llamas asi:
Dim VarFecha As Date
VarFecha = DateAdd("m", 1, Date)
txtfecha = UltimoDiaMes(Month(VarFecha) + 1, Year(VarFecha))
Un saludo