Access tietoja valmiiseen Word lomakkeeseen, miten?

Matti

Miten saan Access taulukoista, lomakkeista ja raporteista tietoa valmiiseen Wordillä tehtyyn lomakkeeseen?

Kiitos hirmuisesti sille, joka pystyy auttamaan!

2

242

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. 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.
      Maailman menoa
      643
      7916
    2. Niinistö 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ä
      Maailman menoa
      452
      2201
    3. Voi 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,kyl
      Kotimaiset julkkisjuorut
      229
      2105
    4. Poliisi otti Stefun kiinni!

      Seiska tietää kertoa.
      Kotimaiset julkkisjuorut
      143
      1680
    5. 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ä veikka
      Viihde ja kulttuuri
      51
      1226
    6. Ohhoh! 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 vi
      Kotimaiset julkkisjuorut
      25
      1211
    7. Stefanilta 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ä tule
      Kotimaiset julkkisjuorut
      99
      1084
    8. Ootko 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.
      Ikävä
      65
      831
    9. Steppuli veressä

      Seiskan lööpissä Steppulilla naama ja nyrkit veressä. Ei tainnut ihan kamojen pihalle paiskominen riittää. Onkohan pistänyt kämpän tuusannuuskaks.
      Kotimaiset julkkisjuorut
      54
      733
    10. Oletko 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ä sadistisill
      Suhteet
      6
      721
    Aihe