veld visible

Status
Niet open voor verdere reacties.

Daneron

Gebruiker
Lid geworden
10 jun 2003
Berichten
186
Hoi, zal in het kort uitleggen waar ik niet mee verder kom, bij de code om een label zichtbaar te maken bij een event zet ik de eigenschap van de label op "niet zichtbaar".
Bij een keuzelijst met invoervak moet eerst een keuze worden gemaakt voordat een andere labels zichtbaar word(en). Nu weet ik alleen niet wat ik in op moet geven bij de volgende code:

if me.keuzelijst = (*) then
me.tekst.visible = true

end if

Ik weet dus niet wat er tussen de haakjes moet komen te staan.
Het maakt niet uit wat er gekozen word uit de lijst, het is alleen om verder te kunnen in het formulier.
Er zijn meerder labels onzichtbaar, kan ik deze met een kortere code zichtbaar maken ipv voor ieder veld een code te maken?

alvast bedankt.

mvrg
 
Code:
Dim ctl as controls

If Len(me.keuzelijst) > 0 Then ' Er is een keuze gemaakt.
' Alle labels worden zichtbaar gemaakt
For Each ctl In Me.Controls
  If TypeOf ctl Is Label Then
    ctl.visible = true
  End If
Next ctl
End If

Enjoy!
Weest gegroet,
Guus
 
hoi, krijg een foutmelding bij visible (ctl.visible = true)
Dim ctl as controls

If Len(me.keuzelijst) > 0 Then ' Er is een keuze gemaakt.
' Alle labels worden zichtbaar gemaakt
For Each ctl In Me.Controls ' wat moet er bij control worden ingevuld ? want hier gaat het mis denk ik.
If TypeOf ctl Is Label Then
ctl.visible = true
End If
Next ctl
End If

alvast bedankt
mvrg
 
het is al gelukt :) zat ergens een plakfoutje.

Heb in het form ook keuzelijsten met invoervakken, na aanpassing van de volgende regel van

If TypeOf ctl Is TextBox Then
ctl.visible = true

in

If TypeOf ctl Is TextBox ore ListBox Then
ctl.visible = true

probeerde ik beide boxjes zichtbaar te krijgen, maar dit lukt blijkbaar niet op deze manier.

Hoe kan ik meerdere controls zichtbaar krijgen in 1 code ?


alvast bedankt

mvrg
 
in je for next lus neem je op
Code:
if TypeOf ctl is TextBox or Typeof ctl is ListBox then
enz.
of je zou de tag property kunnen gebruiken:
Code:
    For Each ctl In Me.Controls
        If TypeOf ctl Is TextBox And ctl.Tag = "Artikelgegevens" Then
            ctl.Text = ""
        End If
    Next ctl
Enjoy!
Weest gegroet,
Guus
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan