Member
Beiträge: 5
Ort: Sachsen | wilo - 14.10.20 16:53
Hi,
ohne eingebundene Tabellen und gebundene Controls verschenkst Du zwar Vorteile von Access aber Du hast bestimmt gute Gründe.
Habe es kurz ausprobiert, weil es mich interessiert hat : was Du willst geht problemlos per Code.
Ich habe eine cbo1 in einem Firmular und per Knopfdruck wird folgender Code ausgeführt
Dim db As dao.Database
Dim rs As Recordset
Set db = OpenDatabase("c:\evidenz0\back.mdb")
Set rs = db.OpenRecordset("select ben_name from tblBenutzer", dbOpenDynaset)
Set Me!cbo1.Recordset = rs
Set rs = Nothing
Set db = Nothing
danach ist cbo1 gefüllt mit den Daten aus der externen DB c:\evidenz0\back.mdb
Wilo
Hallo,
vielen Dank für die Hilfe. Bei den Projekten über die Uni wurde nur reiner VBA-Code verlangt, halt ohne gebundene Controls - ich versuche den Anspruch beizubehalten. Habe den Code auf meinen Fall übertragen. Allerdings wird der Inhalt dennoch nicht in der cbo angezeigt. Die Verbindung zur accdb habe ich im Direktfester über ein Debug.Print getestet - das funktioniert. Es läuft irgendetwas mit der cbo schief. Hier mal mein Code:
Option Compare Database
Option Explicit
Private Sub cboKurs_Click()
Dim db As DAO.Database
Dim rs As Recordset
Set db = OpenDatabase("C:\Temp\Akademie_be.accdb")
Set rs = db.OpenRecordset("SELECT KursID, strKursBezeich FROM tblKurse", dbOpenDynaset)
Set Me!cboKurs.Recordset = rs
cboKurs.ColumnCount = 2
cboKurs.BoundColumn = 1
cboKurs.ColumnWidths = "0cm;2cm"
Set rs = Nothing
Set db = Nothing
End Sub
Vielleicht müssen noch irgendwelche Einstellungen am Kombinationsfeld vorgenommen werden?
Beste Grüße
Rene S.
|
