✔ Summe aus einem Recordset formatieren

[tesarolle]

Ich zähle Datensätze in einem Recordset mit der entsprechenden Formatierung, funktioniert soweit::

Public Function SB01()

Const conDBConn = "DRIVER=SQL Server;SERVER=OKZEDER;DATABASE=FWExAp03"
Dim objDBConnSB01 As New ADODB.Connection
Dim objDBRSSB01 As New ADODB.Recordset
objDBConnSB01.Open conDBConn
objDBRSSB01.Open "SELECT COUNT(*) as Anzahl FROM SB01", objDBConnSB01, 3, 3
SB01 = Format(objDBRSSB01!Anzahl, "###,###,###")

End Function

Public Function SB02()

Const conDBConn = "DRIVER=SQL Server;SERVER=OKZEDER;DATABASE=FWExAp03"
Dim objDBConnSB02 As New ADODB.Connection
Dim objDBRSSB02 As New ADODB.Recordset
objDBConnSB02.Open conDBConn
objDBRSSB02.Open "SELECT COUNT(*) as Anzahl FROM SB02", objDBConnSB02, 3, 3
SB02 = Format(objDBRSSB02!Anzahl, "###,###,###")

End Function



Ich habe eine Textbox mit Namen "test" und möchte in dieser die Summe der Datensätze aus "SB01" und "SB02" angezeigt bekommen. Funktioniert auch, aber das Format stimmt nicht (Dezimaltrennzeichen fehlt).


Wie bekomme ich meine Summe entsprechend formatiert?

 

[wincnc]

Versuch´s mal so:

Text1 = SB02
Text1 = Format(Text1, "###,###,###")

 

[tesarolle]

Ich möchte nichts nur ein Feld angezeigt bekommen sondern die SUMME von SB01 und SB02!

IN meinem Konkreten Beispiel sieht der Aufruf zur Summenbildung so aus :

SumStammsätze.Text = CLng(LKZÄHLER.Text) + _
CLng(KGZähler.Text) + _
CLng(RT01Zähler.Text) + _
CLng(RT02Zähler.Text) + _
CLng(SB01Zähler.Text) + _
CLng(SB02Zähler.Text) + _
CLng(GL01Zähler.Text) + _
CLng(GL02Zähler.Text) + _
CLng(FK01Zähler.Text) + _
CLng(FK02Zähler.Text) + _
CLng(HS01Zähler.Text) + _
CLng(HS02Zähler.Text) + _
CLng(UK01Zähler.Text) + _
CLng(UK02Zähler.Text)

Ich möchte alle Felder summieren und dann die Summe ausgeben. Das weitere Problem das ic hmit CLng habe ist das wenn der Wert 0 Auftritt ich eine Meldung erhalte das die Typen unverträglich sind.

Ich will doch im Endeffekt nur alles Summieren und am Ende eine mit Dezimalzeichen getrennte Endsumme haben. Dsa kann doch nicht so schwer sein!? -