Probleme bei EUR-Format bei Access

Public Sub Einzahlung() Dim conn As ADODB.Connection Dim rs As New ADODB.Recordset Set conn = CurrentProject.Connection rs.Open "Einzahlung", conn, adOpenKeyset, adLockOptimistic Dim intanzahl1 As Integer Dim intanzahl2 As Integer Dim aufsum1 As double Dim aufsum2 As double 'aufsum1 = Format$(aufsum1, "#,##0.00 ") 'aufsum2 = Format$(aufsum2, "#,##0.00 ") rs.MoveFirst Do Until rs.EOF If rs!KZ = 1 Then intanzahl1 = intanzahl1 + 1 aufsum1 = aufsum1 + rs!Betrag Else intanzahl2 = intanzahl2 + 1 aufsum2 = aufsum2 + rs!Betrag End If rs.MoveNext Loop MsgBox " KZ=1 " & " KZ=2" & vbCr & vbCr & _ " Anzahl " & intanzahl1 & " " & _ intanzahl2 & vbCr & " Summe " & aufsum1 & _ " " & aufsum2, vbInformation, "Summierung der Einzahlungen" Set rs = Nothing Set conn = Nothing End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub tt1() Dim aufsum1 As Double aufsum1 = 1 MsgBox aufsum1 aufsum1 = VBA.Format$(aufsum1, "#,##0.00 ") MsgBox aufsum1 End Sub Sub tt2() Dim aufsum1 As Double, a aufsum1 = 1 MsgBox aufsum1 a = VBA.Format$(aufsum1, "#,##0.00 ") MsgBox a End Sub

Hallo Gussfuss,
hier mal 3 Beispiele, wie man mit Access-Vba Summen aus Tabellen/Abfragen ermittelt.
Das per Schleife, wie in Deinem Beispiel, zu machen ist zwar möglich - aber die langsamste
aller Varianten.


Sub Beispiel1()
'per DAO.Recordset
Dim db As DAO.Database, rs As Recordset
Dim sql1 As String, sql2 As String
Dim aufsum1 As Double
Dim aufsum2 As Double
Set db = Application.CurrentDb
sql1 = "Select sum(betrag) As Summe From Tabelle1 Where kz"
sql2 = "=1;"
Set rs = db.OpenRecordset(sql1 & sql2, dbOpenDynaset)
aufsum1 = rs("summe").Value
sql2 = "1"
Set rs = db.OpenRecordset(sql1 & sql2, dbOpenDynaset)
aufsum2 = rs("summe").Value
Set rs = Nothing
Set db = Nothing
MsgBox "aufsum1 = " & VBA.Format(aufsum1, "#,##0.00" & " ") & vbCrLf & _
"aufsum2 = " & VBA.Format(aufsum2, "#,##0.00" & " ")
End Sub
Sub Beispiel2()
'per accessinterner Domain-Funktion
Dim aufsum1 As Double
Dim aufsum2 As Double
aufsum1 = DSum("betrag", "Tabelle1", "kz=1")
aufsum2 = DSum("betrag", "Tabelle1", "kz1")
MsgBox "aufsum1 = " & VBA.Format(aufsum1, "#,##0.00" & " ") & vbCrLf & _
"aufsum2 = " & VBA.Format(aufsum2, "#,##0.00" & " ")
End Sub
Sub Beispiel3()
'per ADODB
Dim cn As ADODB.Connection, rs As New ADODB.Recordset
Dim sql1 As String, sql2 As String
Dim aufsum1 As Double
Dim aufsum2 As Double
Set cn = CurrentProject.Connection
sql1 = "Select sum(betrag) As Summe From Tabelle1 Where kz"
sql2 = "=1;"
rs.Open sql1 & sql2, cn, adOpenStatic
aufsum1 = rs("summe").Value
rs.Close
sql2 = "1"
rs.Open sql1 & sql2, cn, adOpenStatic
aufsum2 = rs("summe").Value
Set rs = Nothing
Set cn = Nothing
MsgBox "aufsum1 = " & VBA.Format(aufsum1, "#,##0.00" & " ") & vbCrLf & _
"aufsum2 = " & VBA.Format(aufsum2, "#,##0.00" & " ")
End Sub

Obwohl Beispiel2 die kürzeste Variante im Vba-Code ist, wird sie in den Foren
als langsame Methode nicht gerade empfohlen.
Übrigens hat sich Microsoft bei Access2007 wieder entschieden, DAO beim Datenzugriff den Vorzug zu geben - rein in die Kartoffeln, raus aus die Kartoffeln...
Gruß von Luschi
aus klein-Paris

Beliebteste Forumthreads (12 Monate)

Probleme bei EUR-Format bei Access

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread