Office: MS-Office-Forum Team

Fred vom Jupiter · 22. Dezember 2003

Hallo,

will mich hier auch mal ein wenig schlau machen und hoffe das ich hier richtig bin.

Wir haben von Access2002 auf 2003 upgedatet und seit dem geht die Funktion Mailmerge nicht mehr. Das Beispiel aus diesen Beiträgen habe ich heruntergeladen.

Bei mir gibt es nun folgende Probleme:

MSGBOX: "Das Öffnen dieses Dokuments wird den folgenden SQL-Befehl ausführen:
SELECT * FROM Tabelle
Möchten Sie fortfahren?"

Wie kann ich diese Box unterbinden?

Nach dem Befehl .MailMerge.OpenDataSource..... erscheint eine Box wo nach den Dateiverknüpfungseigenschaften gefragt wird. Dort muß ich meine Datenbank nochmals auswählen und dann Datenquelle über DDE wählen.

Wieso muß ich diese ganzen Angaben im Code (z.B. den SQL-String) machen, wenn ich die Datenquelle in Word angegeben habe?

Microsoft bringt mich echt an den Wahnsinn.

Eigentlich wollte ich den Serienbrief mit einer txt-Datei verbinden.

Fred vom Jupiter · 22. Dezember 2003

Sorry,

habe vorschnell gefragt. Bitte meine Frage vergessen!!!!

Muß erst den Rest testen. Hatte nur die erste Seite gelesen.

Sorry....

strausto · 17. November 2004

Hi!

Kann mir jemand sagen wie es möglich ist auf einen SQL Server zuzugreifen ohne eine odc oder udl anzusprechen.

Es gelingt mir nicht z.B. einen ADO ConnectionString an dei MailMerge weiterzugeben...

Danke!

strausto · 17. November 2004

on top

strausto · 18. November 2004

on top

Nouba · 18. November 2004

Ohne ansatzweise zu zeigen, was Du bisher ohne Erfolg probierst hast, wirst Du das Thema bestimmt noch einige Male toppen können - ich würde mich auf die bisherige Frage kaum rühren. Eine Begründung, warum Deine angestrebte Methode zur Anwendung kommen muß, wäre auch nicht schlecht.

strausto · 18. November 2004

Okay Nouba!

Mag sein dass das der Grund für die fehlende Antwort ist.

Dann werde ich weiter ausholen:

Ich habe einen SQL Server und folgene Routine:
Code:

Private Const m_con_sADOConnection As String = _
"Provider=SQLOLEDB.1; " & _
"Password=lalalala; " & _
"Persist Security Info=True;" & _
"User ID=innovation; " & _
"Initial Catalog=eineDatenbank; " & _
"Data Source=172.19.20.227"

Private Sub cmd_Print_Click(Index As Integer)

If m_bool Then Exit Sub

Dim lstView As MSComctlLib.ListView
Dim lstItem As MSComctlLib.ListItem
Dim sSQL As String
Dim sSql1 As String
Dim s As String
Dim objWord As Object
Dim objDoc As Object

On Error Resume Next

Set objWord = GetObject(, "Word.application")
If Err.Number > 0 Then Err.Clear
Set objWord = CreateObject("Word.Application")
Set objDoc = GetObject(m_sPath & "MailMerge.doc", "Word.Document")

On Error GoTo HandleErr

Set lstView = Me.lstView

If Not lstView.SelectedItem.Selected Then Exit Sub

For Each lstItem In lstView.ListItems
If lstItem.Selected = False Then s = Mid(lstItem.Key, 2, Len(lstItem.Key) - 1) & "," & s
Next

If s = vbNullString Then s = "0" Else s = Mid(s, 1, Len(s) - 1)

sSQL = "SELECT * FROM vwSerienbrief WHERE login_id NOT IN( " & s & ")"

If Len(sSQL) > 255 Then
sSql1 = Mid$(strSQL, 255)
sSQL = Left$(strSQL, 255)
End If

Set objDoc = GetObject(m_sPath & "MailMerge.doc", "Word.Document")

With objDoc

.MailMerge.MainDocumentType = 0
'Hier nun die relevante Stelle
.MailMerge.OpenDataSource Name:= _
"C:\Documents and Settings\strat3\Desktop\Neu Textdokument.udl", _
Connection:= _
"Provider=SQLOLEDB;Password=lalalla;Persist Security Info=True;User ID=innovation;Initial Catalog=EineDatenbank;Data Source=172.19.20.227;", _
SQLStatement:=sSQL, _
SQLStatement1:=sSql1

.Application.Visible = False
.MailMerge.Destination = 0
.MailMerge.Execute Pause:=False
.Close SaveChanges:=False
Call UpdateLogIn(m_l)

End With

Call saveNewDocument

HandleExit:

Set objWord = Nothing
Set objDoc = Nothing
Set lstView = Nothing
Exit Sub

HandleErr:
Select Case Err.Number
Case Else
MsgBox "Fehler " & Err.Number & ": " & _
Err.Description, vbCritical
End Select
Resume HandleExit

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dieser Code erfordert eine UDL die ich dem USER mitgeben muss. Es fubktioniert, ist aber nicht zweckdienlich.
Über eine odc funktioniert es ebenfalls. Ist aber wie die UDL zu bewerten.

Über ODBC ist es mir wie Manuela gepostet hat nicht gelungen. Hier kommt es zu den von Günther erwähnten "Fehlerbildern".

Ich möchte die Verbindung in den Code setzen und keine UDL oder ODC weitergeben.

Vielleicht mache ich mit der ODBC Verbindung etwas falsch?!

strausto · 18. November 2004

Der Versuch eine ODBC anzugeben führt dazu dass Word mich auffordert die Data Source auszuwählen:
Code:

.MailMerge.OpenDataSource _
Name:="", _
ConfirmConversions:=False, _
LinkToSource:=True, _
Connection:="DSN=Extranet;UID=innovation;PWD=lalall;APP=Microsoft Office XP;WSID=ECGELNPR99999VF;DATABASE=EineDB;", _
SQLStatement:=sSQL, _
SQLStatement1:=sSql1
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: MS-Office-Forum Team

MS-Office-Forum Team

MS-Office-Forum Team

MS-Office-Forum Team

MS-Office-Forum Team

MS-Office-Forum Team - Similar Threads - Office Forum Team

Office 365 neu registrieren

Office LTSC Professional Plus 2024 Aktivierung

(Office 2016) Imap Konto neu einrichten geht nicht

Forum Office-Lösung.de

MS-Office-Forum Team

MS-Office-Forum Team

Ein offline Forum mit Office XP erstellen?