Flette flere værdier til Word
Jeg har lavet en funktion, der på glimrende vis overfører data fra to forskellige queries til et worddokument.Jeg har ingen problemer med data, så længe der er tale om en-til-en relation.
I dette tilfælde overføres kundestamdata. Jeg får imidlertid problemer, da kunden har nogle anlæg. Jeg ved ikke på forhånd hvor mange anlæg og jeg skal liste anlæggene op i dokumentet.
Nedenfor er et uddrag af koden, idet det bemærkes, at antallet af anlæg kan tælles i qryExpWordTilbud_Kunde, da det svarer til antallet af rækker i forespørgslen. Den nederste linie i koden viser det første anlæg i forespørgslen.
Hvordan får jeg de øvrige vist??
KODE:
Set rs = db.OpenRecordset("SELECT * FROM qryExpWordTilbud_Kunde WHERE kunde_ID = " & cboKundeTilbud)
Set rs2 = db.OpenRecordset("SELECT * FROM tblAftaleSkabelon")
skabelon = "Tilbud_blank.dotx"
'Åbner word
Set oword = CreateObject("word.application") 'bruges til både late binding
'Set oWord = New Word.Application 'early binding
oword.Visible = True 'true hvis dokumentopbygning skal være synlig mens der udskrives
Set oDoc = oword.Documents.Add(Application.CurrentProject.Path & "\" & skabelon)
oword.Visible = True
'Indsætter data fra qryExpWordTilbud_Kunde:
'sInsertTextAtBookmark oword, "Kunde_Id", Nz(rs!Kunde_id, "")
sInsertTextAtBookmark oword, "Navn", Nz(rs!Navn, "")
sInsertTextAtBookmark oword, "Kundenavn", Nz(rs!Navn, "")
sInsertTextAtBookmark oword, "adresse", Nz(rs!Adresse, "")
sInsertTextAtBookmark oword, "Adresse_Hoved", Nz(rs!Adresse, "")
sInsertTextAtBookmark oword, "Adresse_text1", Nz(rs!Adresse, "")
sInsertTextAtBookmark oword, "postnr", Nz(rs!postnummer, "")
sInsertTextAtBookmark oword, "postnr_Hoved", Nz(rs!postnummer, "")
sInsertTextAtBookmark oword, "postnr_text1", Nz(rs!postnummer, "")
sInsertTextAtBookmark oword, "by_Hoved", Nz(rs!Bynavn, "")
sInsertTextAtBookmark oword, "by", Nz(rs!Bynavn, "")
sInsertTextAtBookmark oword, "by_text1", Nz(rs!Bynavn, "")
sInsertTextAtBookmark oword, "Anlaeg", Nz(rs!Anlaeg_kunde, "")
