Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Neue Tabellen in Ms Access
Autor: Prian0815
Datum: 09.03.04 13:03
Private Sub cmd1_Click() On Error GoTo Err_cmd1_Click Dim path As String Dim filename As String Dim DB As Database Dim TABLE As New TableDef Dim Feld As New Field path = App.path filename = path & "/ACCESS_Test.mdb" If Dir$(filename) <> "" Then Screen.MousePointer = 11 Set DB = OpenDatabase(filename) Else Set DB = Workspaces(0).CreateDatabase(filename, dbLangGeneral) TABLE.Name = "Adressen" 'TABELLENNAME 'Datenfeld #1 Feld.Name = "AdressNr" 'FELDNAME Feld.Type = dbLong ' FELDDATENTYP Feld.Attributes = dbAutoIncrField 'fELDDATENTYP - AUTOWERT TABLE.Fields.Append Feld Set Feld = Nothing 'Datenfeld #2 Feld.Name = "Anrede" Feld.Type = dbText Feld.Size = 20 'fELDGRÖßE Feld.AllowZeroLength = False 'LEERE ZEICHENFOLGE nicht erlaubt TABLE.Fields.Append Feld Set Feld = Nothing Set Feld = Nothing DB.TableDefs.Append TABLE DB.Close Set TABLE = Nothing Set DB = Nothing End If Err_cmd1_Click: MsgBox Err.Description Screen.MousePointer = 1 Exit Sub End Sub Grüße Armin P.S.: always look on the bright side of Life!

Neue Tabellen in Ms Access	586	mrmarky	09.03.04 13:00
Re: Neue Tabellen in Ms Access	333	Prian0815	09.03.04 13:03
Re: Neue Tabellen in Ms Access	384	mrmarky	09.03.04 18:30

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen