Zichtbaar/Onzichtbaar

[Seco]

ik heb een formulier gemaakt. hier in wil ik na het selecteren van onderdelen, merken, IDnummers wil ik als ik UIT kies graag een tekstvak verschijnen waar ik een datum kan invoeren maar ik weet goeds niet hoe dat moet.

kan iemand me helpen.


voorbeeld database.

http://www.freewebtown.com/seco18/db1.rar

 

[Bakk4318]

Waar wil je UIT kiezen?

mvg
Charles

 

[Seco]

kijk,

ik heb 3 dropdownmenus.

je kiest een onderdeel, 2e dropdownmenu laat zien welke merk je allemaal hebt.
3 dropdownlaat zien welke IDnummers ( gewoon onderdeelnaam) je hebt.
IN beteknt dat ik hem in mn kast heb. maar als ik UIT kies wil ik dat er een tekstvak tevoorschijntkomt waar ik een datum kan invullen.

met UIT bedoel ik dus, ik leen hm uit, of reserveer hm voor iemand.

dus dat tekstvak moet eigenlijk eerst onzichtbaar zijn, als ik UIT kies in het laatste dropdown moet de tekstvak weer zichtbaar worden.

 

[Bakk4318]

Helaas kan ik nergens "IN" of "UIT" selecteren.

mvg
Charles

 

[Seco]

Helaas kan ik nergens "IN" of "UIT" selecteren.

mvg
Charles

jah dropdown menu voor dat heb ik nog niet gemaakt. alleen de tabel met daar in uit.

ik pas mn database wel ff aan als je dat wil, maar ik neem aan dat ht alleen een code zal zijn die ik nodig heb ?

 

[Seco]

http://www.freewebtown.com/seco18/db1.rar


Hier staat hij nu wel bij.

 

[Seco]

http://www.freewebtown.com/seco18/db1.rar

Nu kan ik hm tevoorschijn halen maar hij komt nu ook te voorschijn als ik IN kies.
ik zou hm alleen willen zien als ik UIT kies
heeft er iemand een code voor mij waarmee ik dit kan bereiken.



Groet Seco

 

[Harry46]

De waarde van Status is een getal (1 is IN en 2 is UIT)
Zet code bij de AfterUpdate gebeurtenis van Status

Private Sub Status_AfterUpdate()
Me!txtDatum.Visible = (Me!Status = 2)
End Sub

Of als je tekst wilt gebruiken:
Me!txtDatum.Visible = (Me!Status.Column(1) = "UIT")

 

[Seco]

De waarde van Status is een getal (1 is IN en 2 is UIT)
Zet code bij de AfterUpdate gebeurtenis van Status

Private Sub Status_AfterUpdate()
Me!txtDatum.Visible = (Me!Status = 2)
End Sub

Of als je tekst wilt gebruiken:
Me!txtDatum.Visible = (Me!Status.Column(1) = "UIT")

Hij doet het !

Bedankt. was er de hele dag opzoek naar

verder kom ik er wel uit.

nogmaals bedankt !



Groet Seco