Access-97-Datenbank mit Usern und Software.
Mit den drei Tabellen haben Sie schon den richtigen Start. Es ist anzunehmen, dass die Tabellen und deren Beziehungen ungefähr so aussehen: siehe Abbildung 1 unten
Über ein Kombinationsfeld können Sie auch eine Suchmöglichkeit im Formular anbieten. Das Kombinationsfeld soll alle User anzeigen und zum ausgewählten User wechseln. Erstellen Sie dafür ein Kombinationsfeld mit folgender Datensatzherkunft:
SELECT UserNr, User FROM Usertabelle ORDER BY User;
Diese Datensatzherkunft gibt eine Liste aller User zurück. Bei der Auswahl eines Users aus dieser Liste wird folgende Ereignisprozedur NachAktualisierung ausgeführt, um zum gesuchten User zu wechseln:
Private Sub cmbUser_AfterUpdate()
Dim rstClone As Recordset
If Not IsNull(Me!cmbUser) Then
Set rstClone = Me.RecordsetClone
rstClone.FindFirst "UserNr=" & Me!cmbUser
If Not rstClone.NoMatch Then
'zum gefundenen Datensatz wechseln
Me.Bookmark = rstClone.Bookmark
End If
End If
End Sub
Diese Prozedur setzt die Formulareigenschaft RecordsetClone ein, um innerhalb der Datensatzgruppe des Formulars zu suchen. Als Kriterien der FindFirst-Methode wird ein String mit der versteckten Spalte des Kombinationsfelds aufgebaut, die die Usernummer enthält.