Hallo!
Ich bin am Verzweifeln. Ich möchte einfach nur, dass Daten aus der DB in meiner UserForm angezeigt werden.
Hier erstmal der Code:
Private Sub UserForm_Initialize()
Dim db As ADODB.Connection
'Verbindung zur Datenbank
Dim ds As New ADODB.Recordset
'Recordset mit Bezug zur aktuellen Datenbank
Dim sqlabfrage As String
'enthält die SQL-Abfrage
Set db = CurrentProject.Connection
'Verbindung zur momentanen Datenbank herstellen
sqlabfrage = "SELECT es, de"
sqlabfrage = sqlabfrage + " FROM tab_woerterbuch"
sqlabfrage = sqlabfrage + " ORDER BY es, de"
With ds
.ActiveConnection = db
'Bezug (Recordset) zur momentanen Datenbankverbindung beziehen
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open sqlabfrage
'Daten ermitteln
End With
Set Me.Recordset = ds
Me.txt_feld1.ControlSource = ds.Fields("es")
Me.txt_feld2.ControlSource = ds.Fields("de")
ds.Close
'Recordset schließen
Set ds = Nothing
'Recordset freigeben
Set db = Nothing
'Verbindung zur Datenbank trennen
End Sub
Wenn ich nun den Code ausführen lasse, dann tritt immer an der Stelle "Set Me.Recordset = ds" folgender Fehler auf:
"Fehler beim Kompilieren: Methode oder Datenobjekt nicht gefunden".
Ich nutze Access in der Version 16.0 (Teil von Office365) unter Windows 7.
Eingebunden sind folgende Bibliotheken:
- VisualBasic for Applications
- Microsoft Access 15.0 Object Library
- OLE Automation
- Microsoft Office 15.0 Access database engine object Library
- Microsoft Forms 2.0 Object Library
- Microsoft ActiveX Data Objects 6.1 Library
Im Netz und durch Ausprobieren bin ich auch nicht weiter gekommen. Die Abfrage wird ausgeführt, es werden auch Ergebnisse geliefert (hatte ich durch .Recordcount getestet), aber halt keine Daten im Formular angezeigt.
Ist vielleicht ganz was Banales, aber manchmal sieht man den Wald vor lauter Bäumen nicht.
Danke im Voraus für eure Hilfe!
Alexander
|