Daten von einem Formular ins andere Kopieren
Moderator: Moderatoren
-
- **
- Beiträge: 42
- Registriert: Mi, 08.03.2017 20:46
Daten von einem Formular ins andere Kopieren
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
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
- Dateianhänge
-
- Wiedervorlage test.odb
- (278.42 KiB) 161-mal heruntergeladen
Re: Daten von einem Formular ins andere Kopieren
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
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
-
- **
- Beiträge: 42
- Registriert: Mi, 08.03.2017 20:46
Re: Daten von einem Formular ins andere Kopieren
Hallo Robert,
Will eigentlich die Tabelle Kunde filtern und in die wiedervorlage einzufügen
Gruß Marco
Will eigentlich die Tabelle Kunde filtern und in die wiedervorlage einzufügen
Gruß Marco
-
- **
- Beiträge: 42
- Registriert: Mi, 08.03.2017 20:46
Re: Daten von einem Formular ins andere Kopieren
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
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
Re: Daten von einem Formular ins andere Kopieren
Hallo Marco,
das müsste darüber gehen, dass Du beim Öffnen des Formulars
laufen lässt, dann den Wert in das ID-Feld schreiben lässt
(passend zu dem jeweiligen Feld.
Gruß
Robert
das müsste darüber gehen, dass Du beim Öffnen des Formulars
Code: Alles auswählen
oForm.moveToInsertRow()
Code: Alles auswählen
oForm.updateInt
Gruß
Robert
-
- **
- Beiträge: 42
- Registriert: Mi, 08.03.2017 20:46
Re: Daten von einem Formular ins andere Kopieren
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
wo liegt nur der Fehler ????
Liebe Grüße
Marco
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
Liebe Grüße
Marco
Re: Daten von einem Formular ins andere Kopieren
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.
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
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
Gruß
Robert
-
- **
- Beiträge: 42
- Registriert: Mi, 08.03.2017 20:46
Re: Daten von einem Formular ins andere Kopieren
Hallo Robert,
vielen Lieben Dank,
es läuft perfekt genau so habe ich es mir vorgestellt.
Danke nochmal
Liebe Grüße
Marco
vielen Lieben Dank,
es läuft perfekt genau so habe ich es mir vorgestellt.
Danke nochmal
Liebe Grüße
Marco
-
- **
- Beiträge: 42
- Registriert: Mi, 08.03.2017 20:46
Re: Daten von einem Formular ins andere Kopieren
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.
Könnt Ihr mir einen Tip geben , was ich ändern muss
liebe Grüße
Marco
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
liebe Grüße
Marco
-
- **
- Beiträge: 42
- Registriert: Mi, 08.03.2017 20:46
Re_(gelöst) Daten von einem Formular ins andere Kopieren
Hallo zusammen ,
habe es hinbekommen
ich habe rausgenommen
und schon ging es
Liebe Grüße
Marco
habe es hinbekommen
ich habe
Code: Alles auswählen
oFormKunde2.MoveToInsertRow()
und schon ging es
Liebe Grüße
Marco