Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Format von Tabellenfeld ändern

126 views
Skip to first unread message

Christof Großkraumbach

unread,
Dec 16, 2001, 11:12:26 AM12/16/01
to
Hallo zusammen!

Ich suche verzweifelt nach einer Möglichkeit, mittels VBA
das Format des Felddatentyps "Währung" von "Währung" auf
"Euro" umzustellen! Wohlgemerkt nicht den Felddatentyp
(field.type) sondern das zugehörige Format.

Das Feld läßt sich nämlich nicht über z.b.
field.type.format oder field.format ansprechen!

Ich danke Euch schon jetzt für Eure kompetenten Tips!

Schöne Grüsse

Christof

Joachim Jauss

unread,
Dec 16, 2001, 12:25:56 PM12/16/01
to
Am Sun, 16 Dec 2001 08:12:26 -0800, konnte Christof Großkraumbach
<c...@hoehnerbach-veranstaltungstechnik.de> nicht widerstehen folgendes
zu schreiben:

Einfach die Einstellungen von Windows ändern....
Danach richtet sich nämlich auch Access.

Start\Einstellungen\Systemsteuerung\Ländereinstellungen\

In der Registerkarte Währung wählst Du schlichweg im Kombifeld
Währungssymbol das Euro-Zeichen aus und schon funkt's.


Gruß
Joachim

Ralph Trömer

unread,
Dec 17, 2001, 12:16:55 PM12/17/01
to
> >Ich suche verzweifelt nach einer Möglichkeit, mittels VBA
> >das Format des Felddatentyps "Währung" von "Währung" auf
> >"Euro" umzustellen! Wohlgemerkt nicht den Felddatentyp
> >(field.type) sondern das zugehörige Format.

> In der Registerkarte Währung wählst Du schlichweg im Kombifeld


> Währungssymbol das Euro-Zeichen aus und schon funkt's.

Dasselbe Problem habe ich auch, und suche ebenfalls eine Lösung dies in VBA
umzustellen.
Die obige Lösung ist nur das manuelle Verfahren.
Gibts da nichts in VBA?

Tschau
Ralph


Günther Ritter

unread,
Dec 17, 2001, 12:27:04 PM12/17/01
to
"Ralph Trömer" <asd...@gmx.de> schrieb im Newsbeitrag
news:9vl926$g0354$1...@ID-57613.news.dfncis.de...

Ja schon.
Diese Zeilen funktionieren nur wenn schon die Eigenschaft Format des Feldes
vorhanden ist. Ansonsten muss die Eigenschaft Format erst erstellt werden,
siehe Hilfe):

Dim db As DAO.Database
Set db = CurrentDb
db.TableDefs("Tabelle").Fields("Feld") _
.Properties("Format") = "#,##0.00 €;-#,##0.00 €"

--
Gruss
Günther
http://www.access-hilfe.de


0 new messages