Hoe maak ik een Word-document actief vanuit Access?

[tomswaelen]

Euh, wat? Vriendelijk bedankt voor de moeite, maar van bovenstaande code begrijp ik nu eens niets... :S

Waar ik de code van Jwaque nog kon lezen, ben ik het hier totaal kwijt.

 

[OctaFish]

Je hoeft 'm ook niet na 2 minuten te snappen, lijkt mij... Zo ingewikkeld is het overigens niet.
Je opent een recordset (je tabel of query) en loopt door alle records heen. Dat doe je met een lus die doorloopt tot EndOfFile. Daarbij begin ik met het uitlezen van de veldnamen (.Fields(i).Name). Die wil je als kolomkopjes terugzien, lijkt mij. Dat doe je maar één keer, want bij het tweede record is de string gevuld. Daarna ga je dus de volgende records uitlezen, en dan heb je de waarden nodig (.Fields(i).Value). Uiteindelijk zet je alles met een msgbox op het scherm. Ik heb de code in je knop geplakt, want daar stond nog niks. Zou bij jou dus zonder meer moeten werken!

 

[tomswaelen]

Bij mij zit nu dit achter de knop:

Private Sub Knop3_Click()
Dim rst As DAO.Recordset
Dim sTekst As String, sWaarde As String
Dim i As Integer
    Set rst = CurrentDb.OpenRecordset("Opvraging - te versturen")
    With rst
        Do While Not .EOF
            If sTekst = "" Then
                For i = 0 To .Fields.Count - 1
                    If Not sTekst = "" Then sTekst = sTekst & vbTab
                    sTekst = sTekst & .Fields(i).Name
                Next i
            Else
                For i = 0 To .Fields.Count - 1
                    If Not sWaarde = "" Then sWaarde = sWaarde & vbTab
                    sWaarde = sWaarde & .Fields(i).Value
                Next i
                sTekst = sTekst & vbLf & sWaarde
            End If
            .MoveNext
        Loop
        MsgBox sTekst
    End With
End Sub

Maar dan zegt hij: Compileerfout: een door de gebruiker gedefinieerd gegevenstype is niet gedefinieerd. En hij highlight dit in het blauw: rst As DAO.Recordset

 

[jwaque]

controleer of je verwijzingen goed staan.

 

[OctaFish]

Ado 2.1? :d