velden tonen-verbergen

[Friend]

Beste forummers, een vraagje via het aanvinken van een ja /nee veld laat ik een aantal velden op mijn formulier die standaard op niet zichtbaar staan verschijnen.

Private Sub rekadresverm_Click()
If Me.rekadresverm = True Then
  Me.rekbedrijfsnm.Visible = True
  Me.rekrelatienummer.Visible = True
  Me.rekadres.Visible = True
  Me.rekhsnr.Visible = True
  Me.rektoev.Visible = True
  Me.rekpostc.Visible = True
  Me.rekwoonpl.Visible = True
  Me.rekland.Visible = True
  Me.rektel1.Visible = True
  Me.rektel2.Visible = True
  Me.rekmobiel1.Visible = True
  Me.rekmobiel2.Visible = True
  Me.rekfax.Visible = True
  Me.rekemail1.Visible = True
  Me.rekemail2.Visible = True
  Me.rekwww.Visible = True
  Me.rekbnkrek.Visible = True
  Me.rekadrmut.Visible = True
  
Else
  Me.rekbedrijfsnm.Visible = False
  Me.rekrelatienummer.Visible = False
  Me.rekadres.Visible = False
  Me.rekhsnr.Visible = False
  Me.rektoev.Visible = False
  Me.rekpostc.Visible = False
  Me.rekwoonpl.Visible = False
  Me.rekland.Visible = False
  Me.rektel1.Visible = False
  Me.rektel2.Visible = False
  Me.rekmobiel1.Visible = False
  Me.rekmobiel2.Visible = False
  Me.rekfax.Visible = False
  Me.rekemail1.Visible = False
  Me.rekemail2.Visible = False
  Me.rekwww.Visible = False
  Me.rekbnkrek.Visible = False
  Me.rekadrmut.Visible = False
End If
End Sub

Alleen als ik dan naar het volgende record ga waar het ja/nee veld niet is aangevinkt staan de velden toch vermeld(zichtbaar) Wat kan ik hier aan doen dat ze alleen zichtbaar zijn in het betreffende record als alleen ja is aangevinkt? Hoor graag Thanks Friend

 

[dancorave]

Zet die opdracht in een module en vraag die op bij het veranderen van record.

 

[Friend]

Dancorava, hartelijk dank:thumb:, kan je mij ook zeggen waar ik die functie kan vinden : bij veranderen record ?? als ik bij de tab gebeurtenis kijk kom ik het namelijk niet tegen ? Friend

 

[OctaFish]

Je moet de hele check opnieuw laten uitvoeren bij het OnCurrent event van het formulier. Je wilt immers dat alle velden worden gereset als je naar een nieuw record gaat.
Daarom kun je het beste de hele code vanaf Regel 2 t/m regel 41 in een Functie op het formulier zetten, die je dan kunt aanroepen bij de knop en bij de functie OnCurrent. Ziet er dan zo uit:

Private Sub rekadresverm_Click()
     Call Resetten
End Sub

Private Sub Form_Current()
     Call Resetten
End Sub

Private Function Resetten()
If Me.rekadresverm = True Then
  Me.rekbedrijfsnm.Visible = True
  Me.rekrelatienummer.Visible = True
  Me.rekadres.Visible = True
...
  Me.rekwww.Visible = True
  Me.rekbnkrek.Visible = True
  Me.rekadrmut.Visible = True
  
Else
  Me.rekbedrijfsnm.Visible = False
  Me.rekrelatienummer.Visible = False
  Me.rekadres.Visible = False
  Me.rekhsnr.Visible = False
...
  Me.rekwww.Visible = False
  Me.rekbnkrek.Visible = False
  Me.rekadrmut.Visible = False
End If
End Function

 

[Friend]

OctaFish, dank voor your replay:thumb::thumb:. Nog even je hulp nodig : OnCurrent event waar zie/vind/plaats ik dit precies. Ik begrijp dat ik alle code's dan onder elkaar plaatst. Thanks pro !! Friend

 

[OctaFish]

Dat is de gebeurtenis <Bij aanwijzen>. Als je mijn code in het formulier plakt, ben je al klaar...

 

[Friend]

OctaFish, sorry ik heb toch je hulp nog even nodig. Je geef mij 3 x een code. Ik ga ervan uit dat ik de eerste moet plaatsen onder mijn ja /nee veld. De tweede ?? kan ik niet goed plaatsen en de derde doe ik dan bij formulier gebeurtenis bij aanwijzen. Zodra ik op het veld Ja/Nee klik geeft hij de melding : Compileerfout Sub of Function is niet gedefineerd. :shocked: Hoor weer graag van je. Friend

 

[Friend]

OctaFish, laat op de avond maar het zonnetje schijnt. Na wat denkwerk heb ik de 2e code voor de 3e gezet bij het formulier bij aanwijzen en het werkt. Geweldig :thumb::thumb: Je hulp wordt weer zeer gewaardeerd. Thanks again. Friend