Daten aus einem Formular in ein anderes übertragen

Datenbanklösungen mit AOO/LO

Moderator: Moderatoren

tobiman26
***
Beiträge: 63
Registriert: Mi, 20.01.2016 15:17
Kontaktdaten:

Daten aus einem Formular in ein anderes übertragen

Beitrag von tobiman26 »

Hallo Leute

Ich habe ein Problem mit meinem OpenOffice Base und zwar habe ich ein Start Formular von dem Ich aus über Makros die anderen Formulare
(Kunden anlegen und Kundenverwalten) erreiche die Formulare verfügen über Suchfunktionen über die ich Datensätze Filtern kann
Ich habe 2 Tabellen mit Daten Kunden und Termine und 2 Tabellen zum Filtern F_Kunden und F_Termine
auf meinem Start Formular befindet sich neben den Button noch ein Tabellen Kontrollfeld als Todo Liste wo über eine Abfrage alle Termine von heute und aus der Vergangenheit die als nicht erledigt gekennzeichnet sind angezeigt werden nun möchte der Mitarbeiter aber direkt von dem Tabellen Kontrollfeld via Doppelklick oder zusätzlichem Button in das Formular Kundenverwaltung kommen und direkt den Kunden ausgewählt haben zu dem der Termin aus der Todo Liste gehört
ich hab keine Ahnung wie das gehen könnte
Ich habe bereits versucht den Namen des Kunden und den Namen der Firma in der selektierten Zeile als Variable auszulesen und in die TextBoxen zum Filtern im Formular Kundenverwaltung F_Kunde und F_Firma einzufügen das er nur noch auf Suchen klicken muss und den Kunden hat
aber es Funktioniert nicht hab leider keine Ahnung von ooBasic und meine Programmierer sagen ich soll es doch mit JavaScript probieren davon hab ich aber noch weniger Ahnung ich bitte daher um Hilfe
Ich hoffe hier wird mir Fachkundig geholfen
Danke schon mal im Voraus
Mfg Tobias 8)

Windows 7 64bit + AOO 4.1.2 + LO 5.0.0.0
OpenSUSE 42.1 32 bit + LO 5.0.2.2
F3K Total
********
Beiträge: 3704
Registriert: Mo, 28.02.2011 17:49

Re: Daten aus einem Formular in ein anderes übertragen

Beitrag von F3K Total »

Hi,
anbei ein einfaches Beispiel, mit einem kurzen Makro. Passt aber vermutlich nicht genau zu deiner Situation. Wenn du weitere Hilfe benötigst, lade deine Datei, ggf. verfremdet hier hoch.

Gruß R
Dateianhänge
JumptonextForm2.odb
(22 KiB) 173-mal heruntergeladen
tobiman26
***
Beiträge: 63
Registriert: Mi, 20.01.2016 15:17
Kontaktdaten:

Re: Daten aus einem Formular in ein anderes übertragen

Beitrag von tobiman26 »

Danke für die schnelle Antwort ich probier es mal
Mfg Tobias 8)

Windows 7 64bit + AOO 4.1.2 + LO 5.0.0.0
OpenSUSE 42.1 32 bit + LO 5.0.2.2
tobiman26
***
Beiträge: 63
Registriert: Mi, 20.01.2016 15:17
Kontaktdaten:

Re: Daten aus einem Formular in ein anderes übertragen

Beitrag von tobiman26 »

Funktioniert leider so nicht bei mir da ich nach 2 Variablen Filtern muss dem Kunden und der Firma
über die ID kann ich es nicht machen da ein Kunde ja mehrere Termine haben kann
Mfg Tobias 8)

Windows 7 64bit + AOO 4.1.2 + LO 5.0.0.0
OpenSUSE 42.1 32 bit + LO 5.0.2.2
F3K Total
********
Beiträge: 3704
Registriert: Mo, 28.02.2011 17:49

Re: Daten aus einem Formular in ein anderes übertragen

Beitrag von F3K Total »

Scheint ja nicht so wichtig zu sein, sonst hättest du sicherlich das Angebot
Wenn du weitere Hilfe benötigst, lade deine Datei, ggf. verfremdet hier hoch.
angenommen. :?
R
tobiman26
***
Beiträge: 63
Registriert: Mi, 20.01.2016 15:17
Kontaktdaten:

Re: Daten aus einem Formular in ein anderes übertragen

Beitrag von tobiman26 »

Wollte ich aber mein Chef meinte selbst bei der Verfremdeten wo keine Logos und nur Fake Kunden drin sind sowas haben wir nicht nötig das muss so gehen naja kann ich halt nicht ändern trotzdem Danke
Mfg Tobias 8)

Windows 7 64bit + AOO 4.1.2 + LO 5.0.0.0
OpenSUSE 42.1 32 bit + LO 5.0.2.2
tobiman26
***
Beiträge: 63
Registriert: Mi, 20.01.2016 15:17
Kontaktdaten:

Re: Daten aus einem Formular in ein anderes übertragen

Beitrag von tobiman26 »

Lösung gefunden

Code: Alles auswählen

sub S_open_Form_Personendetails

oform = ThisComponent.drawpage.Forms.MainForm.SubForm.Kalender
ncolumn = oform.findcolumn("KundenID")
nID = oform.getint(ncolumn)'ID der zugrundeliegenden Tabelle ausgelesen
    oFormDocKundenverwaltung = ThisDatabasedocument.formdocuments.getbyname("Kundenverwaltung").open'Detailformular öffen
    oFormKundenverwaltung = oFormDocKundenverwaltung.drawpage.forms.Filter.Kundendaten
    'oName = oFormKundenverwaltung.getbyname("TBF_Name")
    oFormKundenverwaltung.Filter = "(""ID"" = '"+nID+"')"
    oFormKundenverwaltung.reload
end Sub
Mfg Tobias 8)

Windows 7 64bit + AOO 4.1.2 + LO 5.0.0.0
OpenSUSE 42.1 32 bit + LO 5.0.2.2
F3K Total
********
Beiträge: 3704
Registriert: Mo, 28.02.2011 17:49

Re: Daten aus einem Formular in ein anderes übertragen

Beitrag von F3K Total »

na, geht doch :D
tobiman26
***
Beiträge: 63
Registriert: Mi, 20.01.2016 15:17
Kontaktdaten:

Re: Daten aus einem Formular in ein anderes übertragen

Beitrag von tobiman26 »

Mittlerweile ist aus der kleinen DB ein Monster geworden mit ca. 30-40 Makros und dein Makro kommt vielleicht 4 mal vor hihi^^
Mfg Tobias 8)

Windows 7 64bit + AOO 4.1.2 + LO 5.0.0.0
OpenSUSE 42.1 32 bit + LO 5.0.2.2
Antworten