Kolommen verbergen en zichtbaar maken in subformulier

[Robert971]

Iemand een idee hoe je dmv een selectievakje kolommen in een subformulier kan verbergen en zichtbaar maken.

Ik heb een selektievakje in het subformulier gezet met een VBA code erachter (gebeurtenis na bijwerken), maar krijg het niet werkend.
Zie tabblad Financieel....

Bestandje is bijgevoegd.Bekijk bijlage Contracten DesktopNieuw.zip

 

[OctaFish]

Vind je vast niet erg als ik daar morgen overdag naar kijk

 

[edmoor]

Ik zou 'm zo doen:

Private Sub Selectievakje29_AfterUpdate()
    Me.Controls("RegAantalUur").Visible = Me.Selectievakje29
End If

 

[Robert971]

Je code werk idd, alleen zou graag willen dat de kolom ook inschuift...nu blijft er een open ruimte zichtbaar tussen kolom TariefID en RegTarief, is het mogelijk deze ruimte te verbergen zodat de kolommen naast elkaar staan (zonder tussenruimte)?

ps: is overigens prima dat vandaag wordt gereageerd, was idd een laat bericht gisteren:thumb:

 

[edmoor]

Ok. Probeer het eens zo:

Private Sub Selectievakje29_AfterUpdate()
    If Selectievakje29 Then
        Me.Controls("RegAantalUur").Width = 0
        Me.Controls("RegAantalUur").Visible = False
    Else
        Me.Controls("RegAantalUur").Width = 1440
        Me.Controls("RegAantalUur").Visible = True
    End If
End Sub

Dat kan vast korter maar dat weet OctaFish veel beter dan ik.
Ik ben niet echt thuis in Access maar vond het leuk om eens een kijkje te nemen m.b.t. je vraag.
Een vraag die je overigens ook vandaag stelde, al was dat erg vroeg

 

[Robert971]

Werkt prima, bedankt dat je ernaar wilde kijken.
Het was zeker vroeg vandaag

 

[edmoor]

Graag gedaan. Maar ik ga de rest van deze prachtige dag anders besteden

 

[OctaFish]

Ik word zo te zien werkeloos gemaakt in mijn eigen 'tuintje' ... Awel, tijd dat de jeugd het over neemt
Maar de code kan korter, dat had Ed goed gezien.

Function RegUren()
    With Me.Controls("RegAantalUur")
        .Width = Abs(Nz(Me.Selectievakje29, 0)) * 1440
        .Visible = Nz(Me.Selectievakje29, 0)
    End With
End Function

 

[edmoor]

Zoals ik al zei, jij weet dat veel beter dan ik. Maar ik had er zin aan om er eens naar te kijken

Edit:
Keurig gedaan trouwens met Abs en Nz functies :thumb: