Bruge Tekstbox - som variabelt navn i VB

Jeg bruger denne sætning sammenkoblet med en betingelse i feltet med navnet Felt1:

Dim lngRed As Long, lngYellow As Long, lngBlack As Long, lngWhite As Long
lngRed = RGB(255, 0, 0)
lngYellow = RGB(255, 255, 0)
lngBlack = RGB(0, 0, 0)
lngWhite = RGB(255, 255, 255)
If Felt1 < "4" Then
Felt1.ForeColor = lngRed
Else
Felt1.BackColor = lngBlack
End If
Me.Refresh

Jeg er ikke helt sikker på jeg forstår det.. for det er meningen at f.eks. Felt1 skal være = "Tekstfelt34"



Problemet er at jeg har ca. 47 felter som jeg tjekker i en for løkke derfor har jeg lavet et modul, med en funktion som henter navnet på tekstfeltet fra min form.

OK - Jeg troede fejlen havde noget at gøre med forecolor siden du skrev det.

Prøv at undlade apostroffer og runde paranteser omkring feltnavn således:

Forms!test.[Feltnavn].ForeColor = lngYellow

så får jeg fejlemeddelelsen at Acces ikke kan finde Feltet Feltnavn, der refereres til i udtrykket.. jeg kører 97 :-/

97 kan jeg ikke klare længere. Denne er afprøvet i ACC 2000 og fungerer:

Modulet:
Public Function test()
[Forms]![form1]![Tekst23] = "hej"
[Forms]![form1]![Tekst23].forecolor = 255
End Function

Kaldes fra Form1 med denne:

Private Sub Kommandoknap25_Click()
test
End Sub

Jeg afprøver lige

Hvis du lægger din e-mail, kan jeg sende dig mit afprøvede eksempel.

Ja - det virker jo hvis jeg skriver den direkte henvisning til tekstfeltet F.eks. som du har beskrevet med
[Forms]![form1]![Tekst23].forecolor = 255

Men igen vil jeg jo gerne have at Tekst23 skal hedde Feltnavn som så indeholder værdien "Tekst23"
Det virker også med Forms!Form1.Tekst23 men lige så snart jeg prøver at sætte variablen "Feltnavn" ind med "" eller & eller [ om, så får jeg medelelsen om at feltet Feltnavn ikke findes..

Kommer her bj65@live.dk

Feltnavnet er jo databærende, derfor mener jeg ikke, at hverken apostroffer eller () vil fungere.

Hvorfor vil du bruge variablen Feltnavn?

Det er en kalender, og jeg kan ikke bruge min Kalender.OCX af en eller anden årsag..
Derfor har jeg flikket en sammen som så læser hvert enkelt felt.

Først havde jeg en tabel hvor jeg havde en tekstbox i listeform .. men når jeg ville have ændret en dato til at have farven gul blev ALLE datoer gule.. derfor har jeg så lavet dem enkeltvis..

Nu løber jeg så ind i at skulle lave en ens sætning på hver af de mange tekstbokse jeg har.. derfor skal feltnavn bruges som variabel af de enkelte tekstbokse.. :-/ .. Jeg ved godt det er noget "klamphuggeri" :-/

Jeg kigger lige på det som du har sendt :-)

Har du fået mit eksempel med All Controls??

Jeg har fået en med Beregn Alder

ok her er den

Det er en testdb til beregning af alder ud fra CPR eller fødselsdato, som jeg hurtigt lavede om. Men til dit brug skal du kun bruge Module3 og de 2 kommandoknapper.

Det er ret sikkert det som jeg er ude i ..

If ctl.ControlType = acTextBox
Next ctl
End Function

Hvilket vil spare mig for en masse besvær med at skrive fordi det bliver klaret i een sætning..

Jeg har ikke testet det, men har fattet sammenhængen og det er en stor hjælp :-)
Jeg smider lige en note om og hvis jeg får det til at køre på den måde du har lavet .. lige nu er det lidt sent - men du får points annyway tusind tak for hjælpen .. igen :-)

Selv tak og tak for point. Jeg slutter for iaften, men du vender blot tilbage hvis der opstår problemer.