Programmieren - alles kontrollieren 4.934 Themen, 20.613 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 „Hallo Borlander, es riecht nach einem unsauberen Design, ist aber keiner. Es ist...“
Optionen
es riecht nach einem unsauberen Design, ist aber keiner. Es ist die einzige Lösung, wenn ich nicht mit 50.000 Tabellen arbeiten möchte

Jetzt stinkts richtig. ich brauch 'ne Maske.

Aber um dir weiter helfen zu könne, müsstest du ein paar mehr Infos geben, speziell über den aufbau deiner Tabelle(n) und Abfragen - und darüber, was du mit der DB machst.

rEin Wert in einer Tabelle zb. (EK-Preis) soll mit dem Wert aus dem Script verglichen werden. Dazu müssen beide Werte eben im gleichen Format vorhanden sein.

Der Wert in der Tabelle EK-Preis wird durch externe Daten vorgegeben. ich kann mich also nur den Vorgaben anpassen und muss aus diesem Grund meinen Ausgabewert auch in diesem Format haben.


Das ist dennoch kein Grund, hier über Stringvergleich arbeiten zu wollen - das wäre ein völlig falscher Ansatz.

Aber wie gesagt: solange du nicht mehr Informationen lieferst, über deine Tabelle(n) deine Abfrage(n) und darüber, wie du die Daten bekommst, kann dir eher schlecht bis gar nicht geholfen werden.

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