Avatar billede anderssk Nybegynder
24. februar 2006 - 17:18 Der er 2 kommentarer

Menu funktion

Hej

Jeg har en formular der hedder Rapporter.
I formularen er der nogle comboboxe.
Indholdet i comboboxe benyttes til rapporterne.

Mit ønske er at formularen er tom ved indgang og ved valg af gruppebokse udvides antallet af mulige rapporter.

Jeg kan gøre det i en almindelig formular med Me.gruppeboks.visible = false
men det er jo kun brugbart når alle gruppebokse er vist.

Jeg mangler altså en eller anden ting som går at alle gruppebokse bliver sat til False når formularen åbnes.
Avatar billede mugs Novice
24. februar 2006 - 18:18 #1
Dim frm As Form, ctl As Control
Set frm = Screen.ActiveForm
For Each ctl In frm
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acListBox Or ctl.ControlType = acOptionGroup Or ctl.ControlType = acCheckBox Or ctl.ControlType = acOptionButton Then ctl.Visible = False
Avatar billede anderssk Nybegynder
24. februar 2006 - 19:12 #2
Det er kun OptionGroup jeg ikke vil have.

Denne vil ikke

Private Sub Rapporter_Open()
Dim frm As Form, ctl As Control
Set frm = Screen.ActiveForm
For Each ctl In frm
If ctl.ControlType = acOptionGroup Then ctl.Visible = False
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester