Daten aus MainForm in Subform übernehmen

[Brotnascher]

Hi,

ich habe neu angefangen mit Base zu arbeiten, da mir Access in letzter Zeit nur Probleme mit Abstürzen und Freezes macht.

Ich bin gerade dabei eine Datenbank zur Arbeitszeiterfassung zu erstellen. Die täglichen Arbeitszeiten einer Woche unserer Mitarbeiter sollen in der nächsten Woche eingepflegt werden. Ich habe dafür auch ein Formular erstellt, möchte jedoch nicht für jeden Tag erneut den Mitarbeiter auswählen sondern hätte es am liebsten, dass ich den Mitarbeiter auswähle und im MainFormular das erste Datum auswähle/eingebe und dann in den Subforms nur noch die Arbeitszeit, Arbeitsort und Arbeitsart für die darauffolgenden 6 Tage eingegeben werden muss.
Kann man Base dazu bewegen sich die Daten aus dem im MainForm angelegten Datensatz zu angeln und für die Subforms zu verwenden und wenn ja wie am besten?

Viele Grüße
Martin

[RobertG]

Hallo Martin,

Du musst Dir die Eigenschaften des Subformulars anzeigen lassen. Unter Formular-Eigenschaften → Daten findest Du "Verknüpfen von" und "Verknüpfen nach". Wenn Du auf einen der Buttons neben diesen Feldern klickst, dann erscheint ein Auswahldialog, der alle Felder des Hauptformulars auf der einen und alle Felder des Unterformulars auf der anderen Seite zeigt.

Details dazu findest Du im Handbuch,

Gruß

Robert

[Brotnascher]

Hallo Robert,
Danke für die schnelle Antwort.
Das klappt zwar wunderbar für die Mitarbeiter, nimmt mir aber nicht die Arbeit ab, dass Datum jedes mal um einen Tag zu erhöhen, da es mir letztendlich ja nur die gleichen Datensätze angibt die schon in der Tabelle vorhanden sind aber diese nicht von selbst um 6 weitere ergänzt. Dazu sollte vielleicht noch gesagt sein dass Main und Subform die gleiche Tabelle und die gleichen Datensätze bearbeiten sollen. Ich habe daran gedacht das ganze durch ein Makro also Button ausführen zu lassen.

Ich habe bisher mit einem Makro erreicht, dass mir Datum und Mitarbeiter des letzten Datensatzes im Hauptformular als neuer Datensatz angelegt werden, scheitere aber daran das ganze auf ein Unterformular zu erweitern und das Datum jeweils um einen Tag zu erhöhen. Vielleicht gehe ich die ganze Sache aber auch zu umständlich an und ihr wisst eine einfacherere Lösung

Code: Alles auswählen

Sub Hole_Daten

oForm = ThisComponent.Drawpage.Forms.getbyname("Zeiteingabe")
oForm.last 'zum letzten Datensatz springen

dDatum = oForm.getDate(2)
ima_ID = oForm.getLong(3)


oForm.moveToInsertRow

oForm.updateDate(2, dDatum)
oForm.updateLong(3, ima_ID)
End Sub

Viele Grüße
Martin

[RobertG]

Hallo Martin,

vielleicht ist Dir dann eher mit diesem Thread geholfen?
http://www.libreoffice-forum.de/viewtop ... 77&start=0

Ich habe bei den Entwicklungsdateien zum Handbuch daraus einen ganzen Terminkalender gemacht - ohne Makros.

Gruß

Robert

[Brotnascher]

Danke, der Beitrag hilft mir echt weiter.

Habe nur ein kleines Problem beim implementieren in meine DB. Das habe ich aber direkt unter dem anderen Beitrag gepostet.

Viele Grüße
Martin