Export von Access nach Word

Computer: Software & Programmierung Visual Basic
1

Hallo Zusammen (wow, mein erstes posting hier :smile:

Ich stehe vor folgendem Problem:
Ich habe ein Access Formular wo ich Produkte aus einer Datenbank aufliste:
Produkt1 - Seriennummer1 - Bestellen (Ja/Nein)
Produkt2 - Seriennummer2 - Bestellen (Ja/Nein)
Produkt3 - Seriennummer3 - Bestellen (Ja/Nein)
Produkt4 - Seriennummer4 - Bestellen (Ja/Nein)

Jetzt möchte über einen Butten, dass alle daten die Bestellen = Ja sind in ein Word Dokument übertragen werden.
Ich habe mir gedacht, das über ein vb makro zu realisieren.
Doch leider bin ich noch nicht so fit in vb und suche deshalb nach rat.

Ich hoffe ihr könnt mir helfen.

Freundliche Grüsse aus der Schweiz
David Wagner

2

Hallo Daniel,

du setzt einen verweis auf excel

dann dimensionierst du dir ein variable als excel-object.
nun kannst du mit excel arbeiten und z.b ein neues excel-sheet mit deinen daten anlegen.

gruß

rasta

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Hallo Daniel,

Ich heisse David ist aber egal :smile:

du setzt einen verweis auf excel

hmm… möchte Word haben, ist aber auch egal :smile:

dann dimensionierst du dir ein variable als excel-object.
nun kannst du mit excel arbeiten und z.b ein neues excel-sheet
mit deinen daten anlegen.

hmm… kannst du mir vieleicht ein code beispiel dazu geben oder einen Link wo ich mich durchlesen kann?
Ich bin leider noch nicht so fitt in vb…

gruß

Auch Gruss und Danke

rasta

David Wagner

4

Hallo David :smile:

entschuldige, ich war wohl etwas in gedanken…

also

  1. einen verweis setzen(ich glaube in vba – extras-verweise)

  2. objekte instanzieren
    bsp:
    dim wert as string

dim m_word as word.application
dim m_doc as word.document

set m_word = new word.application
m_word.visible = true

set m_doc = m_word.documents.add(*pfad & datei*)

m_doc.custondocumentproperties.add „Wert“, false, 4, wert 'werte an word direkt übergeben

with m_word
.run „main_makro“ 'makro in word ausführen
end with

  1. in word liesst du die übergebenen werte so aus

with activedocument
if .customdocumentproperties(„wert“).value „“ then
variable = .customdocumentproperties(„wert“).value
end if

end with

so DAVID – ich hoffe es hilft dir weiter

viele grüße aus münchen

rasta

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

5

Hallo David :smile:

entschuldige, ich war wohl etwas in gedanken…

Hallo RASTA

Macht doch nix… :smile:

THX hat geklappt …