Fråga : Validera månaden, och året sätter in baserat på ström daterar

Jag har en ta fram att bordlägga som har ett år att sätta in, och en månad sätter in. Året sätter in är en text boxas precis, och jag har ett godkännande att härska fastställdt <=Year (datera ()) så att användaren inte kan skriva in något i framtiden. Månaden sätter in är ett drop-down boxas på bilda med Januari till och med December som alternativ. Jag önskar att tillfoga ett godkännande härskar på bilda som ska inte låtet användaren väljer någon månad i framtiden som baserades på året, sätter in värderar. Till exempel året sätter in har 2010 som dess att värdera, så användaren bör inte vara kompetent att välja något annat, än Januari till och med Juli i månaden sätter in, därför att dagens datera är 7/22/2010. " klar "

Svar : Validera månaden, och året sätter in baserat på ström daterar

privat undertxtMonth_beforeupdate (annulleringen som heltal)
om me.txt Year=year (datera ()) därefter
   om me.txt Month> månad (datera ()) därefter
      msgbox ”som du inte kan använda framtid, daterar”,
      me.txt Month.setfocus
      cancel=true
      gå ut suben
  avsluta om
avsluta om

avsluta suben