Access2003 VBA : generic functions

[wquatan]

I would to know if it is possible to write generic functions to set properties on form.fields

A quick example to show what I mean :

Instead of
Me!FieldA.BackColor = 255
Me!FieldB.BackColor = 255
...

Sort of substitution :
SetBackColor("FieldA")
SetBackColor("FieldB")

Function SetBackColor(Fieldname)
Me!%Fieldname%.BackColor=255
End Function

The %Fieldname% dynamically replaced by FieldA FieldB

The example doesn't make very much sense, it's only purpose is to show the idea.

Are there any possibilities to realize such a solution ?

Thx

[FishVal]

Hi, there.

It looks like you don't like OOP. ;)
Or you just wanted to ask "how can I pass to my function reference to object?"

Anyway I have a good news - reference to object may be passed to sub/function just like any other variable.

Example:

Public Sub SetBkColor(ByRef txbTarget As Access.TextBox, _
                                  ByVal lngColor as Long) 
    txbTarget.BackColor = lngColor
End Sub
 

then in form module

SetBkColor Me.txtSomething, 255
 

or taking into account that several control types have BackColor property, something like this

Public Sub SetBkColor(ByRef objTarget As Variant, _
                                  ByVal lngColor as Long) 
    On Error Resume Next
    objTarget.BackColor = lngColor
End Sub
 

then in form module

SetBkColor Me.cboSomething, 255
 

Regards,
Fish

[wquatan]

Hi, there.

It looks like you don't like OOP. ;)
Or you just wanted to ask "how can I pass to my function reference to object?"

Anyway I have a good news - reference to object may be passed to sub/function just like any other variable.

Example:

Public Sub SetBkColor(ByRef txbTarget As Access.TextBox, _
                                  ByVal lngColor as Long) 
    txbTarget.BackColor = lngColor
End Sub
 

then in form module

SetBkColor Me.txtSomething, 255
 

or taking into account that several control types have BackColor property, something like this

Public Sub SetBkColor(ByRef objTarget As Variant, _
                                  ByVal lngColor as Long) 
    On Error Resume Next
    objTarget.BackColor = lngColor
End Sub
 

then in form module

SetBkColor Me.cboSomething, 255
 

Regards,
Fish

Hi Fish,

Sure I like OOP, the problem is that I'm writing a system with a dozen of forms and a huge number of fields, which need all the same formatting and conditional testing. It would be a great waste of time (and resources) to do that over-and-over for any of them.

Thank you very much for your input, it's exactly what I was looking after. Great ! :-)

Greetz
Walter

[FishVal]

Glad, it helped you.
Good luck and happy coding.