Kombinationsfelder im Frontend per DAO füllen
eresPi
Gesendet: 16.10.20 10:16
Betreff: RE: Kombinationsfelder im Frontend per DAO füllen


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.

Top of the page Bottom of the page