Office: (Office 2003) Dezimalstellen per VBA ändern

\@Atrus2711
Komisch, vorhin hat es nicht geklappt.
Jetzt habe ich dein Modul in meine DB kopiert und die Namen angepasst, jetzt geht's. Wunderbar.

@all
Vielen, vielen Dank!

 

Vermutlich ein Kopierfehler. Vergleiche den Code in meinem Thread mit meiner Demodb, da ist kein Unterschied.

 

\@Atrus2711
Komisch, vorhin hatte es funktioniert.

Jetzt habe ich die Tabelle noch einmal gelöscht und per CREATE TABLE wieder angelegt. Wenn ich jetzt deinen Code ausführe, bekomme ich bei der Value-Zuweisung die Meldung "Eigenschaft nicht gefunden" und die Dezimalstellenzuweisung steht weiterhin auf automatisch.

Mein Ursprungscode funktioniert nach der Anpassung fehlerfrei, auch nach dem Neuanlegen der Tabelle.

 

hast du nach dem Create table die TableDefs mal refresht?

 

So wie es aussieht, hast du deine Tabelle und die Felder (z.B. zahl) per Hand angelegt. Ich lege diese per "CREATE TABLE" an.

Der Unterschied ist, wenn man die Tabelle und die Felder per Hand anlegt, wird auch gleich die Eigenschaft Dezimalstellenanzeige gesetzt. Diese steht in der GUI auf automatisch und hat den Wert 255.
Nach dem Anlegen der Tabelle und der Felder mit "CREATE TABLE" wird die Eigenschaft Dezimalstellenanzeige nicht angelegt, steht aber, wenn man sich die Tabelle bzw. das Feld ansieht, auch auf automatisch.
Ein TableDefs-Refresh bringt da auch keine Abhilfe.

Da ich die Tabellen, in denen ich die Dezimalstellenazeige per Code setzen will, immer mit CREATE TABLE anlegen werde, werde ich meine, von Scorefun angepasste Variante nehmen.

Nochmals danke an alle.

 

Ja, ich habe die Tabelle auf die Schnelle manuell angelegt. Ich habe aber keine 255 als Dezimalstelle. Bei einem Double mit seinen max. 15 Dezimalen wäre das auch ziemlich witzlos. 255 klingt eher nach einem Textfeld...

 

- Leg mal in deiner Tabelle eine neues Feld (z.B. Zahl3 als Double) an.
- Pass deinen Code entsprechend dem neuen Feld an
- Lass deinen Code dann laufen
- Schau dir dann die Debug.Print-Ausgabe an

Der Debug.Print läuft ja vor der Anpassung auf 2 Stellen und bei mir steht dann drin:
Code:

Bei dir nicht?

Mist, da habe ich was durcheinander gebracht.
255 ist ja der Typ, wenn ich das richtig sehe. Was auch immer das für ein Typ sein soll...

Ist letztendlich auch egal.
Nach dem Anlegen einer Tabelle mit CREATE TABLE findet man in den Feldeigenschaften kein "DecimalPlaces".
Und das ist das Ausschlaggebende...

 

nee, das ist der Wert. hast schon recht. da steht 255. Ist aber vermutlich die magic number für "automatisch".

 

Nachdem ja alles soweit geklärt und gelöst ist, mach ich den Thread mal zu.

Nochmals danke.