Lille VBA ting Haster venligst

Jeg ved ikke helt, hvad det er du vil! Prøv evt. det her:

If Text100.Value = "ID=""1"""
  text1.Value = "ID=""1"""
ElseIf Text101.Value  = "ID=""2"""
  text1.Value = "ID=""1"""
End IF

Det vil hjælpe en hel del, hvis du viser hele din kode og samtidig giver et eksempel på hvad det er du vil...

Du kan referere til dine textfelter med Controls("Text100")
Eller fx Control("Text" & i).Value=i

- Morten

Jeg har ingen kode endnu andet end en form open.
Et simpelt eks. kunne være.

tabel 1 indeholder
ID  TAL
1    100
2    200
3    300

så laves en form 1 hvor denne baseres på tabel 1, men formen er en 'continious form' det vil sige at der nu kun vises 1 felt per record der vælges i recordselectoren. Dette kalder vi text100.

Jeg ønsker nu at lave 3 stk unbound felter i formen, hvor det første felt (text500) er værdien af text100 hvor ID = "1"

det næste kunne hedde

(text501) er værdien af text100 hvor ID = "2"

Osv.

(text502) er værdien af text100 hvor ID = "3"

Måske kan du bruge DLookup-funktionen sådan her

  Text500 = DLookup("TAL", "[Tabel 1]", "ID = 1")
  Text501 = DLookup("TAL", "[Tabel 1]", "ID = 2")
  Text502 = DLookup("TAL", "[Tabel 1]", "ID = 3")

Du kunne sætte Control Source:
=DLookUp("TAL";"tabel 1";"ID=1")

Men er du sikker på at det er det du vil?
Det giver ikke meget mening.

- Morten

Shit... Jeg bliver vist nødsaget til t give jer hver 30 point, MEN...
Jeg er en TÅBE idet feltet ikke kommer fra en tabel med er et beregnet felt direkte i formen der ændrer værdi fra ID til ID

Hvordan kommer vi videre med dette når jeg nu er sådan en NAR.

Så skal du jo bare forklare lidt bedre hvad du er ude efter. ;-)

- Morten

hnto >> Hvorfor er nødsaget til at dele points, når dit problem ikke er løst endnu? Hvordan bliver felterne beregnet?

Eller er du ude efter at de tre felter skal udfyldes alt efter hvilken ID du er på?
Altså:
Hvis ID=1, skal text501 udfyldes
Hvis ID=2, skal text502 udfyldes
osv

- Morten

det drejer sig om et et budget skema. i en tabel er der lagret de relevante poster samt måneder. Da access ikke som excel kan lave en sum i et nyt felt  længst ude til højre har jeg lavet et felt direkte i formen der er summen af jan, feb....dec for hver record.

Nu har jeg så på min continoues form en sum for hver record horisontalt, men man vil jo gerne vide hvad det samlede budget er hvorfor dette beregnede felt nu skal summeres vertikalt for hver record via en ny text element.

Jeg ville egentlig lave et element for hver record, hvorfor jeg angav en ID som WHERE clausul.

Er dette bedre at forstå. ( burde måske have skrevet det sådan fra starten)

Hvad med:
Control Source
=DSum("TAL";"tabel 1";"ID<=" & [ID])

- Morten

Så vidt jeg har forstået, har du en tabel der ligner det her

ID  Jan  Feb  Mar
1    20    30    10
2    50    30    20
3    10    10    10
4    30    30    20

Det, du vil have er at lægge tallene sammen på et nyt felt i din formular sådan her:

ID  Jan  Feb  Mar    Sum
1    20    30    10    60
2    50    30    20    100
3    10    10    10    30
4    30    30    20    80

Har jeg forstået rigtigt?

Morten.
Jeg er ikke med på din løsning da jeg synes at se at denne baseres på tabellen.

Hvorfor dette da den værdi der ønskes summeret ikke er en del af denne tabel, men et beregnet textelement i formen. ?
Eller ser jeg noget galt.?

somaliomar:

Yes det er korrekt. Dit SUM felt beregner nemlig nu værdierne horisontalt for hver record.

Din løsning er også hvor jeg nu er nået til. Det der mangler et at SUM også bliver lagt sammen vertikalt så jeg får et felt med værdien 270

Så laver du et nyt unbound textbox i din formular og giver tekstboksen værdien

  =[Jan]+[Feb]+[Mar]

Du er nødt til at summere op fra tabellen, da du ikke kan summere op fra de forskellige records på formularen (i det mindste ikke på en fornuftig måde).
Så du er altså nødt til at lave sammentællingen igen udfra de data der ligger i tabellen.

Hvis du vil summere flere tal fra samme record (jan, feb, mar...), så skriver du det ind i din dsum funktion.
=DSum("[Jan]+[Feb]+[Mar]...";"tabel 1";"ID<=" & [ID])

- Morten

Ups... Læste forkert. Hvor vil du have et felt med værdien 270?

Ikke forstået... det er jo det der sker i feltet SUM ?!?

Ja, men feltet sum eksisterer kun i formularen, og du kan ikke sammentælle på tværs af records i tabellen på en formular, kun på en rapport.

- Morten

Shi... okay... sidste ting

Er der forslag til alternative måder at opbygge et budget skema i access på ( skal være access af andre hensyn )

somaliomar:

Inde i formen

Prøv at oprette en textbox nederst i din formularfod med værdien

  =Sum([Jan])+Sum([Feb])++Sum([Mar])

Hovsa... Det skal være sådan her

  =Sum([Jan])+Sum([Feb])+Sum([Mar])

;-))))))))))))))))))))))

Sådan ... takker

hnto >> Jeg takker for points. Jeg synes, at Morten er blevet snydt for points.

mortrr >> Jeg synes, at du også skal have nogle points. Skal vi dele de 60 points? Jeg kan hurtigt oprette et spm... :)

Nej - det er helt fint.
Jeg troede jo at han var ude efter en akkumuleret sum, og ikke en total-sum.

- Morten

OK :)