Microsoft Access Programmierrezepte

R6.10 Eine Spalte mit automatischen Zufallswerten erzeugen

Aufgabe

Sie möchten statt eines Zählerfeldes besser einen eindeutigen Zufallswert verwenden. Wie aber kann eine derartige Spalte generiert werden?

Lösung

Verwenden Sie in Access dafür ein GUID^[13]-Feld. Allerdings müssen Sie über die Jet-spezifischen Eigenschaften noch den Wert Jet OLEDB:AutoGenerate auf True setzen.

Quelltext

Hinweis

Binden Sie zunächst die ADOX-Libary ein (Menü Extras/Verweise...).

Beispiel

Nachträgliches Erzeugen eines GUID-Feldes mit eindeutigen Zufallswerten in der aktuellen Datenbank

Sub Auto_GUID() Dim catalog As New ADOX.catalog Dim table As New ADOX.table Dim column As ADOX.column Dim index As ADOX.index catalog.ActiveConnection = Application.CurrentProject.Connection ...