Binden eines Formulars an ein ADO-Recordset

Wenn Sie ein Access-Formular an ein Recordset binden möchten, müssen Sie die Recordset-Eigenschaft des Formulars auf ein geöffnetes Recordset-ADO-Objekt festlegen. Ein Formular muss zwei allgemeine Bedingungen erfüllen, damit es aktualisiert werden kann, wenn es an ein ADO-Recordset gebunden ist. Die allgemeinen Bedingungen lauten:

• Das zugrunde liegende ADO-Recordset muss über ADO aktualisierbar sein.
• Das Recordset muss mindestens ein Feld mit einem eindeutigen Index enthalten, z. B. den Primärschlüssel einer Tabelle.

 Private Sub Form_Open(Cancel As Integer) 
 Dim cn As ADODB.Connection 
 Dim rs As ADODB.Recordset 
 
 'Use the ADO connection that Access uses 
 Set cn = CurrentProject.AccessConnection 
 'Create an instance of the ADO Recordset class, 
 'and set its properties 
 Set rs = New ADODB.Recordset 
 With rs 
 Set .ActiveConnection = cn 
 .Source = "SELECT * FROM Customers" 
 .LockType = adLockOptimistic 
 .CursorType = adOpenKeyset 
 .Open 
 End With 
 'Set the form's Recordset property to the ADO recordset 
 Set Me.Recordset = rs 
 Set rs = Nothing 
 Set cn = Nothing 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.