Access-o-Mania

Access-Forum (Deutsch/German) => Access Programmierung => Thema gestartet von: Harsefeld am November 19, 2013, 15:28:22

Titel: Währungsbetrag nach Word übergeben
Beitrag von: Harsefeld am November 19, 2013, 15:28:22
Hallo ;)

Ich arbeite noch mit Word/Access 2003.

Hierbei habe ich in dieser Datenbank nur Berichte benutzt. Nunmehr möchte ich anstelle eines Berichtes ein Worddokument ansteuern.
Das Ganze sieht wie folgt aus:

Private Sub Befehl50_Click()
Dim objWord As Word.Application

Set objWord = CreateObject("Word.Application")

With objWord
.Visible = True

.Documents.Open ("Rechneraddresse") 'das zu öffnende Worddokument

.activedocument.Bookmarks("Geld").Select
.Selection.Text = Me!Geldbetrag

Alles klappt auch, aber anstelle einer Zahl mit 2 Nachkommastellen wirft mir Word nur die nackte Zahl aus (also 20 bei 20,00 bzw. 20,5 bei 20,50 ). Wie muss ich es ändern dass eine Zahl mit 2 Nachkommastellen ausgeworfen wird? In Access läuft die Zahl als Währung.

Titel: Re: Währungsbetrag nach Word übergeben
Beitrag von: DF6GL am November 19, 2013, 15:36:59
Hallo,


z. B.:

.Selection.Text = Format( Me!Geldbetrag,"0.00")


Titel: Re: Währungsbetrag nach Word übergeben
Beitrag von: Harsefeld am November 20, 2013, 07:45:29
Wunderbar. Hat geklappt.