Thema Datum  Von Nutzer Rating
Antwort
09.10.2015 22:48:01 Markus Kuczewski
NotSolved
Blau Combobox mit Recordset befüllen
 10.10.2015 01:08:33 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
10.10.2015 01:08:33		 Views:
1525		 Rating:
     
Antwort:
  Ja
Thema:
Combobox mit Recordset befüllen

Hallo,

falls alle Voraussetzungen gegeben sind, wird mit dem u.a. Code die ComboBox mit Einträgen aus einer Access-DB gefüllt:

1. In VBA muss ein Verweis auf "Microsoft DAO 3.6 Object Library" vorhanden sein.

2. In der Userform muss ein ComboxBox mit dem Namen cbxName vorhanden sein

3. Die Access-DB muss im mdb-Format vorliegen. accdb-Formate werden nicht unterstützt.

4. In der Access-DB muss eine Tabelle "tabNamen" mit den Feldern "Nachname" und "Vorname" vorhanden sein

Code:

Sub LoadAccessData()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Set db = DAO.OpenDatabase(Name:="C:\Temp\test.mdb", ReadOnly:=False)
    Set rst = db.OpenRecordset("Select * from tabNamen order by Nachname")
    If Not rst.EOF Then
        rst.MoveFirst
        Me.cbxName.Clear
        Do Until rst.EOF
            Me.cbxName.AddItem rst.Fields("Nachname") & ", " & rst.Fields("Vorname")
            Debug.Print rst.Fields("Nachname") & ", " & rst.Fields("Vorname")
            rst.MoveNext
        Loop
    End If
    rst.Close
    db.Close
End Sub

VG, BigBen

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.10.2015 22:48:01 Markus Kuczewski
NotSolved
Blau Combobox mit Recordset befüllen
 10.10.2015 01:08:33 BigBen
NotSolved