Automatisiert Berechtigungen vergeben

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

Hallo, Uli!

Wie kann ich die neue Tabelle automatisiert in den
Programmteil einbinden?

Beim Öffnen/Starten des Programms: Connection zum lokalen Datenteil aufbauen, alle Tabellen auslesen (über Systemtabelle oder ADOX.Catalog), Tabelle aus Programm löschen und mit DoCmd.TransferDatabase acLink wieder verknüpfen.

Kann ich mit VBA den Benutzergruppen auch Berechtigungen für
die neue Tabelle erteilen? Wie geht das?

Igitt. Unter DAO sollte das definitiv gehen. Da ich aber mit dem Sch… nicht arbeite, kann ich Dir nicht genau sagen, wie. Ob ADO das kann (und wie), weiß ich echt nicht. Könnte sein dass nicht. Irgendwas von Michael Kaplan zielt in diese Richtung: http://www.trigeminal.com/usenet/usenet025.asp?1031 Hab’s mir aber nicht genau durchgelesen, sondern bin beim Stöbern nach Konvertierung DAO->ADO drüber gestolpert…

Gruß, Manfred