Probleme bei EUR-Format bei Access
08.11.2008 00:59:00
Guenneisen
ich hoffe, Ihr könnt mir helfen
ich habe ein kleines Problem bei Access mit dem Format in eine Währung...
anbei der Code:
in der Msgbox sollen aufsum1 und aufsum2 als Währung (EUR) angegeben werden,
wenn ich meinen code durchlaufen lasse, kommt aber leider folgende Fehlermeldung:
er springt auf Format und schreibt "Projekt oder Bibliothek nicht gefunden"
fehlt mir da eine bestimmt Bibliothek? wenn ich diese Formatzeilen auskommentiere, läuft das makro durch...
Hoffe, Ihr könnt mir helfen!
Danke im Voraus
Gruss
Gussfuss
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