Avatar billede shifu Nybegynder
20. februar 2006 - 12:58 Der er 13 kommentarer og
2 løsninger

PROGRAMKODE : Beregn beløb ud fra km i VBA

Hej

Jeg oprettet 2 tekstbokse, (Ubundet). De har følgende navne: "km" og "godtgorelse".

Meningen med dette er at jeg vil indtaste afstand i "km", hvor efter beregningen udføres og skrives i "godtgorelse". Jeg ved det skal laves i programkode, men jeg kan ikke rigtig hitte ud af at overføre værdier, tillægge værdier og få dem vist i "godtgorelse". Så mit spørgsmål er, hvordan får jeg indholdet af "km" overført og hvordan for jeg de behandlede data vist i "godtgorelse"?

Håber mit spørgsmål er til at forstå!
Avatar billede jensen363 Forsker
20. februar 2006 - 13:11 #1
Skal km og godtgørelse gemmes i en tabel ?
Avatar billede mugs Novice
20. februar 2006 - 13:15 #2
I de 2 ubundne tekstbokse kan du i BeforeUpdaste skrive:

Me!godtgorelse = km * godtgorelse.

Men du vil få problemer, idet du har 2 felter med navnet godtgorelse, dels det ubundne tekstboks og det andet felt med samme navn, som jeg antager er et felt i tabellen / formularen.
Avatar billede shifu Nybegynder
20. februar 2006 - 13:47 #3
tekstfelterne er oprettet i formularen og skal gemmes i samme.

mugs! Jeg forstår ikke rigtigt det med de 2 felter har samme navn. Det ene feltnavn har "km" og det andet feltnavn har "godtgorelse". Eller der der noget jeg har misforstået?

Altså - Jeg skriver afstand i "km". Når jeg trykker Enter, skulle beregningen udføres og automatisk vises i "godtgorelse".
Avatar billede jensen363 Forsker
20. februar 2006 - 13:51 #4
Private Sub km_AfterUpdate()
  Me.godtgorelse = Me.km * sats
End Sub
Avatar billede mugs Novice
20. februar 2006 - 13:56 #5
Så har jeg misforstået. Du skriver, at du har 2 ubundne tekstbokse der hedder "km" og "godtgorelse". Derudover troede jeg, at du havde et felt fra tabellen som også hed godtgorelse.

Desuden skriver du:

"tekstfelterne er oprettet i formularen og skal gemmes i samme."

Disse tekstfelter er jo ubundne, og de kan derfor ikke gemme en værdi. Men ellers burde jensen's forslag fungere.
Avatar billede shifu Nybegynder
20. februar 2006 - 14:11 #6
Nå for f.. {:o)

Ubundne - et foreslag til hvordan jeg gør dem bundne eller andet så de kan gemmes?

(I mellemtiden vil jeg afprøve jensen363 forslag)
Avatar billede jensen363 Forsker
20. februar 2006 - 14:11 #7
Så er vi tilbage til om felterne skal "bindes" til en tabel
Avatar billede jensen363 Forsker
20. februar 2006 - 14:16 #8
Hvis du har en tabel indeholdende både km og godtgørelse, benyttes denne som datakilde for formularen, og de to felter km og godtgorelse bindes til tabellen.

Private Sub km_AfterUpdate()
  Me.godtgorelse = Me.km * sats
End Sub

gør fortsat arbejdet med at opdatere/gemme værdien i hhv. km og godtgorelse
Avatar billede shifu Nybegynder
20. februar 2006 - 14:18 #9
Aha! Vil det sige at jeg skal oprette felterne i tabellen, før de kan gemmes? I så fald er proceduren, (Private Sub....), den samme?
Avatar billede jensen363 Forsker
20. februar 2006 - 14:20 #10
Korrekt ;o) ...
Avatar billede shifu Nybegynder
20. februar 2006 - 14:21 #11
jensen363!

Du har allerede svaret på mit sidste spørgsmål!!
Nu vil jeg afprøve dit forslag!

Rigitg mange tak for hjælpen og hvordan giver jeg så pointe?
Avatar billede jensen363 Forsker
20. februar 2006 - 14:24 #12
Du bestemmer selv fordelingen :o)
Avatar billede mugs Novice
20. februar 2006 - 16:17 #13
Principielt er det forkert at gemme data i en tabel, hvis de kan genberegnes i enten forespørgslen eller formularen.
Men hvis satsen er variabel er det selvfølgelig en anden snak, så skal godtgørelse gemmes for at bevare historikken.
Tak for point.
Avatar billede shifu Nybegynder
20. februar 2006 - 16:23 #14
Satsen er variabel. Idet der er 3 forskellige satser baseret på antal kilometer

Nu er det afprøvet og implementeret.

Alt virker lige nøjagtig som jeg have tænkt det skulle virke!

TAK for hurtige svar og hjælp! Kanon!!
Avatar billede mugs Novice
20. februar 2006 - 16:48 #15
Selv tak :o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Paradoksalt at staten binder sig til Microsoft med ny mangeårig aftale: ”Lad os håbe, at det er slut, når den her kontrakt udløber," siger toprådgiver