title image


Smiley TIPP: Tabellen-Feldliste mit Beschreibungen erstellen


Dim Tmp As String, DB As Dao.Database, Tbl As Dao.TableDef, Fld As Dao.Field, Desc As String

Set DB = CurrentDb

Set Tbl = DB.TableDefs("MeineTabelle")

For Each Fld In Tbl.Fields

Desc = ""

On Error Resume Next ' Property "Description" kann fehlen!

Desc = Fld.Properties("Description")

On Error GoTo 0

Tmp = Tmp & ";" & Fld.Name & ";" & Desc

Next Fld

With Me!FeldListe

.RowSource = Mid(Tmp, 2)

' die folgenden Eigenschaften können auch statisch eingestellt werden:

.RowSourceType = "Value List"

.ColumnCount = 2

.ColumnWidths = "1600;1600"

End With





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: