Meerdere gegevens ophalen uit excel dmv combobox

[brakkeleer]

Hallo,

Ik ben bezig met een offerte te maken. Nu heb ik een combobox die gevuld moet worden middels excel. Wat ik wil is dat je middels de combobox een naam kunt aanklikken en als je op de opdrachtenknop klikt hij de adres gegevens (die in de excel sheet staan) in de bladwijzers invult. Dus je selecteerd alleen een naam en de adresgegevens moeten daaraan gekoppeld worden. Ik had op internet onderstaand voorbeeld gevonden, maar op de een of andere manier werkt het niet. Dit is wel precies wat ik bedoel. Kan iemand me zeggen wat ik fout doe? De melding die ik krijg heb ik als bijlage ingevoegd.

Private Sub box_naam_Change()
Set Conn = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")

Conn.Open "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=" & ActiveDocument.Path & "\Adressen.xls;"
RS.Open "SELECT * FROM [Sheet1$] WHERE Naam = '" & ComboBox1 & "'", Conn

Selection.GoTo wdGoToBookmark, , , "Naam"
Selection.TypeText RS("Naam")
Selection.GoTo wdGoToBookmark, , , "Adres"
Selection.TypeText RS("Adres")
Selection.GoTo wdGoToBookmark, , , "Plaats"
Selection.TypeText RS("Postcode") & " " & RS("Plaats")
RS.Close: Set RS = Nothing
Conn.Close: Set Conn = Nothing
End Sub

Private Sub UserForm_Initialize()
    Dim Conn As Object, RS As Object
    
Set Conn = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")

Conn.Open "Driver= {Microsoft Excel Driver(*.xls)};DriverId=790;Dbq=" & ActiveDocument.Path & "\Adressen.xls;"
RS.Open "SELECT * FROM [Sheet1$]", Conn

Do While Not RS.EOF
    Me.box_naam.AddItem RS("Naam")
    RS.MoveNext
Loop

RS.Close: Set RS = Nothing
Conn.Close: Set Conn = Nothing
End Sub

Het zal wel iets heel doms zijn maar ik kom er echt niet uit.

Alvast bedankt!

Nog een aanvulling :
Ik maak voor de rest van de offerte gebruik van DAO (daar werk ik normaal altijd mee) maar ik weet ook niet of dat in combinatie kan met ADO? Als iemand een totaal andere oplossing weet... laat maar komen!

 

[Guus2005]

Als je Acc2K3 of hoger gebruikt:

Link je spreadsheet alsof het een tabel is.
je kan dan gewoon queryen.

 

[brakkeleer]

Hoi Ik begrijp niet wat je bedoelt.
Kun je iets duidelijker zijn?
ALvast bedankt!