Veld kleur naar waarden

• 

  Dirk Meijer

  07-11-2004 20:12

  Beste forumers,

  ik werk in een database waar orders worden ingegeven. Hierbij maak ik ook gebruik van Statussen dus; 10=Order ingegeven / 50=Factuur geprint / 200=Factuur betaald /etc.

  Nu heb ik dmv voorwaardelijke opmaak de kleur van het veld waar de status in staat opgegeven maar ik werk op dit moment met 6 statussen dus met voorwaardelijke opmaak valt niet te werken. Ik heb ook al gezocht in het forum maar kon niks werkens vinden.

  Heeft iemand een suggestie hoe het wel zou kunnen werken?

  Alvast bedankt,

  Dirk

  ps de status wordt aangegeven dmv code's (10 50 100 150 200 250)
• 

  Bert

  07-11-2004 21:11

  Dit kan je gemakkelijk met wat VB-code.

  Bij NaBewerken ( AfterUpdate )

  Privat Sub NaamVeld ( )

  If NaamVeld.Value = “”10 ( of “Order”) then

  NaamVeld.BackColor=vbyellow (bv.)

  else NaamVeld.BackColor=vbwhite

  End If

  End Sub

  Suc6 Bert
• 

  RobV

  08-11-2004 00:22

  in dit geval is het werken met select case een wat makkelijkere optie
• 

  JaapT

  08-11-2004 21:40

  Dirk,

  Er zijn verschillende mogelijkheden.

  Ik denk zelf dat een goede mogelijkheid is om eem tabel te maken

  met daarin het status_ID en bijbehorende kleur.

  In je form kun je nu eenvoudig b.v. met de instructie Dlookup de juiste kleur ophalen.

  Succes,

  Jaap
• 

  Anton

  09-11-2004 13:11

  Hoi JaapT,

  Ik ben al een tijdje aan het klooien met dat Dlookup, maar ik kom er maar niet uit.

  Ik heb een engelse verzie en zelf met behulp van de Help krijg ik het niet voor elkaar.., (ben ook nog maar een leek met dat VBA gedeelte)

  Als jij of iemand anders me hiermee, in zou kunnen helpen, dan heel graag.

  Table name: Type

  - Number - Type - Discription

  Form name: Add

  Field1 = Type (komt het type in te staan)

  Field2 = Moet het Number in komen staan van table Type

  Field3 = Moet het Discription in komen staan van table Type

  Het zou eigenlijk heel simpel moeten zijn (schijnbaar) maar ik krijg het niet voor elkaar…

  Alvast bedankt,

  Anton