Cuestión : Validar los campos del mes y del año basados en fecha actual

Tengo una tabla del acceso que tenga un campo del año y un campo del mes. El campo del año es apenas una caja de texto y tengo una regla de la validación fijada <=Year (fecha ()) de modo que el usuario no pueda incorporar cualquier cosa en el futuro. El campo del mes es una caja drop-down en la forma con enero con diciembre como opciones. Quiero agregar una regla de la validación en la forma que no dejará a usuario selecciona cualquier mes en el futuro basado en el valor del campo del año. Por ejemplo, el campo del año tiene 2010 como su valor, así que el usuario no debe poder seleccionar cualquier cosa con excepción de enero con julio en el campo del mes porque la fecha de hoy es 7/22/2010. class= del

Respuesta : Validar los campos del mes y del año basados en fecha actual

txtMonth_beforeupdate secundario privado (cancelación como número entero)
si me.txt Year=year (fecha ()) entonces
   si mes de me.txt Month> (fecha ()) entonces
      msgbox “usted no puede utilizar las fechas futuras”
      me.txt Month.setfocus
      cancel=true
      salir el submarino
  terminar si
terminar si

terminar el submarino