kasseapperat

Jeg har besvaret en del af sådanne spørgsmål... Kig engang her.

http://www.eksperten.dk/kat/5?searchtype=txt&words=medions+access&method=and&sort=score&catid=5

//>Rune

ehh... syns ikk liiige jeg ka se noget der forklarer det ?? Kald mig bare smådum *S*

Jeg har set programmer hvor man f.eks. tilføjer linier i en faktura og så bare fortsætter med at tilføje linier til man blir træt af det. Jeg kan "kun" finde ud af, at lave det med faste inputfelter. Det er jo bare ikke så smart i længden.

Jeg forestiller mig at der skal være en base for hver dag, en for bon'erne, evt. en for varer. Er det rigtigt og i så fald hvordan får jeg det til at hænge sammen.

Gider du at lave et lille eksempel til mig, så jeg evt. kan se logikken i en relationsdatabase ?

eller henvise til et eksempel...

"kan simpelthen ikke finde ud af, at lave en accessbase hvor jeg kan tilføje flere linier på bon'en "

Hvad mener du med det?
Du har en database - hvad ønsker du at gøre?

Ok. Du behøver ikke lave grin med mig...

Hvis jeg opretter stk, antal og pris så bliver de 3 felter oprettet som en record. Den næste linie i "bon'en" bliver endnu en record. Det er jo forkert. Linierne på bon'en, uanset antallet burde jo gemmes som en record. Eller hvad ?

"Ok. Du behøver ikke lave grin med mig..." - det gør jeg bestemt heller ikke - jeg forstår bare ikke hvad det er du skal have hjælp til :o)

Og det gør jeg stadigvæk ikke - hvad er bon'en - en tabel i en database? Da jeg slet ikke kender til dit program, forstår jeg ikke begreberne "bon", "kasseapparat", "faktura" - hvis du forklare i generelle vendinger hvad du vil, skal jeg gerne forsøge at hjælpe.

Når du skriver:
"Den næste linie i "bon'en" bliver endnu en record. Det er jo forkert. Linierne på bon'en, uanset antallet burde jo gemmes som en record."
aner jeg stadig ikke hvad du mener...?

det er ok. Jeg har nok forklaret det forkert. Anyway, så har jeg løst problemet. Nu har jeg bare et andet problem som du garanteret kan hjælpe mig med. Hvis jeg vil afrunde et beløb til hele øre. Altså 19,95 til 20,00 eller 19,55 til 19,50. Hvordan gør jeg det ? Du skal nu nok få pointene alligevel...

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vafctround.asp

Jeg har vist ikke fortjent 200p for det ;o)

Den round virker nu ikke helt efter hensigten. Jeg skal jo kunne afrunde f.eks. 2,70 til 2,75. Round ville runde op til 3,00...

Sorry - det havde jeg ikke set.

Laver lige en hjemmelavet afrundingsfunktion, der ikke er særlig pæn, men som virker. Den kan du bruge - jeg tror der er smartere måder, hvis du gemmer beløbene i variabler af typen Cyrrency, men ved det ikke - du må lige selv rette, hvis jeg afrunder "skævt" ;o)

  Dim OriginaltBeløb
  Dim AfrundetBeløb
  Dim Kroner
  Dim Øre

  OriginaltBeløb = 2.56
  Kroner = Fix(OriginaltBeløb)
  Øre = OriginaltBeløb - Kroner
  MsgBox Øre
  Select Case Øre
    Case Is > 0.87
      Øre = 1
    Case Is > 0.62
      Øre = 0.75
    Case Is > 0.37
      Øre = 0.5
    Case Is > 0.12
      Øre = 0.25
    Case Else
      Øre = 0
  End Select
 
  AfrundetBeløb = Kroner + Øre
  MsgBox Format(AfrundetBeløb, "#.00")

NB: Bemærk, at jeg bruger . som decimaladskiller, hvor du bruger , - det skal du naturligvis rette :o)

Ups - slet linien
  MsgBox Øre
/martin

Kanon... Takker...

Husk det er kun tilladt, at afrunde slut beløbet på bonnen