Programmieren - alles kontrollieren 4.938 Themen, 20.667 Beiträge

Access Modele Visual Basic - Ergebnis als EURO ausgeben

PerryR / 15 Antworten / Flachansicht Nickles

Moin alle zusammen.

Folgende Problemstellung

Ich habe eine Accessabfrage die aus mehren Zeilen besteht. Ich möchte den niedrigsten Wert einer Zeile (nicht Spalte) ermitteln. Das Ergebnis soll als Euro ausgegeben werden

Der niedrigste Wert wird mit folgender Lösung ausgegeben. Mein Problem ist aber, das ich das Ergebnis als als Euro haben möchte, damit ich in einer weiteren Abfrage verschiedene EURO- Werte mit dieser vergleichen kann.


Folgende Lösung habe ich auf die Reihe bekommen.


Public Function MeinMin(ParamArray MeineWerte() As Variant)
Dim lngIndex


If UBound(MeineWerte) >= 0 Then
MeinMin = MeineWerte(0)
For lngIndex = 1 To UBound(MeineWerte)
If (MeineWerte(lngIndex) MeinMin = MeineWerte(lngIndex)
Next lngIndex
End If
End Function

bei Antwort benachrichtigen
neanderix PerryR „Tachchen, doch nach dieser letzten Nachricht melde ich mich doch noch einmal....“
Optionen
ich gebe dir recht, die bisherigen Antworten waren doch sehr enttäuschend.

Wuindert dich das? Du bist ja nicht sonderlich gesprächig - und Informationen gibst du, wenn überhaupt, nur kleckerweise preis.
Ich für meinen Teil *kann* dir nicht helfen, wenn ich nichts über den Aufbau deiner Tabellen und Abfragen weis.

Ich suche hier nur eine Antwort auf eine Formatierung des Wertes

Sorry - aber wenn deine Tabelle einen Aufbau der Art

Artikel|Preis1|Preis2|Preis3

hat -- dann ist das sehrwohl ein verkorkste Struktur. Und nein, ich helfe prinzipiell *niemandem* dabei, eine solche Struktur nicht nur beizubehalten, sondern auch noch zu festigen.
Und schon gleich gar nicht wenn es auch noch darum geht, Preise als STRING(!) inkluse Währungskennung zu speichern.
Sowas bezeichne ich als das, was es ist: Krampf.

Und nochwas - Achtung, nicht böse gemeint: du bist hier in einem Forum, in dem *freiwillige* antworten. Daher hast du keinerlei Anspruch darauf (nur) die Antworten zu bekommen, die du hören willst; du hast nichtmal Anspruch darauf, überhaupt eine Antwort zu bekommen.
Das solltest du dir immer vor Augen halten.

Volker
Computers are like airconditioners - they stop working properly when you open Windows Ich bin unschuldig, ich habe sie nicht gewählt!
bei Antwort benachrichtigen