title image


Smiley Ja, das geht
Da allerdings "DecimalPlaces" keine eingebaute Eigenschaft ist, musst du über die Properties-Auflistung gehen:Public Function SetPrp( _ Optional TblName = "MeineTabelle", _ Optional FldName = "MeinFeld", _ Optional PrpName = "DecimalPlaces", _ Optional Value = 2)Dim DB As Database, Tbl As TableDef, Fld As Field, Prp As Property Set DB = CurrentDb Set Tbl = DB.TableDefs(TblName) Set Fld = Tbl.Fields(FldName)On Error Resume Next If IsMissing(PrpName) Then Fld.Properties.Delete PrpName Else Set Prp = Fld.Properties(PrpName) If Err = 0 Then Prp.Value = Value ElseIf Err = 3270 Then Set Prp = Fld.CreateProperty(PrpName, Value) Fld.Properties.Append Prp End If End IfEnd FunctionReinhard


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: