Access2000 - DM+Euro

Computer: Software & Programmierung Microsoft Access
#1

Hallo,

der Euro kommt unaufhaltsam, daher möchte ich in einer bestehenden Tabelle meine bisherigen Artikelpreise (DM) in einer neuen weiteren Spalte in Euro automatisch umrechnen, so dass beide Werte gelistet sind. Die Umrechnungskonstante ist mir bekannt, leider nicht das Verfahren. In der Access-Hilfe finde ich keinen für mich umsetzbaren Ansatz. Bin zwar kein „blutiger Access-Anfänger“, aber wahrhaftig kein Access-Profi. Vielleicht hilft mir jemand auf die Sprünge - währe schön, wenn ich das Ziel durch Anschubsen errreichen könnte.
Vorab vielen Dank…

#2

Hallo Junk,

ich hab hier was kleines für dich …

Dieser Code fügt an eine bestehende Tabelle (hier „Tabelle1“) ein Feld namens „EURO“ an und berechnet diesen Wert dann anhand dem Feld „DMBetrag“ neu!

Leider krieg ich es nicht gebacken, dass im Feld „EURO“ auch das €-Symbol angezeigt wird.

Kannst ja mal rumbasteln … :smile:

Also hier der Prog-Code (ich hab ihn übrigens an eine Schaltfläche in einem Formular gebunden - „Beim Klicken“):

On Error GoTo weiter

Dim dbs As Database, tdf As TableDef
Dim fld As Field

’ Bezug auf aktuelle Datenbank zurückgeben.
Set dbs = CurrentDb

’ Bezug auf Tabelle „Tabelle1“ zurückgeben.
Set tdf = dbs.TableDefs!tabelle1

’ Neues Field-Objekt erstellen.
Set fld = tdf.CreateField(„Euro“)

’ Eigenschaften „Type“ und „Size“ des Field-Objekts
’ einstellen.
fld.Type = dbCurrency

’ Feld anfügen.
tdf.Fields.Append fld

weiter:

MsgBox „@-Umrechner gestartet“, vbInformation, „€-Umrechner“

DoCmd.SetWarnings False
DoCmd.RunSQL „update tabelle1 set euro = [DMBetrag] / 1.955830;“
DoCmd.SetWarnings True

Set dbs = Nothing

gruss moritzbock

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]