VBA-code werkend krijgen

[rvdsch]

Beste forummers,

Ik heb een formulier met daarop een Ja/Nee vakje genaamd 'Doorgeleverd'. Ik wil dat als het vakje aangevinkt wordt een ander veld zichtbaar wordt. Dit is mij gelukt met de volgende code.

Private Sub Doorgeleverd_AfterUpdate()

If Me.Doorgeleverd = True Then
Me.Klant.Visible = True
Me.NaamBedrijf_Etiket.Visible = True

Nou wil ik graag dat als het vakje uit staat dat de velden "klant' en 'NaamBedrijf_Etiket" niet meer zichtbaar zijn. Daarom heb ik dit stukje code rechtstreeks onder de bovenstaande;

If Me.Doorgeleverd = False Then
Me.Klant.Visible = False
Me.NaamBedrijf_Etiket.Visible = False

Dit staat ook bij het Doorgeleverd_AfterUpdate()

Deze code werkt helaas niet. Iemand enig idee waar dat aan kan liggen. Ik selecteer dus het vakje Doorgeleverd, ik krijg het veld 'klant' en 'naamBedrijf_etiket' te zien. Ik zet het vakje op nee maar dan verdwijnen de velden 'klant' en ''NaamBedrijf_etiket' niet.

Ik gebruik 'End IFs' en de velden 'klant' en 'naamBedrijf_etiket' staan standaard op Niet Zichtbaar

 

[Undertaker]

Hoi rvdsch,

Ik ben niet wat men noemt een prof, maar een beetje acces ken ik wel.

Op het knopje waar je alles nar keuze uit wilt hebben mis je een regel

[CPP]If Me.Doorgeleverd = False Then
Me.Klant.Visible = False
Me.NaamBedrijf_Etiket.Visible = False[/CPP]

(als je nu dus op deze knop drukt dan doet hij werkelijk wat hij moet doen enkel zie jij dat niet staan. Wat volgens mij de juiste manier zou moeten zijn is het volgende

[CPP]If Me.Doorgeleverd = False Then
Me.Klant.Visible = False
Me.NaamBedrijf_Etiket.Visible = False
me.klant.requery
me.NaamBedrijf_Etiket.requery[/CPP]

Requery is niks meer dan refresh.

Omdat dat niet gebeurd zie jij het resultaat niet van hetgene dat je veranderd hebt.

Ik hoop dat het werkt.

 

[Bakk4318]

Probeer onderstaande code eens:

Private Sub Doorgeleverd_AfterUpdate()

If Me.Doorgeleverd = True Then
Me.Klant.Visible = True
Me.NaamBedrijf_Etiket.Visible = True
Else
Me.Klant.Visible = False
Me.NaamBedrijf_Etiket.Visible = False
End Sub

 

[rvdsch]

Hoi Undertaker & Bakk4138,

Bedankt voor jullie reacties. Undertaker, ik kreeg hem met jouw code niet aan de praat. Het probleem zat dat de requery op NaamBedrijf_Etiket niet mogelijk was.
Bakk4138 hij loopt nu perfect:thumb:

Beiden hardstikke bedankt:thumb:

 

[Bakk4318]

mooi zo graag gedaan

 

[Undertaker]

Hoi Undertaker & Bakk4138,

Bedankt voor jullie reacties. Undertaker, ik kreeg hem met jouw code niet aan de praat. Het probleem zat dat de requery op NaamBedrijf_Etiket niet mogelijk was.
Bakk4138 hij loopt nu perfect:thumb:

Beiden hardstikke bedankt:thumb:

Toen ik die van bakk4138 las dacht ik, ow ja dat is waar. gelukkig is het nu opgelost.