sub formulier

[paul jacobs]

Ik wil graag in een formulier een subformulier maken en die kunnen verbergen en laten zien met een knop .
Het maken van het formulier is geen probleem maar wel het maken van de knop …
Kan iemand mij helpen?
Groeten Paul jacobs

 

[Cornee]

Hallo Paul,

Zet deze code onder de knop bij de gebeurtenis:
"Bij Klikken"

=============
Private Sub cmdWeergevenVerbergen_Click()
If Me.frmSub.Visible = False Then
Me.frmSub.Visible = True
Me.cmdWeergevenVerbergen.Caption _= "Verbergen"
Else
Me.frmSub.Visible = False
Me.cmdWeergevenVerbergen.Caption = "Weergeven"
End If
End Sub
============
cmdWeergevenVerbergen is de naam van je Knop
frmSub is de naam van de Subform.

Let wel. : met naam bedoel ik de naam van het besturingselement (zie Tabblad Alle)

Succes Corné

 

[paul jacobs]

dank je wel het werkt !