Access űrlap adat átadása Wordnek
Sziasztok!
A következő a problémám:
Accessből szeretném az aktuális űrlap adatokat átadni a wordnek. Elvileg van egy kódom ami erre képes:
Option Compare Database
Sub korlevel1(Urlap) ' Nem lehet a modullapnak és az eljárásnak ugyan az a neve
Set w = CreateObject("Word.Application")
w.Visible = True
Set rs = Urlap.RecordsetClone
rs.Bookmark = Urlap.Bookmark ' Itt már a megkapott Urlapot kell használnod (Nincs "Me", mert nem űrlapon vagy
With w
.Documents.Open CurrentProject.Path + "Teszt.docx"
.Selection.WholeStory
With .Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "|Termék|"
.Replacement.Text = DLookup("[Termék név]", "Termék", "Azonosító=" & rs.Fields("Termék")) ' Mivel te kódot tárolsz és nevet akarsz kiíratni, ezt valahogy át kell alakítani!
w.Selection.Find.Execute Replace:=2 'wdReplaceAll
.Text = "|Ügyfél|"
.Replacement.Text = DLookup("[Név]", "Ügyfél", "Azonosító=" & rs.Fields("Ügyfél")) ' Mivel te kódot tárolsz és nevet akarsz kiíratni, ezt valahogy át kell alakítani!
w.Selection.Find.Execute Replace:=2 'wdReplaceAll
End With
End With
End Sub
Sajnos a wordben az adatok nem jelennek meg
A biztonság kedvéért felteszem a próbálkozáomat!
Segítségeteket előre is köszönöm!
http://rexamo.com/email/teszt.zip
Kalmi[/i][/quote]