erweiterbare Termintabelle

[fisch]

Hallo,

das Projekt geht weiter,hoffe ich, allerdings nur mit eurer tollen Hilfe.

Das nächste, was ich versucht habe und gescheitert bin , ist eine Termintabelle zu erstellen.
I.d.R. ist es so, das die Patienten entweder 6 oder 10 Termine pro Rezept bekommen. Manchmal ist es mit einem Zyklus erledigt, manchmal kommen Folgerezepte. Und Patienten kommen Monate später wieder mit einer weiteren Erstbehandlung.
Ich möchte ein Formular erstellen, indem 6 oder 10 Termine (Datum und Uhrzeit) ausgewählt werden können. Es sollen weitere Terminpakete nachgezogen werden können. Wenn möglich sollte zu den Terminen ein Kommentar eingegeben werden können (Notizen zum Therapieverlauf).

Ich hoffe ich habe mich nerständlich ausgedrückt.

Vielen dank schon mal für jede Idee

Grüße fisch

[fisch]

Das habe ich jetzt anders gelöst, allerdings nicht sehr elegant. Hauptsache funzt .

Jetzt hab ich ein anderes Anliegen.

Tabelle 1: PatientenDaten (IDPatienten, Nachname....)
Tabelle 2: Termine (IDPatienten, Nachname,...)

Im Formular Termine wird die IDPatienten richtig angezeigt, die Zuordnung ist eindeutig, soweit so gut.
Jetzt möchte ich, nur um sicher zu sein, das auch der Nachname angezeigt wird.
Ganz ehrlich, ich sitze hier seit Stunden und suche nach einer Lösung. Ich habe einiges ausprobiert, aber ich schaffe es wirklich nicht ohne eure Hilfe.
Ich habe hier schon einiges gefunden und realisiert, wie z.B. öffne ich das Terminformular aus dem Patientenformular und hab einen Button zum schließen eingebaut. Für mich ist das toll, auch wenn´s funzig klingt und ich freu mich und sag "Herzlichen Dank dafür, ich hab eine Menge hier gelernt"

Also bitte, bitte HIIILLLLFFFFEEEE

Gruß fisch

[fisch]

ich schon wieder

Habe mir das hier zusammen geklaubt

Code: Alles auswählen

REM  *****  BASIC  *****


Sub oeffnenunduebergeben

    oDoc = ThisComponent
        oForm = ThisComponent.drawpage.forms.getbyindex(0) 
       oFeld = oForm.getByName("IDPatienten") 
       sPatient = oFeld.getCurrentValue 
       MsgBox "Daten gleich " + sPatient 
       oFeld2 = oForm.getByName("txtNachname")
       sNachname = oFeld2.getCurrentValue 
       MsgBox "Daten gleich" + sNachname 
      
    
        oDoc2 = ThisDatabaseDocument.FormDocuments.getByName("Termine").open 
    oForm2 = oDoc2 .drawpage.forms.getbyindex(0)
    
    
        aufnahmeFeld = "IDPatienten" 
        MsgBox "Daten gleich" + aufnahmeFeld 
       oForm2.getByName(aufnahmeFeld).text = sPatient 
       
       oForm2.getByName(aufnahmeFeld).commit(true)
       
       end sub

es funktioniert nicht und mir ist überhaupt nicht klar warum.

Wenn da mal jemand drüber gucken könnte. Danke schon mal

Gruß fisch