Lave en fælles function for flere kontrolelementer til farveskift

yes
In the controls On Click Event property (for exampel)

you would write
=YourFunction()

You make your function as normal and in the controls event call the function as described above.

If the function takes paramaters you just add them to the call

=YourFunction(1, "Hej")

>Terry
Hvordan skrives functionen så den referere til alle felter F.eks
If IsNull(Me) then
Me.backcolor= 454545
else
Me.backcolor =121212
End if

Den virker ikke på Me - hvad skal der stå istedet ?

Private Sub felt1_BeforeUpdate(Cancel As Integer)
If Me.felt1 = "a" Then
Me.felt2.BackColor = 255
End If
End Sub

Me refererer til den aktuelle formular. Me med en punktumnotation efterfulgt af et feltnavn refererer til formularens felt. f.eks:

Me.felt1 > refererer til den akruelle formular's felt1.

I det tidligere nævnte eksempel kan du indsætte flere kommandoer:

If Me.felt1 = "a" Then
Me.felt2.BackColor = 255
Me.felt3.forecolor = 255
Me.felt4.Visible = False
o.s.v.
End If

pecl>I have NO idea what your trying to do so ist hard to give e precise example!

Lets say you make a function

MyFunction (inVal as Integer)

select case inval

case 1
Me.backcolor= 454545
Case 2
Me.backcolor =121212
Case 3
Me.backcolor = ......
End select


Then in the after update (example) event for a field (directly in the property)

you could write

=MyFunction(1)

and in the On click event for a button you could write

=MyFunction(2)



End function

oops

MyFunction (inVal as Integer)

select case inval

case 1
Me.backcolor= 454545
Case 2
Me.backcolor =121212
Case 3
Me.backcolor = ......
End select

End function

> hej Terry
Så er jeg tilbage..
Jeg har en formular med mange tekstfelter som efter indtastning bliver tilføjet via en tilføjelsesforespørgsel.
Det jeg så ønsker er en generel function som skifter farven på det tekstfelt der bliver skrevet i.  det skal  kun virke mens formularen er åben indtil forespørgslen bliver kørt. Så jeg mente at hvis der findes en function der virker på <Aktuelle felt> så kan man undgå at skrive så meget kode.

No matter which method you use it will ALWAYS require something from you. By this I mean change a property to tell Access what colour a specific field is to have and under which conditions. The code I have given so far should work, but as I say it requires something from you.

You may also be able to use conditional formatting, but again YOU have to tell Access that you are using it and what is supposed to happen and when. Conditional formatting is found by selecting one or more fields and then in the formatting menu choose conditional formatting. If thats not what you want then I think your out of luck :o(

pecl>thanks for the points, I hope you got a solution you could use ?

>Terry
Jeg fik ikke hvad jeg søgte efter - det kan nok ikke lade sig gøre - men din function med case 1 - case 2 osv. gør da kodeskrivningen mere overskuelig istedet for at skrive en function ved hvert kontrolelement.

Actually the SELECT Case was what I thought you were after. Have you looked at conditionla formatting?

>Terry
Jeg køre access97 - så jeg har ikke betinget formatering. Men Select case virker fint og gør det mere overskueligt.

OK :o)