Vraag : Bevestig maand en jaargebieden op huidige datum worden gebaseerd die

Ik heb een lijst van de Toegang die een jaargebied en een maandgebied heeft. Het jaargebied is enkel een tekstvakje en ik heb een bevestigingsregel geplaatst <=Year (Datum ()) zodat de gebruiker niet om het even wat in de toekomst kan ingaan. Het maandgebied is een drop-down doos op de vorm met Januari door December als opties. Ik wil een bevestigingsregel op de vorm toevoegen die de gebruiker selecteert geen die maand in de toekomst laten zal op de waarde van het jaargebied wordt gebaseerd. Bijvoorbeeld, heeft het jaargebied 2010 als zijn waarde, zodat zou de gebruiker niet om het even wat buiten Januari door Juli op het maandgebied moeten kunnen selecteren omdat de datum van vandaag 7/22/2010 is.

Antwoord : Bevestig maand en jaargebieden op huidige datum worden gebaseerd die

privé subtxtMonth_beforeupdate (annuleer als geheel)
als me.txt Year=year (datum ()) dan
   als me.txt Month> Maand (datum ()) dan
      msgbox „u kunt geen toekomstige data“ gebruiken
      me.txt Month.setfocus
      cancel=true
      uitgangs sub
  beëindig als
beëindig als

beëindig sub