Private Sub register_Click()
On Error GoTo Err_register_Click
Dim Db As DAO.Database
Dim Rst As DAO.Recordset
Dim strSQL As String
Set Db = CurrentDb
strSQL = "SELECT * FROM tblMitglieder " & "WHERE Vorname = " & Me!Vorname
Set Rst = Db.OpenRecordset(strSQL)
Set Word = CreateObject("Word.Application")
With Word
.Visible = True
.Documents.Open "C:\Dokumente\HW\Vonner\Organizer.doc"
.ActiveDocument.Bookmarks("TextVorname").Select
.Selection.Text = Rst!Vorname
.ActiveDocument.Bookmarks("TextAlter").Select
.Selection.Text = Rst!Alter
.ActiveDocument.Bookmarks("TextStadt").Select
.Selection.Text = Rst!Stadt
End With
Exit_register_Click:
Exit Sub
Err_register_Click:
MsgBox Err.Description
Resume Exit_register_Click
End Sub
So, ich muss leider zugeben, dass ich mich mit SQL nicht wirklich auskenne und obiges teilweise zusammenkopiert habe.
Aus diesem Grunde fällt es mir schwer hier den Fehler zu finden bzw. nachzuvollziehen.
Kann mir jemand einen Tip geben was ich falsch mache oder mir vielleicht sogar einen Weg aufzeigen, wie das einfacher zu realisieren ist?
Sollten Verständnisprobleme auftauchen versuche ich das ganze auch gerne nocheinmal per Screenshots o.Ä zu veranschaulichen.