velden wel/niet zichtbaar ahv keuze lijst

[epetzen]

Ik gebruik een blnVisible procedure zoals hieronder:

Sub toon_verberg()
Dim blnVisible As Boolean
blnVisible = (Me.Site_type.Value = "NB")
Bijschrift501.Visible = blnVisible
End Sub

En dit werkt perfect, echter wil ik nu afhankelijk van een tweede keuzelijst waarde ook bepaalde velden laten zien of niet dus heb ik toegevoegd:

Sub toon_verberg1()
Dim blnVisible As Boolean
blnVisible = (Me.Site_type.Value = "NB" And Me.BA_procedure.Value = "NB")
Bijschrift501.Visible = blnVisible
Bijschrift502.Visible = blnVisible
End Sub

Nadat ik de subs toon verberg heb toegevoegd aan Private Sub form_current() en uiteraard ook in het tweede keuzeveld geen lege velden laat bestaan...

Werkt deze niet meer, sterker nog hij laat niets meer zien als sitetype NB is.

Heeft iemand een idee wat hier fout gaat en of het uberhaupt mogelijk is deze functie te gebruiken bij twee varaiablen.

Thanks,

Peter

 

[epetzen]

Ik ben undertussen ietsje verder, het tweede keuze vlakje zit in de blnvisible script.

Op het moment dat je deze selecteerd zou je dus iets moeten aangeven in de afterupdate dat hij dit record niet meer geselecteerd heeft.

Weet iemand of je dat kan aangeven met een command.

Thanks,

Peter

 

[WimenBeer]

Ik ben undertussen ietsje verder, het tweede keuze vlakje zit in de blnvisible script.

Op het moment dat je deze selecteerd zou je dus iets moeten aangeven in de afterupdate dat hij dit record niet meer geselecteerd heeft.

Weet iemand of je dat kan aangeven met een command.

Thanks,

Peter

Peter,

Kan je een klein voorbeeld bestand van je database opsturen.
Dat kijkt wat makkelijker en kan ik ook volgen wat er gebreurt.

Bedankt
Wim

 

[epetzen]

Ik ben er toch zelf uitgekomen.

Hij bleef focus houden op de tweede keuzelijst waardoor hij de blnvisble loop daarop vastliep.

Ik heb nu voor de bln visible in de afterupdate gezet:

Me.anderrecord.SetFocus

En hierdoor loopt hij wel door.

Evengoed bedankt,