Suchergebnisse

Hallo Kasi, hab's gefunden. Daten kommen aus Zeile 30. Natürlich muß diese Zeile VOR Zeile 25 kommen, damit das array gefüllt werden kann. Zu dumm- Freud'sche Fehlleistung! Sorry für die Umstände,- das "Problem" ist gelöst. Danke

Ok. private sub..... Dim dhl_array(40) As Variant 'Array aus Puffer für DHL Exportliste Dim xzeile As ADODB.Connection Dim rspuffer As ADODB.Recordset Set xzeile = New ADODB.Connection Set rspuffer = New ADODB.Recordset xzeile.ConnectionString = dsnpfad & "zeilenDB.dsn" xzeile.Open 'ZeilenDB.MDB öffnen xzeile.Execute "DELETE * FROM PUFFER" 'löscht alten Datenbestand in ZeilenDB.mdb With rspuffer .ActiveConnection = xzeile .CursorType = adOpenKeyset .LockType = adLockOptimistic .Source = "PUFFER"…

Hallo zusammen, ich trau mich kaum......aber steh auf dem Schlauch. Schon 1000mal so gemacht... Problem: Nachdem das Recordset geöffnet ist, dann seh ich in der IDE den Feldinhalt als .fields(1).value korrekt z.B. ("1234"), wenn der Cursor über value steht. Die Zuweisung an a: (Dim a as variant !) a= .fields(1).value liefert a="" !! und nicht "1234" ?????????? Ich find den Fehler nicht. Seht ihr ihn?

Danke für Deine Hilfe! Funktioniert!!!! Der Tag ist gerettet.

Danke für Deine Antwort. Ja-, das Kommmando wdsendto.... ist der Druckbefehl. Die Reihenfolge spielt am Ergebnis keine Rolle- hab ich probiert. Das Ding druckt halt in dieser Sub nicht- unter WORD schon!.

Guten Tag zusammen, und ein gutes Neues Jahr. Ich muss einem bestehenden Prg. (VB6 Sp6) eine Serienbrieffunktion hinzufügen. Das Hauptdokument ist in Word 2010 erstellt, die Datenbank in Access 2010 ebenso. Unter Word funktioniert der Ablauf tadellos! Ebenso der Ausdruck. Unter VB6 läuft das Prg. fehlerfrei ab, (Word wird gestartet, das DOC geöffnet, neues DOC erzeugt...) allerdings wird KEIN AUSDRUCK ERZEUGT! Wo liegt mein Denkfehler? Ich krieg das Ding nicht zum Drucken! Grüsse Peter Meine SUB…