Hallo,
ich habe eine Datenbank, für die eine Arbeitsgruppeninformationsdatei angelegt wurde, d.h. die Benutzer haben nur mittels Benutzerkennung und Passwort Zugriff.
Die Datenbank besteht aus drei Teilen, dem Programmteil (auf dem Client), dem Datenteil für persönliche Einstellungen des Users (auf dem Client) und dem allgemeinen Datenteil (auf dem Server).
Nun war es notwendig im Datenteil der persönlichen Einstellungen eine neue Tabelle anzulegen, was ich folgendermaßen erledigt habe:
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim td As DAO.TableDef
Dim fd As DAO.Field
Set db = OpenDatabase(Pf_Pers & „verd_pers.mdb“, True, False) 'Pf_Pers steht für den Pfadnamen der beim Starten einer globalen Var. zugewiesen wird…
Set td = db.CreateTableDef(„T_Textbausteine“)
DoCmd.Echo True, "Das Feld >BemerkungenT_Textbausteine