11
Excel / Re: Bestand voor genealogie
« Laatste bericht door mvdvlist Gepost op Gisteren om 12:19:34 »Beste Genealoog, dit voorbeeldje hoort in een Loop.
Deze kan natuurlijk ook in een If
Voorbeeldje: Je TextBoxen noem je bv T1 tm T12
Dan kan de code zijn:
Dan worden je TextBoxen gevuld met de cijfers 1 tm 12. Daar staat immers die A voor.
Je kunt dit ook perfect gebruiken om bv labels een Caption te geven gelijk aan de kolomkoppen in je tabel
BV:
Voorwaarde is dan dat de labels gewoon Label1 tm Label12 heten.
En als je later dus een kolomkop aanpast, gebeurt dit ook automatisch in het formulier.
Voorbeeldje toegevoegd...
Deze kan natuurlijk ook in een If
Voorbeeldje: Je TextBoxen noem je bv T1 tm T12
Dan kan de code zijn:
Code: [Selecteer]
For A = 1 to 12
Me.Controls("T"& A).Value = A
Next A
Dan worden je TextBoxen gevuld met de cijfers 1 tm 12. Daar staat immers die A voor.
Je kunt dit ook perfect gebruiken om bv labels een Caption te geven gelijk aan de kolomkoppen in je tabel
BV:
Code: [Selecteer]
For A = 1 to 12
Me.Controls("Label" & A).Caption = Sheets("HUP").Cells(1,A).Value
Next A[
Voorwaarde is dan dat de labels gewoon Label1 tm Label12 heten.
En als je later dus een kolomkop aanpast, gebeurt dit ook automatisch in het formulier.
Voorbeeldje toegevoegd...