Userform

[fcwiv]

Beste,

Ik ben op zoek naar een oplossing voor een probleem in excel vba.

Het is mogelijk om een willekeurige control aan te spreken via een functie bijvoorbeeld:

Function dhFirstItem(ctrlNaam as string)
Userform1.controls(ctrlNaam).listindex=0
end Function

Maar kan je dit ook doen met een Userform??
Dus bijvoorbeeld:

Function dhUF_Item(frmNaam as string)
frmNaam.controls(ctrlNaam).listindex=0
end Function

Fred

 

[paulva]

Forms kunnen in runtime (bij mijn weten) niet bijgemaakt worden. Wellicht is die mogelijkheid dus om die reden niet voorzien. Via een codegetal is dit probleem(pje) echter wel op te lossen.

Function dhUF_Item(intNummer as integer)
Select Case intNummer
Case 1
    frm1.Controls(ctrlNaam).ListIndex = 0
Case 2
    frm2.Controls(ctrlNaam).ListIndex = 0
Case 3
    frm3.Controls(ctrlNaam).ListIndex = 0
End Select
end Function

 

[fcwiv]

Bedankt voor uw reatie.

Uw oplossing is inderdaad simpel, maar daar kom je zeker in de knel als je moeilijke handelingen wil gaan verichten.

Userform kan je wel on runtime aanmaken en zelfs code kan je on runtime aanmaken.
Maar dat ter zijde.

Het gaat hier met name om het aanspreken van verschillende userfoms binnen 1 functie.

Met controls is dit zo opgelost, maar ik ben op zoek naar een oplossing met userforms.

Groet,

Fred

 

[fcwiv]

Opgelost

Beste,

Deze topic mag op slot.
Ik heb het opgelost.

Groet,

Fred

 

[Cedexis]

Misschien kunt u de oplossing delen? Dat is voor andere eventueel ook interessant?