Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Runden in Access mit VBA
zurück: Link speichern weiter: Feldübergabe variabel gestalten Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Daniela_58
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Nov 2008, 14:53
Rufname:

Runden in Access mit VBA - Runden in Access mit VBA

Nach oben
       Version: Office 2007

Hallo Forum,

ich suche nach einer Möglichkeit meine Zahlen in VBA zu runden. vlt mit round function? aber wie ist das umzusetzen?

Und zwar arbeite ich im Formular mit Optionsgruppen und hier lasse ich über die Schaltflächen, Summen aus verschiedenen Abfragen anzeigen. Z.b.:
Code:
    Me!Test1.Capiton = DSum("Spalte1", "qry_Sportartikel") & ""
    Me!Test2.Capiton = DSum("Spalte1", "qry_Getränke") & ""
In meinem Formular bekomme ich dann jeweils die Ergebnisse für meine Optionsgruppen angezeigt.

Mein Problem:
In Spalte 1 habe ich Prozentwerte mit vielen Nachkommastellen. Ich möchte aber nur 2 Nachlommastellen anzeigen lassen... Hat vlt jemand eine Idee wie der oben angezeigte Code aussehen müsste?

Grüße Daniela Smile
CapComm
chaot


Verfasst am:
17. Nov 2008, 14:56
Rufname:
Wohnort: Chemnitz


AW: Runden in Access mit VBA - AW: Runden in Access mit VBA

Nach oben
       Version: Office 2007

Hallo,

spontane Idee:

Round(Ausdruck [,AnzahlAnDezimalpunktn])

Ausdruck = Deine Zahl /Steuerelement

AnzahlAnDezimalpunktn = Nachkommastellen (hier wohl dann 2)

Habs jetzt nich getestet, aber steht so in der Hilfe von Access, sollte also schon gehen...

VG, Peter

_________________
----------------------------------------
It´s not a Bug, it´s a Feature ...
Daniela_58
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Nov 2008, 15:30
Rufname:

AW: Runden in Access mit VBA - AW: Runden in Access mit VBA

Nach oben
       Version: Office 2007

hallo
danke für die schnelle antwort...

bin nicht fit in VBA...wie müsste das Final aussehen?

Grüße Daniele Smile
CapComm
chaot


Verfasst am:
17. Nov 2008, 15:39
Rufname:
Wohnort: Chemnitz

AW: Runden in Access mit VBA - AW: Runden in Access mit VBA

Nach oben
       Version: Office 2007

Kein Thema Smile

Also:
Code:
    Dim Summe As Decimal 'kleine Zwischenvariable
   
    Summe = DSum("Spalte1", "qry_Sportartikel") & ""
    Me!Test1.Caption = Round(Summe[, 2])
    Summe = 0
    Summe = DSum("Spalte1", "qry_Getränke") & ""
    Me!Test2.Caption = Round(Summe[, 2])
Habe es jetzt aus Zeitgründen nicht getestet, also bitte nochmal melden, wenn es nicht geht.

VG, Peter

_________________
----------------------------------------
It´s not a Bug, it´s a Feature ...
Daniela_58
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Nov 2008, 15:57
Rufname:


AW: Runden in Access mit VBA - AW: Runden in Access mit VBA

Nach oben
       Version: Office 2007

Hallo,

beim debuggen wird gemekert.
Code:
    Dim Summe As Decimal
wenn ich Dezimal schreiben gehts.

wenn ich den Code einfüge, wird weiter gemekert.

bei
Code:
    Me!Test.Caption =Round(Summe[,2])
wird listentrennzeichen oder ")" erwartet... experimentiere schon die ganze zeit aber bekomme kein vernünftiges Ergebnis.

Grüße Daniela Smile
CapComm
chaot


Verfasst am:
17. Nov 2008, 16:14
Rufname:
Wohnort: Chemnitz

AW: Runden in Access mit VBA - AW: Runden in Access mit VBA

Nach oben
       Version: Office 2007

uuuupppssss ... vertippt. Sorry!

Round(Summe,[2]) als bitte die erste eckige Klammer und das komma einmal tauschen.

VG, Peter

_________________
----------------------------------------
It´s not a Bug, it´s a Feature ...
Daniela_58
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Nov 2008, 16:40
Rufname:

AW: Runden in Access mit VBA - AW: Runden in Access mit VBA

Nach oben
       Version: Office 2007

Danke,

es wird noch bei
Code:
    Dim Summe As Decimal
gemekert
Mein Code ist folgender:
Code:
Private Sub Form_Current()
    Me!Test1.Caption = DCount("*", qry_Sportartikel)
    Me!Test2.Caption = DCount("*", qry_Getraenke)
    Me!Test3.Caption = DCount("*", qry_Spiesen)
    Dim Summe As Dezimal
    Summe = DSum("Spalte1","qry_Sportartikel") & ""
    Me!Test4.Caption = Round(Summe, [2])
    Summe = 0
    Dim Summe As Dezimal
    Summe = DSum("Spalte1","qry_Getraenke") & ""
    Me!Test5.Caption = Round(Summe, [2]) 
    Summe = 0
    Dim Summe As Dezimal
    Summe = DSum("Spalte1","qry_Speisen") & ""
    Me!Test6.Caption = Round(Summe, [2])
    Summe = 0
    Me!Test7.Caption = DSum("Spalte1", qry_Sportartikel_Schuhe) & ""
    Me!Test8.Caption = DSum("Spalte1", qry_Sportartikel_Shirts) & ""
    Me!Test9.Caption = DSum("Spalte1", qry_Sportartikel_Schuhe) & ""
    Me!Test10.Caption =DSum("Spalte1", qry_Getraenke_Alkohol) & ""
    Me!Test11.Caption = DSum("Spalte1", qry_Getraenke_Alkoholfrei) & ""
    Me!Test12.Caption = DSum("Spalte1", qry_Getraenke_Warm) & ""
    Me!Test13.Caption = DSum("Spalte1", qry_Spiesen_Broetchen) & ""
    Me!Test14.Caption = DSum("Spalte1", qry_Spiesen_Pasta) & ""
    Me!Test15.Caption = DSum("Spalte1", qry_Spiesen_Suppen) & ""
End Sub

Grüße, Daniela Smile
CapComm
chaot


Verfasst am:
17. Nov 2008, 16:52
Rufname:
Wohnort: Chemnitz

AW: Runden in Access mit VBA - AW: Runden in Access mit VBA

Nach oben
       Version: Office 2007

Hallo,

das "Dim Summe as Dezimal" nur einmal am Anfang schreiben, nicht mehrfach. Da regt er sich wegen Mehrfachdeklaration auf.
Wenn er dann immer noch meckert, schreib mal statt "Dezmial" "Double"

VG, Peter

_________________
----------------------------------------
It´s not a Bug, it´s a Feature ...
Daniela_58
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Nov 2008, 16:59
Rufname:

AW: Runden in Access mit VBA - AW: Runden in Access mit VBA

Nach oben
       Version: Office 2007

Ok mit Double scheint es besser zu sein... aber jetzt mekert er das er die Summe nicht finden kann und beim debuggen verweist er hierhin
Code:
    Me!Test4.Caption = Round(Summe, [2])
verflixtes ding!!!

Grüße, Daniela
Willi Wipp
Moderator


Verfasst am:
17. Nov 2008, 17:56
Rufname:
Wohnort: Raum Wiesbaden

Re: Runden in Access mit VBA - Re: Runden in Access mit VBA

Nach oben
       Version: Office 2007

Hi Daniela_58,

was bewirkst Du denn mit der ganzen Aktion? Das laesst sich sicher auch einfacher loesen!
Es reicht aus das & "" entweder davor oder danach einzusetzen,
um Null-Werte (nicht 0; sondern nicht belegt) abzufangen!
Im Uebrigen kann man das sauberer mit der Funktion Nz machen.
Wenn Du Textfelder anstelle der Bezeichnungsfelder verwende wuerdest, dann ginge das ohne VBA-Code.
Code:
Private Sub Form_Current()
    Me!test1.Caption = DCount("*", qry_Sportartikel)
    Me!test2.Caption = DCount("*", qry_Getraenke)
    Me!Test3.Caption = DCount("*", qry_Spiesen)
    Me!Test4.Caption = Round(Nz(DSum("Spalte1", "qry_Sportartikel"), 0), 2)
    Me!Test5.Caption = Round(Nz(DSum("Spalte1", "qry_Getraenke"), 0), 2)
    Me!Test6.Caption = Round(Nz(DSum("Spalte1", "qry_Speisen"), 0), 2)
    Me!Test7.Caption = Nz(DSum("Spalte1", qry_Sportartikel_Schuhe), 0)
    Me!Test8.Caption = Nz(DSum("Spalte1", qry_Sportartikel_Shirts), 0)
    Me!Test9.Caption = Nz(DSum("Spalte1", qry_Sportartikel_Schuhe), 0)
    Me!Test10.Caption = Nz(DSum("Spalte1", qry_Getraenke_Alkohol), 0)
    Me!Test11.Caption = Nz(DSum("Spalte1", qry_Getraenke_Alkoholfrei), 0)
    Me!Test12.Caption = Nz(DSum("Spalte1", qry_Getraenke_Warm), 0)
    Me!Test13.Caption = Nz(DSum("Spalte1", qry_Spiesen_Broetchen), 0)
    Me!Test14.Caption = Nz(DSum("Spalte1", qry_Spiesen_Pasta), 0)
    Me!Test15.Caption = Nz(DSum("Spalte1", qry_Spiesen_Suppen), 0)
End Sub

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Gast



Verfasst am:
17. Nov 2008, 19:15
Rufname:

AW: Runden in Access mit VBA - AW: Runden in Access mit VBA

Nach oben
       Version: Office 2007

super genau dies macht das was ich wollte Smile

ich möchte über Optionsgruppen und Schaltflächen gesamtsummen anzeigen, auf diese Schaltflächen kann man dann später drauf klicken und detailangaben erhalten.
Hatte bisher das problem mit den Nachkommastellen aber das klappt jetzt auch wunderbar...

Danke und Grüße Dani Smile
CapComm
chaot


Verfasst am:
17. Nov 2008, 21:29
Rufname:
Wohnort: Chemnitz


AW: Runden in Access mit VBA - AW: Runden in Access mit VBA

Nach oben
       Version: Office 2007

hmm ... stimmt Smile

naja, man lernt ja nie aus.

auch von mir dank!

nice evening.

_________________
----------------------------------------
It´s not a Bug, it´s a Feature ...
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Programmierung / VBA: Runden in einer Abfrage 1 cgyflamez 89 31. Mai 2012, 14:18
MissPh! Runden in einer Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Runden in Access 2 foerns 919 08. Apr 2012, 14:28
foerns Runden in Access
Keine neuen Beiträge Access Tabellen & Abfragen: Immer auf den nächsten Zehner runden 1 Gast 806 15. Dez 2011, 18:08
viezy Immer auf den nächsten Zehner runden
Keine neuen Beiträge Access Berichte: mit Bedingung im Bericht Runden 8 Breitner 712 02. März 2011, 11:52
Breitner mit Bedingung im Bericht Runden
Keine neuen Beiträge Access Programmierung / VBA: Runden auf in 0,25 schritten 9 Kisti 1413 01. März 2011, 21:51
kyron9000 Runden auf  in 0,25 schritten
Keine neuen Beiträge Access Programmierung / VBA: runden über vba 2 debobo 912 24. Sep 2010, 07:11
Willi Wipp runden über vba
Keine neuen Beiträge Access Berichte: Problem mit Runden 6 Vanessa1 499 11. Feb 2010, 10:22
Vanessa1 Problem mit Runden
Keine neuen Beiträge Access Hilfe: Kann Access runden? 2 valdy 13245 23. Jan 2009, 09:12
Gast Kann Access runden?
Keine neuen Beiträge Access Programmierung / VBA: SQL-Recordset runden 6 Gast 1812 11. Feb 2008, 15:53
Gast SQL-Recordset runden
Keine neuen Beiträge Access Programmierung / VBA: Auf Zehnerstellen runden 2 Barni 2214 12. Jan 2007, 10:50
Barni Auf Zehnerstellen runden
Keine neuen Beiträge Access Tabellen & Abfragen: Kaufmännisches Runden in berechnetem Feld 4 Jürg CH 7799 03. Dez 2006, 18:00
Jürg CH Kaufmännisches Runden in berechnetem Feld
Keine neuen Beiträge Access Programmierung / VBA: Runden mit fester Genauigkeit 3 dipi 2722 13. Nov 2006, 18:31
Ludger Runden mit fester Genauigkeit
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Web Editor Forum