Re: AW: [Coffeehouse] Access

[Olaf J. Haupt]

Danke! Das hilft.
Ciao Olaf
At 13:46 22.09.2004, you wrote:
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
_______________________________________________
Coffeehouse Mailingliste, Postings senden an:
[EMAIL PROTECTED]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/coffeehouse