Miten saan Access taulukoista, lomakkeista ja raporteista tietoa valmiiseen Wordillä tehtyyn lomakkeeseen?
Kiitos hirmuisesti sille, joka pystyy auttamaan!
Access tietoja valmiiseen Word lomakkeeseen, miten?
2
242
Vastaukset
- Varjo
Visual basicilla pystyisit tekemään ohjelman, jolla voi lukea suoraan tietokannasta tietoa esimerkiksi word-lomakkeeseen.
Muuta keinoa ei oikein ole, vb:llä tai vastaavalla ohjelmointikielellä pystyt parhaiten hallitsemaan tietoa ja kirjoittamaan sen haluttuun kohtaan.
Tsekkaa lisätietoa myös osoitteessa http://www.msdn.com - Kunde
Tätä oon käytellyt-elikkä tee lomakkeelle kirjainmerkit oikeisiin paikkoihin ja nimeä ne-muuta koodissa nimet vastaamaan kirjainmerkkejäsi jne...
Option Explicit
Public pappWord As Word.Application
Private Sub VieWord()
On Error GoTo Virhe
Dim Päiväys As String
Dim Polku As String
Set pappWord = GetObject(, "Word.Application")
Päiväys= Format(Date, "mmmm d, yyyy")
Polku = "C:\Bookmark.dot"
pappWord.Documents.Add Polku
On Error Resume Next
With pappWord.Selection
.GoTo What:=wdGoToBookmark, Name:="Nimi"
.TypeText Text:=txtNimi
.GoTo What:=wdGoToBookmark, Name:="Yritys"
.TypeText Text:=TxtYritys
.GoTo What:=wdGoToBookmark, Name:="Osoite"
.TypeText Text:=TxtOsoite
.GoTo What:=wdGoToBookmark, Name:="Fax"
.TypeText Text:=TxtFax
.GoTo What:=wdGoToBookmark, Name:="Päiväys"
.TypeText Text:=Päiväys
End With
On Error GoTo Virhe
With pappWord
.Selection.WholeStory
.Selection.Fields.Update
.Selection.HomeKey Unit:=wdStory
.ActiveWindow.WindowState = 0
.Visible = True
.Activate
End With
VirhePoistu:
Set pappWord = Nothing
Exit Sub
Virhe:
If Err.Number = 429 Then
Set pappWord = CreateObject("Word.Application")
Resume Next
Else
MsgBox "Virhe " & Err.Number & "; Wordiä ei voida avata"
Resume VirhePoistu
End If
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Putin hoiti Suomen natoon ja myös Ruotsin
Iso kiitos Vladimir Putinille. Hänen ansiosta pääsemme nyt Natoon. Putin halusi Naton lähelle ja nyt sai. Voimme tästä kiittää vain Putinia.6437916Niinistö teki hetkessä Suomesta Venäjän ydinaseiden maalitaulun
Kaiken lisäksi mies vielä lällätteli Putinille eilisessä tiedotustilaisuudessa ja käski katsomaan itseään peiliin. Kyllä vähän asiallisempaa käytöstä4522201Voi Stefu ja sun kiivas luonteesi
Sielä lentelee ullakkohuoneiston ikkunasta daamin vaatteet ja matkalaukut pitkin pihaa. Toisaalta,en ihmettele yhtään että tämä suhde päättyi näin,kyl2292105- 1431680
Veikkaus: Miten The Rasmus pärjää Euroviisuissa?
Euroviisuhuuma on ylimmillään, kun Suomi ja The Rasmus taistelee biisillään Jezebel. Bändi on tikissä, kunhan Lauri Ylösen ääni kantaa. Mitä veikka511226Ohhoh! Martina Aitolehti ja seurapiirihurmuri-Jesper ekassa yhteiskuvassa - Sutinaa Mallorcalla!
Martina Aitolehti ja seurapiirijulkkis-Jesper nauttivat toisistaan varsin vauhdikkaissa merkeissä Mallorcalla. Aitolehti ei ole esitellyt rakastaan vi251211Stefanilta tuli taas karu totuus Sofiasta
Marokkolainen h*o*ra! Voi tsiisus kun mulla on hauskaa! Lumput lentää ikkunasta kun Stefu raivoaa h*uralleen🤣🤣🤣 Nyt ne popparit tulille, tästä tule991084Ootko onnellinen kun ei tarvitse
nähdä tätä tyhmää naamaa enää koskaan? Multa se särkee sydämen, mutta minkäs teen. Vaikka olisi kuinka sinnikäs eikä hellittäisi, se ei aina auta.65831Steppuli veressä
Seiskan lööpissä Steppulilla naama ja nyrkit veressä. Ei tainnut ihan kamojen pihalle paiskominen riittää. Onkohan pistänyt kämpän tuusannuuskaks.54733Oletko nähnyt eroottiset kohuleffat? Fifty Shades Of Grey -trilogia tv:stä
Fifty Shades -trilogia starttaa, kun nuori opiskelijanainen Anastasia tapaa rikkaan liikemiehen. Seksisuhdehan siitä starttaa, höystettynä sadistisill6721