Database word dokument laten vullen en opslaan

[jan007]

hallo,

Ik ben druk bezig met mijn weg te zoeken met access. Ik heb vorige week een veel hulp gehad bij een vraag van mij en ben daar veel mee opgeschoten.Super!!

Ik heb ongeveer 1000 maal geprobeerd mijn database te koppelen aan een Word dokument (mag ook een webpagina of een excel bestand zijn). De bedoeling is dat iedere keer als er een bericht in access is gemaakt deze automatisch een bestand (Word - Excel of een html pagina) aanvult zodat daar het totale overzicht van berichten in staat.

Heb al allerlei combimaties van macro geprobeerd maar helaas.

Wie helpt me uit de brand.

Jan

 

[silkcom]

Ik heb ff een voorbeeld gemaakt. Zie bijlage.
Pak alles uit naar een en dezelfde map (access.html, access2.html, access.mdb)
Open het bestand access.html.
Open access.mdb en start het formulier "Opvoeren opmerking" op.
Voeg een opmerking toe. Deze wordt geplaatst in het bestand access2.html.
Ververs u de pagina access.html en de nieuwe opmerking wordt weergegeven.

Ik geef toe, dit is niet de mooiste oplossing, maar het werkt.

 

[jan007]

Hoi,

Eerst excuus voor de late reactie. Heb er een tijdje geen tijd voor gehad. Bedankt voor je reactie. Ik begrijp de je bestand als het lees en bekijk in Access. Maar als de codes knip en plak in een nieuw formulier dat ik maak meet meerdere invul veldendan werkt het niet. Bij ieder veld vul ik de code in maar helaas.
Ook staat er in die dat je "hier" de lokatie moet invullen dat heb ik gedaan en dan krijg je dit:

Private Sub Opmerking_AfterUpdate()
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Dim retstring, srt_regel, result, writestring, tmp_txt
    Dim fs1, f1, ts1
    
    ' Origineel bestand openen
    Set fs1 = CreateObject("Scripting.FileSystemObject")
    Set f1 = fs1.GetFile("index.htm")                        'L:/Diversen/index.htm
    Set ts1 = f1.OpenAsTextStream(ForAppending, TristateUseDefault)
    
    ' Nieuwe waarde schrijven
    writestring = [Opmerking].Value & "<br>"
    writestring = writestring
    ts1.Write writestring
    
    ' Bestand sluiten
    ts1.Close
End Sub

Private Sub Bericht_AfterUpdate()

End Sub

out in zitten maar ik begrijp niet waarom hij de ingevulde data niet zendt naar xde index *(maar eerst ook niet naar access2.htm).

Jan

Nou kan daar en f