melding als textbox leeg is

[Doohan]

Beste helper,

Ik heb een formulier met een button. Deze button voert de berekening uit als alle textboxen zijn ingevuld. Als er een txtbox niet is ingevuld komt er netjes een melding van welke txtbox niet is in gevuld. De code hiervoor is

bereken = Array("txtBinnentemp", "txtBuitentemp", "txtPower", "txtQcombustionair", "txtEfficiency", "txtWarmtafgifte")
     For i = 0 To UBound(bereken)
     If Me.Controls(bereken(i)).Value = "" Then MsgBox "Vergeet niet " & Me.Controls(bereken(i)).Name & " in te vullen": Exit Sub
      Next

Echter voor de txtbox staat een textlabel. Dit label zegt wat er in de textbox ingevuld dient te worden. Hoe kan ik ervoor zorgen dat niet de naam van de lege txtbox in de melding komt maar in plaats daarvan de tekst die in het txtlabel staan.

Alvast Vriendelijk dank,

 

[ExcelAmateur]

Ik denk als je Label het zelfde nummer heeft als je TextBox, dat je dan;

Vergeet niet " & Me.Label(bereken(i)).Caption & " in te vullen": Exit Sum

,
kunt gebruiken.
Test het eens.

 

[Doohan]

helaas werkt niet.
ik ga het anders doen. ieder geval vriendelijk dank

 

[ExcelAmateur]

Heb je het ook zo geprobeerd?

Vergeet niet " & Me("Label"& i).Caption & " in te vullen": Exit Sum

 

[ExcelAmateur]

Hier nog even een voorbeeldje gemaakt.
Zal niet zeggen dat de code perfect is, kan misschien wel beter.

 

[ExcelAmateur]

Doohan,

Ik heb mijn voorbeeldje aangepast naar je code.
De labels heb ik een naam gegeven en deze ook in een Array gezet,
ik denk dat het zo naar je zin werkt.

 

[snb]

Het lijkt mij handiger ervoor te zorgen dat geen berekenknop zichtbaar is zolang je niet alle tekstvakken gevuld hebt:

Private sub txtBinnentemp_change()
   M_check
end sub

sub M_check()
   for each it in  Array("txtBinnentemp", "txtBuitentemp", "txtPower", "txtQcombustionair", "txtEfficiency", "txtWarmtafgifte")
     if Me(it)="" then exit for
   Next
   knop_bereken.visible=(it="txtWarmtafgifte") and Me(it)<>""
end sub

 

[Doohan]

Ik dank u heren, ExcelAmateur mag zijn naam veranderen in EXCELPROFFESIONAL. @SNB. Dank je voor de code en het idee om de knop onzichtbaar te maken. Ik vind het zelf mooier om de gehele formulier te presenteren met al zijn knopjes.

m.vr,gr Martin

 

[ExcelAmateur]

Martin,

Bedankt voor de promotie maar blijf liever de amateur.
Doe dit door het proberen de code te veranderen, ik schud het niet zo uit de mouw.

Ik ben bij snb vergeleken een beginneling.