OpenOffice.info

Ah, ok, danke! Werde ich mal ausprobieren :)

Ich habe gestern Abend aber noch eine andere Lösung gefunden. Ich habe globale Variablen definiert, befülle diese mit einem Makro im Formular1 und fülle mit einem anderen Makro in Formular2 die Textfelder mit den globalen Variablen.

ThisDatabaseDocument.FormDocuments.getByName( "Kunden in Angebote eintragen" ).open

newDoc = ThisDatabaseDocument.FormDocuments.getByName( "Kunden in Angebote eintragen" ).open

(...)
newDoc = ThisDatabaseDocument.FormDocuments.getByName( "Kunden in Angebote eintragen" ).open
newForm = newDoc.Drawpage.Forms.getByIndex(0)
(...)

Aloha

[code]ThisDatabaseDocument.FormDocuments.getByName( "Kunden in Angebote eintragen" ).open[/code]
liefert Dir eine Referenz auf das neu geöffnete Formular.

Mit der Zuweisung
[code]newDoc = ThisDatabaseDocument.FormDocuments.getByName( "Kunden in Angebote eintragen" ).open[/code]
kannst Du danach also mit [color=#0080FF]newDoc[/color] so arbeiten, wie Du es auch mit Deinem [color=#00BFFF]oDoc[/color] tust.

[code]
(...)
newDoc = ThisDatabaseDocument.FormDocuments.getByName( "Kunden in Angebote eintragen" ).open
newForm = newDoc.Drawpage.Forms.getByIndex(0)
(...)
[/code]

Sub Kunden_in_Angebote_eintragen
	oDoc = ThisComponent
	Form = oDoc.drawpage.forms.getbyindex(0)
	var1 = Form.getByName("txtName 1") 'speichert Textfeld aus Formular "Kundenverwaltung" in eine Variable
	
	REM öffnet das Formular "Kunden in Angebote eintragen"
	ThisDatabaseDocument.FormDocuments.getByName( "Kunden in Angebote eintragen" ).open
	
	MsgBox var1.Text 'zur Kontrolle
end sub

Morgen :)

Ich habe hier ein Problem, das ich bis jetzt noch nicht knacken konnte.

Ich habe 2 Formulare:

Formular1 = Kundenverwaltung
Formular2 = Kunden in Angebote übertragen

In Formular1 wird der aktuelle Datensatz per Textfelder angezeigt. Per Button öffnet sich Formular2, mit auszufüllenden Textfeldern und Textfeldern, die mit dem Inhalt von ein paar Textfeldern aus Formular automatisch gefüllt werden sollen.

Derzeit sieht mein Makro so aus:

[code]
Sub Kunden_in_Angebote_eintragen
oDoc = ThisComponent
Form = oDoc.drawpage.forms.getbyindex(0)
var1 = Form.getByName("txtName 1") 'speichert Textfeld aus Formular "Kundenverwaltung" in eine Variable

REM öffnet das Formular "Kunden in Angebote eintragen"
ThisDatabaseDocument.FormDocuments.getByName( "Kunden in Angebote eintragen" ).open

MsgBox var1.Text 'zur Kontrolle
end sub
[/code]

Das funktioniert auch, aber wie geht es weiter? Wie kriege ich var1 in ein Textfeld in dem Formular "Kunden in Angebote eintragen"?