|
| Autor |
Nachricht |
efi110
Newbie
Anmeldedatum: 14.07.2011
Beiträge: 3
|
Serienbrief von VB6 Profi-Code funktioniert nicht!!!!!
Verfasst am: 14.07.2011, 09:02 |
|
|
Hallo Leute,
möchte einen Serienbrief aus VB6 heraus anstossen mit folgendem Code:
.OpenDataSource Name:="", ConfirmConversions:=True, ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
Connection:= "DSN=Microsoft Access-Datenbank;DBQ=" & mod_allg.Pfad_fuer_dateien + "\db" +
Format$(mod_allg.Firmennummer, "00000") + ".mdb;" & _
"DefaultDir=" & mod_allg.Pfad_fuer_dateien & ";DriverId=25;FIL=MS Access;MaxBufferSize=2048;
PageTimeout=5;UID=sa;PWD=" & Trim(mod_allg.DB_Kennwort) & ";" _
, SQLStatement:="SELECT kundennummer, anrede, name1 , name2, branche, strasse, land, plz, ort, telefon, telefax, mobil,
geschaeft, mail, internet," _
, SQLStatement1:="briefanrede, bankname, kontonummer, blz FROM `" & mod_allg.Pfad_fuer_dateien + "\db" +
Format$(mod_allg.Firmennummer, "00000") & "`.kundenstamm kundenstamm WHERE
(kundenstamm.kundennummer=" & Trim(txt_kundennummer) & ")"
Dieser Code bringt die Fehlermeldung: "Word konnte die Datenquelle nicht öffnen"
Vielen vielen Dank für Eure Hilfe
mfg
efi  |
|
| |
|
 |
christopher.g
Überflieger
Anmeldedatum: 03.05.2008
Beiträge: 565
|
Verfasst am: 15.07.2011, 07:10 |
|
|
hi
wenn du deine codes selber schreibst weist du wass du hast 
ich kenne mich mit access nicht aus
habs mal in der schule gelernt aber is lange her
und ausserdem interssierts mich nicht
lange rede kurzer sinn...
ich kann dir nur sagen was ich machen würde wenn ich jetzt einen serien brief ersellen wollen würde
eine exceltabelle...
die kann ganz einfach ausgelesen werden und gleich in excel -> vba weiter verwedet werden um deine briefe zu erstellen
| Code: |
for i = 1 to 1000
FamName = Cells(i, 1)
VorName = Cells(i,2)
Adresse = Cells (i,3)
'...
'un dan brauchst du die sachen nur mehr ausgeben
outputstring = "Sehr geehrte/r Herr/Frau/Firma " & FamName & "!" & vbnewline & _
"Betrifft Abriss des Hauses: " & Adresse
open "C:\Brief_" & format$(i, "0000") & ".txt" for output as #1
print #1, Outputstring
close #1
next
|
Das war jetzt nur ein beispiel
und wo man weis was man hat
vl kannst damit was anfangen
lg deepack |
|
| |
|
|
efi110
Newbie
Anmeldedatum: 14.07.2011
Beiträge: 3
|
VB-Anwendung mit Access-Datenbank Serienbriefausgabe an Word
Verfasst am: 15.07.2011, 17:00 |
|
|
Hmmmmmm, danke
aber ich brauche die Lösung für meine VB-Anwendung mit Access-Datenbank.
Also ich möchte aus meiner Anwendung (VB) heraus Datensätze von Access an Word für einen Serienbrief übergeben.
Der Quellcode ist fast richtig, aber halt noch nicht ganz.
die klizzzzzze kleine Korrektur fehlt mir halt noch, abgesehen, dass im Quellcode bei der Statemament Übergabe fehlterhaft zweimal Kundenstamm hintereinander steht.
weiß den niemand, wie die opensorce Funktion von mailmerge funtioniert?
Ich hab schon Tage damit verbracht, komme aber einfach nicht auf die Lösung, bin schon die Syntax des öfteren durchgegangen.
Viele Grüße von
Efi110  |
|
| |
|
|
christopher.g
Überflieger
Anmeldedatum: 03.05.2008
Beiträge: 565
|
Verfasst am: 16.07.2011, 16:39 |
|
|
nein wie gesagt ich hab keine ahnung von access
stelle deine frage mal auf
vb-future.net
oder vb-paradise.de
dort wird dir sicher geholfen
lg |
|
| |
|
|
efi110
Newbie
Anmeldedatum: 14.07.2011
Beiträge: 3
|
Verfasst am: 17.07.2011, 12:33 |
|
|
OK,
trotzdem vielen Dank für Deine Unterstützung
mfg
efi110 |
|
| |
|
|
|
|
Registrieren
Login
