Check of Textbox values in multipage1.page(0) is 0,1 of 2

Status
Niet open voor verdere reacties.
R

renew000

Gebruiker
Lid geworden
7 feb 2009
Berichten
151
Hi Experts,

Vraagje... ik heb ik een userform een multipage toegevoegd. In iedere page van de multipage staan textboxen waarvan ik de waarde wil controleren.
De invoer in een ieder van de textboxen moet zijn 0,1 of 2.

Ik heb van alles geprobeerd, maar ben blijkbaar niet in staat om een stukje VBA te schrijven dat het volgende doet.

1. Controleert of in de eerste textbox in multipage1.page(0) de waarde 0, 1 of 2 is
2. Is dit niet zo dan een messagebox die dit aangeeft
3. Is dit wel zo dan controleert hij de volgende textbox in multipage1.page(0)

Ik wilde dit het liefste in een sub. Zodat ik deze macro makkelijk kan verwerken in een ander stukje code. De bedoeling is namelijk dat wanneer de controle voor alle textboxen goed is verlopen (dus dat alle textboxen de waarde 0 of 1 of 2 hebben) het volgende stukje code wordt uitgevoerd.

Ik hoop dat er mensen zijn die me hier bij kunnen helpen. Alvast bedankt voor jullie hulp.

Groetjes
René
 
Bv.

Code: 
sub hsv()
dim ctrl as control
 for each ctrl in controls
 if typename(ctrl) = "TextBox" then
    select case ctrl.text
      case 0 to 2
      case else
      msgbox ctrl.name & " bevat geen 0, 1 of 2"
    end select
   end if
  next ctrl
end sub

Per page controleren?
Code: 
for each ctrl in multipage1.pages(0).controls
De volgende page is pages(1)
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan