Hallo,
ich bin vollkommen neu in der VBA-Access Programmierung. Habe bereits (vor vielen Jahren) mit VB6 etwas Erfahrung gesammelt. ADO-Datenbankverbindungen, Steuerelemente einbinden und einigermaßen SQL sind mir also nicht ganz fremd.
Nun habe ich die Idee (mit inzwischen 72 Jahren) meine viele Freizeit als Rentner mit ein wenig Datenbank-Programmierung zu Privatzwecken, zu nutzen.
Eine Tabelle hatte ich erstellt, indem ich über Access 365 eine Tabelle von Excel importiert hatte. Die Tabelle lässt sich problemlos editieren.
Aber gleich zu Beginn stoße ich auf Probleme. Der Recordset wurde Problemlos über ADO mit der Tabelle verbunden und funktioniert. Wenn ich aber eine ListBox oder KomboBox mit dem Recordset verbinden will erscheint beim setzen der RowSource-Eigenschaft immer die Fehlermeldung "Eigenschaft RowSource konnte nicht gesetzt werden. Ungültige Eigenschaft"
Die ListBox befindet sich in einer UserForm.
Die Syntax ist eigentlich banal. Fehlt vielleicht ein Verweis ...ich komme jedenfalls nicht weiter, bitte um Hilfe!
Gruß
Werner
*Topic verschoben, VB-Tag eingefügt*
ich bin vollkommen neu in der VBA-Access Programmierung. Habe bereits (vor vielen Jahren) mit VB6 etwas Erfahrung gesammelt. ADO-Datenbankverbindungen, Steuerelemente einbinden und einigermaßen SQL sind mir also nicht ganz fremd.
Nun habe ich die Idee (mit inzwischen 72 Jahren) meine viele Freizeit als Rentner mit ein wenig Datenbank-Programmierung zu Privatzwecken, zu nutzen.
Eine Tabelle hatte ich erstellt, indem ich über Access 365 eine Tabelle von Excel importiert hatte. Die Tabelle lässt sich problemlos editieren.
Aber gleich zu Beginn stoße ich auf Probleme. Der Recordset wurde Problemlos über ADO mit der Tabelle verbunden und funktioniert. Wenn ich aber eine ListBox oder KomboBox mit dem Recordset verbinden will erscheint beim setzen der RowSource-Eigenschaft immer die Fehlermeldung "Eigenschaft RowSource konnte nicht gesetzt werden. Ungültige Eigenschaft"
Die ListBox befindet sich in einer UserForm.
Die Syntax ist eigentlich banal. Fehlt vielleicht ein Verweis ...ich komme jedenfalls nicht weiter, bitte um Hilfe!
Gruß
Werner
Visual Basic-Quellcode
- Dim cn As New ADODB.Connection
- Dim rs As New ADODB.Recordset
- Dim Path As String
- Dim DS As String
- DS = "C:\Users\wf\OneDrive\Dokumente\Access\DKV_Backup.accdb"
- Path = "SELECT * from tab_Alle"
- cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & " Data Source = '" & DS & "'"
- Set rs = New ADODB.Recordset
- With rs
- Set .ActiveConnection = cn
- .Source = Path
- .LockType = adLockOptimistic
- .CursorType = adOpenKeyset
- .Open
- End With
- Me.ListBox1.RowSource = Path
- End Sub
*Topic verschoben, VB-Tag eingefügt*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()