Office: (Office 2003) Dezimalstellen per VBA ändern

Hallo Leute.

Ich lege über VBA eine neue Tabelle an:

Code:

Wie kann ich anschließend über VBA (oder SQL) die Dezimalstellenanzeige des Feldes "Zahl1" von "automatisch" auf "2" umstellen?

:)

 

Wenn du nur 2 Dezimalstellen in der Tabelle haben willst, könntest du Decimal(18, 2) als Datentyp verwenden. Die Anzahl der Dezimalstellen bei Double ist nur eine Layout-Spielerei, die in einer Tabelle eigentlich egal ist. (Ein Tabelle ist normalerweise nicht für die Formatierung zuständig.)
Du solltest diese Einstellung aber über DAO.TableDef und Dao.Field-Eigenschaften einstellen könnten. Wie die Eigenschaft heißt, weiß ich nicht auswendig (ich tippe auf "Format"). Wenn du per VBA die Feld-Properties durchläufst, wird dir aber bestimmt ein passender Name auffallen.
Anm.: beim Durchlaufen der Properties darauf achten, dass du ein Tabellenfeld mit dieser Einstellung betrachtest, da das eventuell eine Property ist, die erst bei Bedarf erzeugt wird.

BTW: "CHAR(22)" .. willst du sicher char und nicht varchar?

mfg
Josef

 

Hi.

Danke für die schnelle Antwort.

Wenn ich "DECIMAL(18, 2)" angebe, bekomme ich einen "Syntaxfehler in der Felddefinition".
Die Nachkommastellen sollen für spätere Berechnungen auch erhalten bleiben, nur die Ansicht der Zahl soll auf 2 Stellen gerundet angezeigt werden.

CHAR oder VARCHAR...
Was ist da nochmal der Unterschied?

 

Hallo
meinst du nicht
CHR(22)
anstelle von CHAR(22) *confused.gif* ich weiss zwar auch nicht was für ein (Steuer-)Zeichen chr(22) ist? sein soll.


SORRY ich bin total daneben *frown.gif*

 

Grob gesagt:

• CHAR-Felder nehmen immer die komplette Breite ein (werden ggf. mit 21 Leerzeichen aufgefüllt, wenn nur ein "A" erfasst wurde).
• VARCHAR-Felder brauchen wirklich nur den Platz der eingegebenen Zeichenlänge, also entweder 1 oder 22 Bytes.

 

\@Arne
Danke für die Info.
Irgendwo hatte ich das auch mal ganz weit hinten im Hinterkopf...

Trotzdem ist mein eigentliches Problem, die Dezimalstellenanzeige eines über "CREATE TABLE" angelegten Tabellenfeldes zu ändern noch ungelöst. Und ich war diesbezüglich auch bei Google erfolglos.

DECIMAL funktioniert nicht und wäre auch keine Lösung, weil ich über Google auf einen Artikel gestoßen bin, der aussagt, dass es mit solchen Feldern Probleme bei der Sortierung gibt. Und eine Sortierung brauche ich später auch.

 

Hi,

hast du Josefs Tipp mal ausprobiert:

 

Ups, das hatte ich vollkommen übersehen. Sorry.

Mal sehen, ob ich das hin bekomme, so wie der Josef das geschrieben hat...

 

Oh Mann......

Solange die Eigenschaft Dezimalstellenanzeige auf automatisch steht, taucht diese in der Eigenschafts-Auflistung nicht auf.
Stellt man diese z.B. auf "4", dann taucht die Dezimalstellenanzeige als "DecimalPlaces = 4" in der Auflistung auf. Wenn das der Fall ist, kann man sie mit Code:

auch auf "2" ändern.

Solange die Eigenschaft aber nicht da ist, kann man ihr auch keinen Wert zuweisen.
Mit nachfolgendem Code und der Hilfe habe ich versucht die Eigenschaft anzulegen. Das klappt aber nicht bzw. kommt ein Fehler.
Code:

Ich wäre dankbar, wenn mir hier jemand weiterhelfen könnte.

 

Hi,

die Property sollte auch den richtigen Typ haben. den hast du nicht angegeben.

Code:

 

Kann man auch direkt in eine zeile packen...

Code:

 

Sorry, entweder mache ich etwas falsch oder in deinem Code ist ein Fehler...

Code:

Wenn ich den Code mit "Resume Next" laufen lasse, passiert weiter nix, aber die Dezimalstellenanzeige steht danach immer noch auf "automatisch".
Wenn ich das "Resume Next" auskommentiere, kommt ein Laufzeitfehler, obwohl die Eigenschaft noch nicht existiert.

 

\@Scorefun
Damit läuft mein oberer Code. Super.

In der Hilfe steht, dass die Angabe von Typ und Wert optional ist. deshalb hatte ich sie weggelassen.

@all
Was bedeutet Typ "2" ?

 

Doch das klappt. Anbei der Beweis.
Hast du bei dir denn auch ein Doublefeld in Arbeit?
Hast du die Tabelle im Entwurf danach neu geöffnet?

 

Dann gelten aber Standardwerte.

Dafür habe ich die Props ja aufzählen lassen, damit du die Bedeutung erahnen kannst. Die 2 steht für Byte, da der Property-Type einen der DataTypeEnum-Aufzählungswerte erfordert. SIehe Anhang.