Feld-Default-Wert mit VBA ändern

21/02/2010 - 11:23 von Herbert Fidesser | Report spam
Hallo NG,

es gelingt mir einfach nicht, den Standardwert eines Tabellenfeldes
mittels VBA zu àndern.
Schon delete funktioniert nicht. Leider erhalte ich auch keine
Fehlermeldung.

Mein Code:
With DB.TableDefs("tblProjects")
'Feld Nutzungsgrad: Standardwert àndern auf 70%
fldName = "Nutzungsgrad"
.Fields(fldName).Properties.Delete "defaultvalue"
Set prp = .Fields(fldName).CreateProperty("defaultvalue",
dbSingle, 0.7)
.Fields(fldName).Properties.Append prp
End With

Wo liegt der Hund begraben?
Danke für Hilfe
Gruß aus Wien
Herbert
 

Lesen sie die antworten

#1 Karl Donaubauer
21/02/2010 - 12:10 | Warnen spam
Herbert Fidesser wrote:

es gelingt mir einfach nicht, den Standardwert eines Tabellenfeldes
mittels VBA zu àndern.
Schon delete funktioniert nicht. Leider erhalte ich auch keine
Fehlermeldung.

Mein Code:
With DB.TableDefs("tblProjects")
'Feld Nutzungsgrad: Standardwert àndern auf 70%
fldName = "Nutzungsgrad"
.Fields(fldName).Properties.Delete "defaultvalue"
Set prp = .Fields(fldName).CreateProperty("defaultvalue",
dbSingle, 0.7)
.Fields(fldName).Properties.Append prp
End With

Wo liegt der Hund begraben?



Du kannst diese eingebaute Eigenschaft weder löschen, noch
erzeugen oder anhàngen sondern nur ihren Wert setzen.
Also statt dem da oben z.B. in 1 Zeile:

DB.TableDefs("tblProjects").Fields("Nutzungsgrad").Properties("DefaultValue")
= 0.7

Servus
Karl
****************
Access-FAQ: http://www.donkarl.com /// http://www.donkarl.com?NEK
.NET-Entwickler-Konferenz für Accessler 27./28.2. + 20./21.3.2010

Ähnliche fragen