MS Access vba kleur veranderen knoppen via functie

[Morrey]

Beste mensen,

ik wil graag door middel van een functie/sub het mogelijk maken om de kleur van controls te wijzigen:

changeColor(ControlName, ColorA, ColorB).

Nu wil ik dit zo generiek mogelijk maken, dat ik ongeacht welke formulier openstaat, deze functie aan kan roepen. Hoe kan ik dit het beste aanpakken?

Mvg

Maurice

[Morrey]

Iets duidelijker misschien:
Ik weet dat ik via forms!formName!buttonName.BackColor = RGB(127,127,127) grijs maak, maar hoe verwerk ik dit in een functie:

changeColor("forms!formName!buttonName", RGB(127,127,127),RGB(255,255,255))

ik weet dus niet hoe ik de knoplocatie moet aanroepen (forms!formName!buttonName) in de functie/sub

Thanks!

Maurice

[Witte]

Je zou zoiest kunnen doen:

code:

sub ChangeColor (formnaam, controlnaam, kleurtje)
Dim myForm As Form
Dim myControl As Control

For Each myform In Forms
  if myForm.Name = formnaam then
    For Each myControl in myForm.Controls
      if myControl.Name = controlnaam then myControl.BackColor = kleurtje
    Next
  end if
Next

End Sub