Вопрос : Утвердите поля месяца и года основанные на в настоящее время дате

Я имею таблицу доступа имеет поле года и поле месяца. Полем года будет как раз коробка текста и я имею установленное правило утверждения <=Year (дата ()) так, что потребитель не сможет вписать что-нибыдь в будущее. Полем месяца будет коробка падающая вниз на форме с январь через декабрь как варианты. Я хочу добавить правило утверждения на форме не будет препятствовать потребителю выбирает любой месяц в будущем основанном на значении поля года. Например, поле года имеет 2010 как свое значение, поэтому потребитель не должен мочь выбрать что-нибыдь за исключением январь через июль в поле месяца потому что сегодняшняя дата 7/22/2010. class=

Ответ : Утвердите поля месяца и года основанные на в настоящее время дате

приватное sub txtMonth_beforeupdate (cancel как интежер)
если me.txt Year=year, то (дата ()) после этого
   если месяц, то me.txt Month> (дата ()) после этого
      msgbox «вы не можете использовать будущие даты»
      me.txt Month.setfocus
      cancel=true
      выходите подводная лодка
  закончитесь если
закончитесь если

закончите подводную лодку