On Wednesday, September 22, 2004 1:42 PM [GMT+1=CET],
Olaf J. Haupt <[EMAIL PROTECTED]> wrote:
> Ich dachte an einen Textfile oder �hnliches.
Geht mit DAO....musst die untere For-Schleife umbasteln und in ein Textfile
schreiben lassen
Gruss
frank
' Diese Funktion erstellt ein neues TableDef-Objekt
' mit allen Feldern der �bergebenen Tabellen
Public Function dbCopyTableDef(oTableDef As DAO.TableDef) _
As DAO.TableDef
Dim oField As DAO.Field
Dim oIndex As DAO.Index
Dim i As Integer
Set dbCopyTableDef = New DAO.TableDef
With dbCopyTableDef
.Name = oTableDef.Name
' alle Felder durchlaufen und erstellen
For i = 0 To oTableDef.Fields.Count - 1
Set oField = New DAO.Field
With oTableDef.Fields(i)
On Error Resume Next
oField.Name = .Name
oField.Type = .Type
oField.Size = .Size
oField.Attributes = .Attributes
oField.DefaultValue = .DefaultValue
oField.OrdinalPosition = .OrdinalPosition
oField.AllowZeroLength = .AllowZeroLength
End With
.Fields.Append oField
Next i
End With
End Function
_______________________________________________
Coffeehouse Mailingliste, Postings senden an:
[EMAIL PROTECTED]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/coffeehouse
