Supportnet / Forum / Datenbanken

Hi an alle Ich hab mir eine Adressverwaltung aufgebaut, über die direkt vorgefertigte Wordvorlagen aufrufe und an die entsprechenden Stellen Teile einer Tabelle einfügen lasse. z:B werden in einer Briefvorlage automatisch Empänger, Datum an Anrede eingefügt. Das ganze erfolgt über eine Prozedur, die über eine Schaltfläche aktiviert wird. Jetzt habe ich aber auch das ganze mit einer Faxvorlage gemacht. Bei dieser sind noch zwei zusätzliche Textmarken definiert, die auch mit ausgefüllt werden (Telefon-und Faxnummer ) Von einigen Datenbankeinträgen hab ich aber nur die Faxnummer in der Datenbank gespeichert, so das beim Aufruf der Funktion ( Schaltfläche ist mit "Fax schicken " beschriftet) immer der Debugger startet und mich auf einen fehlenden Eintrag hinweist. Jetzt meine Frage: Kann man den Debugger auch abstellen, so das die Vorlage auch ohne Rückfrage aufgerufen wird ?? Verwendete Access Version: Access2002 SP2 Mfg Micha PS: Hier noch der Code, der das Ausfüllen der Vorlage übernimmt: [code]Private Sub Befehl43_Click() Dim üwert As String Dim wwobj As Object ´neues Objekt erstellen Set wwobj = CreateObject("Word.Application") wwobj.Visible = True ´maximieren wwobj.WindowState = wdWindowStateMaximize ´neues Dokument erstellen wwobj.Documents.Add Template:="Fax" ´Briefkopf wwobj.Selection.GoTo What:=wdGoToBookmark, Name:="TMName" üwert = Me!AdrVorname + " " & Me!AdrNachname wwobj.Selection.TypeText Text:=üwert ´Faxnummer wwobj.Selection.GoTo What:=wdGoToBookmark, Name:="TMFax" üwert = Me!AdrTelefon2 wwobj.Selection.TypeText Text:=üwert ´Telefonnummer wwobj.Selection.GoTo What:=wdGoToBookmark, Name:="TMFone" üwert = Me!AdrTelefon1 wwobj.Selection.TypeText Text:=üwert ´Datum wwobj.Selection.GoTo What:=wdGoToBookmark, Name:="TMDatum" üwert = Format$(Date, "dd.mm.yyyy") wwobj.Selection.TypeText Text:=üwert ´Briefanrede wwobj.Selection.GoTo What:=wdGoToBookmark, Name:="TMAnrede" If Not IsNull(Me!AdrBriefanrede) Then üwert = "Sehr geehrte" & Me!AdrBriefanrede Else Select Case Me!AdrGeschlecht Case 1 üwert = "Sehr geehrte Frau " & Me!AdrNachname & "," Case Else üwert = "Sehr geehrter Herr " & Me!AdrNachname & "," End Select End If wwobj.Selection.TypeText Text:=üwert Set wwobj = Nothing End Sub [/code]

If Not IsNull(Me!AdrTelefon2) Then
wwobj.Selection.GoTo What:=wdGoToBookmark, Name:="TMFax"
üwert = Me!AdrTelefon2
wwobj.Selection.TypeText Text:=üwert
end if

If Not IsNull(Me!AdrTelefon1) Then
wwobj.Selection.GoTo What:=wdGoToBookmark, Name:="TMFone"
üwert = Me!AdrTelefon1
wwobj.Selection.TypeText Text:=üwert
end if

Gruß
Teddy

Hi

Danke

Klappt einwandfrei !!!

Mfg Micha

• Was ist ein Debugger
• Was ist ein Debugger, und wie entferne ich Ihn
• ie 7
• Laufzeitfehler wegen Debugger
• Wie entfernt man den Debugger bei Sims Deluxe