OpenOffice.info

von **Marco Schade** » So, 09.04.2017 11:09

Hallo zusammen ,

habe es hinbekommen
ich habe

oFormKunde2.MoveToInsertRow()

rausgenommen
und schon ging es

Liebe Grüße

Marco

von **Marco Schade** » Sa, 08.04.2017 19:45

Hallo zusammen ,

das Makro läuft perfekt, jetzt habe ich dieses in einem anderen Formular eingebaut mit mehreren Unterformularen, es fügt auch den markierten Datensatz in die Listboox ein , nur leider wird auch eine neue Haupt ID vergeben.

Code: Alles auswählen

Sub Formular_Gastgebergeschenk_eintragen
    oMainForm = ThisComponent.drawpage.forms.getbyname("frmSuche")
'oSubForm = oMainForm.getbyname("Formular Adressen")


nID = oMainForm.getint(oMainForm.findcolumn("ID"))'ID der zugrundeliegenden Tabelle ausgelesen
oFormDocKunde2 = ThisDatabasedocument.formdocuments.getbyname("Party eintragen").open'Zielformular öffen

oFormKunde2 = oFormDocKunde2.drawpage.forms.MainForm
Wait(1000)
oFormKunde2.MoveToInsertRow()
oFormKunde2.UpdateInt(oFormKunde2.findColumn("ID GAstgebergeschenk"),nID)

'if oFormKunde2.isnew then
     ' oFormKunde2.insertrow
    'else
    ' oFormKunde2.updaterow
   'endif

DocumentSchliessen(ThisComponent)

END SUB

Könnt Ihr mir einen Tip geben , was ich ändern muss

liebe Grüße

Marco

von **Marco Schade** » Mo, 03.04.2017 07:53

Hallo Robert,

vielen Lieben Dank,
es läuft perfekt genau so habe ich es mir vorgestellt.

Danke nochmal

Liebe Grüße

Marco

von **RobertG** » So, 02.04.2017 09:13

Hallo Marco,

nimm zuerst einmal alles raus, was mit dem Filter zu tun hat. Auch den Filter aus dem Formular, den Du dort fest eingetragen hast. Dann kopierst Du den untenstehenden Code ein. oFormKunde2 = ... habe ich aus Deinem Code übernommen. END SUB dürfte ebenfalls klar sein.

Code: Alles auswählen

oFormKunde2 = oFormDocKunde2.drawpage.forms.MainForm
Wait(1000)
oFormKunde2.MoveToInsertRow()
oFormKunde2.UpdateInt(oFormKunde2.findColumn("ID Kunde"),nID)
END SUB

Mit der Wartezeit musst Du experimentieren. Ohne die Eingabe der Wartezeit kommt die Meldung "Fehler in der Funktionsfolge", weil wohl das Formular noch nicht so weit ist.

Gruß

Robert

von **Marco Schade** » Sa, 01.04.2017 20:30

Hallo Robert,

ich bin jetzt die ganze zeit an der Sache, Irgendwie bekomme ich es einfach nicht hin.
sogar mit dein Tipp oForm.updateInt da kommt die Fehlermeldung.
Ich bin schon fast am verzweifeln.

da bei sit dasMakro doch garnicht so lang

Code: Alles auswählen

sub Formular_Kd_Wiedervorlage
    oMainForm = ThisComponent.drawpage.forms.getbyname("Filter")
oSubForm = oMainForm.getbyname("Formular Adressen")


nID = oSubForm.getint(oSubForm.findcolumn("ID"))'ID der zugrundeliegenden Tabelle ausgelesen
oFormDocKunde2 = ThisDatabasedocument.formdocuments.getbyname("Wiedervorlage Kommunikation eintragen").open'Zielformular öffen


oFormKunde2 = oFormDocKunde2.drawpage.forms.MainForm' Unterformular im Zielformular


oFormKunde2.moveToInsertRow()
oFormKunde2.Filter = "(""ID"" = '"+nID+"')"
 msgbox nID
oFormKunde2.updateInt
END SUB

wo liegt nur der Fehler ????

Liebe Grüße

Marco

von **RobertG** » Sa, 01.04.2017 17:33

Hallo Marco,

das müsste darüber gehen, dass Du beim Öffnen des Formulars

Code: Alles auswählen

oForm.moveToInsertRow()

laufen lässt, dann den Wert in das ID-Feld schreiben lässt

Code: Alles auswählen

oForm.updateInt

(passend zu dem jeweiligen Feld.

Gruß

Robert

von **Marco Schade** » Sa, 01.04.2017 13:55

Hallo Robert,

könntest Du mir bitte helfen??

was muss ich machen, damit ich die ausgelesene KundenId aus dem Formular "Kunde" in das Listenfeld des Formulars" Wiedervorlage ...." bekomme bei einem neuen Datensatz.

Ich möchte nicht wissen was der Kunde für eine Wiedervorlage hat, sondern eine neue Wiedervorlage erstellen.

Vielen Dank im schon mal

Liebe Grüße

Marco

von **Marco Schade** » Sa, 01.04.2017 11:05

Hallo Robert,
Will eigentlich die Tabelle Kunde filtern und in die wiedervorlage einzufügen
Gruß Marco

von **RobertG** » Sa, 01.04.2017 09:38

Hallo Marco,

Du versuchst in Deinem Formular "Wiedervorlage ..." die Tabelle "Kommunikation" zu filtern. Das gelingt auch problemlos. Allerdings hat diese Tabelle nur die Kunden-ID '10' und '11' verzeichnet. Deshalb wird nur nach Wahl der Kunden mit den Namen '2' und '3' ein gefilterter Wert angezeigt. Mehr Kunden gibt es nicht in der Tabelle "Kommunikation".

Gruß

Robert

von **Marco Schade** » Fr, 31.03.2017 20:53

Hallo zusammen,

ich habe mir eine Wiedervorlage zusammengebastelt und möchte auf dem Startformular mit bem, Buton einen neue Wiedervorlage erstellen. Dazu öffnet sich ein neues Formular "Wiedervorlage Kommunikation eintragen" in Diesen Formular weden die ganzen Einträge gemacht. jetzt möchte ich ,dass ein Kunde ausgewählt werden kann ( über listbox ziemlich unübersichtlich)
deshalb bibt es ein Button welcher mir das Formular "Kunde" öffnet und ich den Kunden suchen kann.
Jetzt soll der ausgewälte Kunde ( "Kunden ID") mit drücken des Buttons kopiert werden und in das Listenfeld des Formulars "Wiedervorlage Kommunikation eintragen" eingetragen werden .

Ich habe schon mehrere Versuche gestartet, bin aber kläglich gescheitert.
Anbei meine Bespieldatei.

Über eure Hilfe, würde ich mich sehr freuen.

Liebe Grüße
Marco

OpenOffice.info

Daten von einem Formular ins andere Kopieren

Antwort erstellen

Ansicht erweitern Die letzten Beiträge des Themas: Daten von einem Formular ins andere Kopieren

Re_(gelöst) Daten von einem Formular ins andere Kopieren

Re: Daten von einem Formular ins andere Kopieren

Re: Daten von einem Formular ins andere Kopieren

Re: Daten von einem Formular ins andere Kopieren

Re: Daten von einem Formular ins andere Kopieren

Re: Daten von einem Formular ins andere Kopieren

Re: Daten von einem Formular ins andere Kopieren

Re: Daten von einem Formular ins andere Kopieren

Re: Daten von einem Formular ins andere Kopieren

Daten von einem Formular ins andere Kopieren