skabelon der henter data fra database

Hej Ralf4

Skriv din email adresse, så sender jeg dig et eksempel, hvor jeg henter en kunde ind i et formularfelt i et dokument

ralph@morso-mink.dk
eller
rwr@post6.tele.dk
helst begge

svar så får du lidt point, jeg resetter spørgsmålet

Et svar :-)

Hvad skete der lige her? Fik du ikke svar på dit spørgsmål, når rvm kun får halvdelen af pointene? Kunne godt selv tænke mig at se koden.

Hej hov-sa

Jeg ved heller ikke lige hvad der skete, men tror at ralph4 heller ville anvende en anden metode en denne. Han har oprettet et nyt spørgsmål, hvor han spørger om brevfletning med kun een modtager, så det er nok den vej han går nu :-)

Her er koden forøvrigt:

Sub HentKunde()

If ActiveDocument.ProtectionType <> wdNoProtection Then
    ActiveDocument.Unprotect
End If

'Indholdet fra formularfeltet
data = ActiveDocument.FormFields("KundeNr").Result

' Finder bruger i brugerdatabaseb*****************************************************
    Sti = ActiveDocument.Path

    Set Db = OpenDatabase(Name:=Sti & "\Brugeroplysninger.mdb")
    Set Rs = Db.OpenRecordset(Name:="bruger")
       
    For i = 0 To Rs.RecordCount - 1
        If data = Rs.Fields(1).Value Then
            data1 = Rs.Fields(2).Value & " " & Rs.Fields(3).Value
            Exit For
        End If
        Rs.MoveNext
    Next i
       
    Rs.Close
    Db.Close
   
' Indsætter initialer i dokumentet***************************************************
    If ActiveDocument.Bookmarks.Exists("initialer") = True Then
        ActiveDocument.Bookmarks("initialer").Select
        Selection.InsertAfter Text:=data
    Else
        MsgBox "Bogmærket initialer mangler"
    End If
   
' Indsætter underskrift i dokumentet************************
    If ActiveDocument.Bookmarks.Exists("underskrift") = True Then
        ActiveDocument.Bookmarks("underskrift").Select
        Selection.InsertAfter Text:=data1
    Else
        MsgBox "Bogmærket underskrift mangler"
    End If
   
' Går til bogmærket "start" **************************
    If ActiveDocument.Bookmarks.Exists("start") = True Then
        ActiveDocument.Bookmarks("start").Select
    End If
End Sub