Pytanie : Potwierdzać miesiąc i rok odpowiadać zasadzony na aktualny data

I mieć Dojazdowy stół który mieć rok pole i miesiąc pole. The rok pole być właśnie tekst pudełko i I mieć uzasadnienie reguła ustawiać <=Year (Data ()) tak, że the użytkownik móc cokolwiek w przyszłości. The miesiąc pole być opcja pudełko na the forma z Styczeń przez Grudzień jako opcja. I chcieć uzasadnienie reguła na the forma który pozwalać the użytkownik jakaś miesiąc w przyszłości opierać się na the rok pole wartość. Na przykład, the rok pole mieć 2010 jako swój wartość, więc the użytkownik musieć sprawnie 2010 2010 Styczeń przez Lipiec w the miesiąc pole ponieważ inny data być 7/22/2010.

Odpowiedź : Potwierdzać miesiąc i rok odpowiadać zasadzony na aktualny data

intymny intymny txtMonth_beforeupdate (cancel jako integer)
jeżeli me.txt Year=year (data ()) wtedy
   jeżeli me.txt Month> Miesiąc (data ()) wtedy
      msgbox "ty móc przyszłościowy data"
      me.txt Month.setfocus
      cancel=true
      wyjście okręt podwodny
  kończyć jeżeli
kończyć jeżeli

kończyć okręt podwodny