Besked bestemt af værdi i felt

Opret et label ved siden af tekstboksen, eks kaldet lblWarning

Paa teksboksen skal der ligge en kode paa haendelsen After Update:

If Me.Text12 < 0 Then
Me.LblWarning.Caption = "For lidt paa lager"
Me.LblWarning.ForeColor = vbRed
ElseIf Me.Text12 > 0 Then
Me.LblWarning.Caption = "Nok paa lager"
Me.LblWarning.ForeColor = vbGreen
End If

Label...?

Er det en etiket eller tekst boks?

etiket

Hvis jeg laver en etiket, kan jeg kun skrive hvad der skal stå inde i den. Bruger Access 97.

ja du laver bare en default værdi. Den bliver stadigvæk ændret til den rigtige tekst i henhold til din tekstbox

Virker ikke

Private Sub Tekst14_AfterUpdate()

If Me.Tekst14 < 0 Then
Me.lblwarning.Caption = "For lidt paa lager"
Me.lblwarning.ForeColor = vbRed
ElseIf Me.Tekst14 > 0 Then
Me.lblwarning.Caption = "Nok paa lager"
Me.lblwarning.ForeColor = vbGreen
End If

Feltet er helt blank, selvom der er en minusværdi.

Boksen hedder tekst 14 nu...

har du husket at navngive dit labelfelt lblwarning?

ja...

nu er det vel ikke noget med en af dine underformularere igen :o) Ellers prøv at skrive hele 'stien' i stedet for 'Me', altså noget i retning:

Forms!DinFormular.lblwarning.Caption...
osv.

hov sådan her er vist mere rigtigt

Forms!DinFormular!lblwarning.Caption...

me.lblwarning burde altsaa virke hvis de ligger i den samme formular.

hehe... denne gang foregår det hele i samme formular.. hehe..

Hjælper ikke..

Vi er enige om, at feltet hvor koden skal stå, er i det felt hvor selve værdien er?

Og... det er en værdi der bliver beregnet.. dvs.. den skal først lige beregne det, når den åbnes.

aaah det er der dit problem er. Du indtaster altså ikke selv noget i feltet?

Hvis det er tilfældet så har du 2 muligheder, enten indtaste den kode som overchord har givet dig i AfterUpdate på det felt de rent faktisk indtaster i eller du kan proppe din ind i OnCurrent eventet for hele formen, så skulle det gerne virker.

Faktisk ville jeg gøre det i begge, altså både indtaste koden i AfterUpdate og OnCurrent, på den måde virker den både når de 'cycler' gennem dine records og hvis du indtaster ny info

Så virker det! ;-)

Nu bliver jeg lidt vanskelig.. den grønne er lidt for utydelig.. kan man få den i mørkegrøn?

Hubs du må lige svare.. du har vist også fortjent nogle points.

Den her er lidt grønnere :o)

Me.lblwarning.ForeColor = RGB(0, 128, 0)

du kan selv justere styrken. Jo højere tal (op til 255) jo lysere grøn.

Hmmm... den beregner ud fra nogle poster i detaljesektionen. Hvis jeg skifter post der, ændrer tallet sig. Meldingen ændrer sig dog ikke. Hvor skal jeg sætte koden ind der, for også at ændre melding, når jeg skifter imellem posterne der?

I OnCurrent i formen så burde det virke

hov nej... jeg mener under update for det felt du andre

altså AfterUpdate... puha jeg roder vist lidt rundt i det :o) det må være mangel på det blod jeg donerede i morges :o)

Det virker ikke helt

Den kommer altid med en rød melding... selvom tallet er positivt

Private Sub Form_Current()

If Me.Tekst14 < 0 Then
Me.lblwarning.Caption = "For lidt på lager"
Me.lblwarning.ForeColor = vbRed
ElseIf Me.Tekst14 > 0 Then
Me.lblwarning.Caption = "Nok på lager"
Me.lblwarning.ForeColor = RGB(0, 128, 0)
End If

End Sub

Er det når du bare kigger igennem dine poster, eller når du indtaster noget???

Tallet bliver beregnet af nogle andre tal.

Formularens data sker på baggrund af en anden formular. I den formular kan jeg så åbne en ny formular, som er den vi arbejder i. Dvs. hvis tallet er minus, kan jeg eksempelvis lukke formularen ned, og ændre i de oprindelige data, så tallet bliver positivt.

Det virker også fint.. dog ændrer beskeden sig ikke.

Jeg kan se, at lige når jeg går over i formularen står minus tal der... hvorefter den skifter til et positivt tal.

Tror det er det der skaber problemerne...

Lige for at repetere...
Din "Private Sub Form_Current()" virker i det øjeblik du åbner formen, men kun på de eksisterende data'er, hvis du vil ha at den skal ændre sig alt efter hvad du indtaster i et andet felt, som skal du også sætte koden ind under AfterUpdate for dette felt.

jo det kan sagtens være problemet..
hvordan kan det være at der står et negativt tal først?

lige for at give mig selv et lille overblik. så befinder "Tekst14" sig i én formular og værdien er bestemt af nogle andre felter som befinder sig i en helt anden formular? eller er jeg helt galt på den :o)

Har sat koden ind i Afterupdate... både for formularen, og det enkelte felt.. det hjælper ikke...

De befinder sig i en tabel... som jeg kan ændre i den ene formular... hvorefter jeg åbner en ny formular op, hvor dataene er baseret på tallene i tabellen... med noget lagerstatus.

Der står et negativt tal meget kort... der sker en lager-behov beregning... og det er behov tallet der står som negativt..

aaaah dvs at den formular du åbner kun viser resultater baseret på info fra en tabel, du ændre med andre ord ikke nogen data selv i den nye formular du åbner?

Nej...

Hvis du har sat koden ind i "Form_Current()"  for den nye formular du åbner? så burde den virke.

Kan du gennemse flere poster i den nye formular eller er der kun én post? Hvis der er flere poster så prøv lige at klikke igennem dem, viser feltet stadigvæk
et negativt tal inden det bliver opdateret til det aktuelle, hver gang du skifter mellem de forskellige poster?

Hmm... nu ryger vi i noget underformular!

Der er flere poster i formularen, hvor behovet står.

mene... lagertallene står i en underformular!

lol de pokkers underformularere :o) har du mulighed for at sende DB'en til mig så kan jeg lige kigge på den, hvis den ellers ikke fylder alt for meget

jacob.simonsen@rockwool.com

Det lyder som om dit hovedproblem er at teksten ikke andrer sig fra record til record (eller beregning til beregning). Hvis f.eks feltet er tomt i den naeste post vil det stadig staa med roedt fordi den ikke er andret fra koden. Evt kan du laegge en default vaerdi paa nul ind i tekstfeltet hvor beregningen optraeder (hvorfor den ikke dukker op i hovedformen ved jeg ikke).
Derefter tilfoejer du en
elseif Me.Tekst14 = 0 Then
me.lblwarning.caption = ""

Sendt..

Prøv lige at fjerne hele "Private Sub Betegnelse_LostFocus()" Fra din behovgarn1 formular.

Du kan faktisk fjerne det meste af koden, du behøver kun din Form_Current og din kommandoknap.

Fjernet...

Så er det løst.... synes dette var mest retfærdigt...

Takker mænge gange for points,
Ta evt lige og skriv løsningen, så den kan findes igen :o)

Private Sub Form_Current()
Me.Tekst14 = DSum("[Lager]", "Lager", "[Tykkelse] = '" & Me.Tykkelse & "'") - [SumOfBehov]
If Me.Tekst14 < 0 Then
Me.lblwarning.Caption = "For lidt på lager"
Me.lblwarning.ForeColor = vbRed
ElseIf Me.Tekst14 > 0 Then
Me.lblwarning.Caption = "Nok på lager"
Me.lblwarning.ForeColor = RGB(0, 128, 0)
Else
Me.lblwarning.Caption = "Lager går i nul"
End If
End Sub