Pergunta : Validar os campos do mês e do ano baseados na data atual

Eu tenho uma tabela do acesso que tenha um campo do ano e um campo do mês. O campo do ano é apenas uma caixa de texto e eu tenho uma régua da validação ajustada <=Year (data ()) de modo que o usuário não possa incorporar qualquer coisa no futuro. O campo do mês é uma caixa drop-down no formulário com janeiro com dezembro como opções. Eu quero adicionar uma régua da validação no formulário que não deixará o usuário seleciona qualquer mês no futuro baseado no valor do campo do ano. Por exemplo, o campo do ano tem 2010 como seu valor, assim que o usuário não deve poder selecionar qualquer coisa à excepção de janeiro com julho no campo do mês porque a data de hoje é 7/22/2010. class= do

Resposta : Validar os campos do mês e do ano baseados na data atual

txtMonth_beforeupdate secundário confidencial (cancelamento como o inteiro)
se me.txt Year=year (data ()) então
   se mês de me.txt Month> (data ()) então
      msgbox “você não pode usar as datas futuras”
      me.txt Month.setfocus
      cancel=true
      retirar o submarino
  terminar se
terminar se

terminar o submarino