title image


Smiley Tabledefs("MeineTab").Fields("MeinFeld").Properties("Description")
Und dann z.B.





Public Function SetFieldProperty(TblName, FldName, _

Optional PrpName = "Description", Optional PrpVal = "Standard", Optional PrpType = dbText)

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 PrpVal = "" Then ' remove property

Fld.Properties.Delete PrpName

Else

Fld.Properties(PrpName) = PrpVal

If Err.Number = 3270 Then ' property not yet defined

On Error GoTo 0

Set Prp = Fld.CreateProperty(PrpName, PrpType, PrpVal)

Fld.Properties.Append Prp

End If

End If

End Function





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: