Megválaszolatlan hozzászólások | Aktív témák Pontos idő: pén. márc. 29, 2024 8:13



Hozzászólás a témához  [ 1 hozzászólás ] 
Access űrlap adat átadása Wordnek 
Szerző Üzenet
arany tag

Csatlakozott: szer. márc. 24, 2004 13:43
Hozzászólások: 107
Hozzászólás 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]


vas. okt. 18, 2009 20:56
Profil Privát üzenet küldése
Hozzászólások megjelenítése:  Rendezés  
Hozzászólás a témához   [ 1 hozzászólás ] 

Ki van itt

Jelenlévő fórumozók: nincs regisztrált felhasználó valamint 6 vendég


Nem nyithatsz témákat ebben a fórumban.
Nem válaszolhatsz egy témára ebben a fórumban.
Nem szerkesztheted a hozzászólásaidat ebben a fórumban.
Nem törölheted a hozzászólásaidat ebben a fórumban.

Keresés:
Ugrás:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Designed by ST Software for PTF.
Magyar fordítás © Magyar phpBB Közösség