VBA Word ComboBox med Access data

http://office.microsoft.com/en-us/infopath-help/use-values-from-an-access-database-to-populate-a-list-box-drop-down-list-box-or-combo-box-HP010096933.aspx

Det hjalp mig ikke meget - jeg kunne ikke finde noget om VBA til Word

why use VBa to fill the combobox if you can do it without?

http://www.fontstuff.com/vba/vbatut10.htm
http://www.officekb.com/Uwe/Forum.aspx/word-vba-userforms/1055/word-vba-combobox-to-get-date-from-mdb-file

Er det rigtig forstået at der ikke så noget i de linkne om hvordan man overføre oplysninger fra combobox til tekstbox - er ny i VBA verden så du må lige bare over med mig :o)

Yes your right, there is nothing in the code to get the data from the combo to a text field.

First you need to get the data from an Access database into the combo then once you have that working you can find out how to move teh data to a text field.

Okay så er jeg med.

Men jeg kan det svære hæller ikke for det til at virke bare, jeg har prøve det der stod på http://www.officekb.com/ (...) jeg kan se at de køre i 2003 jeg køre i 2007 kan det give problemer.

Min Kode:

Private Sub UserForm_Initialize()

    Dim db As DAO.Database

    Dim rs As DAO.Recordset

    Dim NoOfRecords As Long

    ' Open the database

    Set db = OpenDatabase("C:\Users\Parker-1\Vareliste.accdb")

    ' Retrieve the recordset

    Set rs = db.OpenRecordset("MA_liste")

    ' Determine the number of retrieved records

    With rs

        .MoveLast

        NoOfRecords = .RecordCount

        .MoveFirst

    End With

    ' Set the number of Columns = number of Fields in recordset

    ListBox1.ColumnCount = rs.Fields(3).Count

    ' Load the ListBox with the retrieved records

    ListBox1.Column = rs.GetRows(NoOfRecords)

    ' Cleanup

    rs.Close

    db.Close

    Set rs = Nothing

    Set db = Nothing

End Sub

you most probably need a reference to DAO (Data Access Object)

http://msdn.microsoft.com/en-us/library/bb221258(v=office.12).aspx

Det haler om at Microsoft DAO 12.0 Object Library skal være arktiv ikke sand?

Hvis dette er rigtig forstået så Microsoft DAO 12.0 Object Library arktiv så det er ikke dette.

what error do you get?

Compile Error:
User-defined Type not defined

try removing DAO

Dim db As Database

Dim rs As Recordset

http://www.xtremevbtalk.com/showthread.php?t=299831

Lukket