Tabellenfelder und Größen

25/08/2008 - 09:55 von Liane Uebelein | Report spam
Hallo,
ich möchte in einem Projekt eine Funktion in der Art einbauen:

Ich übergebe den Namen der Tabelle, zB. Tabelle1 und die Funktion liefert
Feld1: Key, long
Feld2: Name, String, Feldlànge 20
Feld3: Ort, String, Feldlànge 15
etc.
Also dass Feldname, Feldtyp und Feldlànge übergeben wird.
Wie geht man so etwas an und was aus der VBA Hilfe sollte ich mir ansehen ?

Gruss
Liane
 

Lesen sie die antworten

#1 Gunter Avenius
25/08/2008 - 10:31 | Warnen spam
Hallo Liane,

Liane Uebelein schrieb folgendes:
Hallo,
ich möchte in einem Projekt eine Funktion in der Art einbauen:

Ich übergebe den Namen der Tabelle, zB. Tabelle1 und die Funktion liefert
Feld1: Key, long
Feld2: Name, String, Feldlànge 20
Feld3: Ort, String, Feldlànge 15
etc.
Also dass Feldname, Feldtyp und Feldlànge übergeben wird.
Wie geht man so etwas an und was aus der VBA Hilfe sollte ich mir ansehen ?



Als Anregung:

Function fnc_Test()

On Error Resume Next

Dim fld As Field
Dim prp As Property
Dim dbs As Database
Set dbs = CurrentDb


For Each fld In dbs.TableDefs("tblYourTable").Fields

For Each prp In fld.Properties
'Debug.Print " - " & prp.Name & " " & prp.Value
If prp.Name = "OrdinalPosition" Then
Debug.Print "Feld: " & prp.Value
End If
If prp.Name = "Name" Then
Debug.Print "Name: " & prp.Value
End If
If prp.Name = "Type" Then
Debug.Print "Type: " & prp.Value
End If
If prp.Name = "Size" Then
Debug.Print "Size: " & prp.Value
End If
Next
Next

Set dbs = Nothing

End Function

Gruß
Gunter
__________________________________________________________
Access FAQ: http://www.donkarl.com
home: http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de

Ähnliche fragen