VonDoczuDoc.de

Ich möchte im geöffneten mehrseitigen Formular auf Daten der nicht aktiven Seiten zugreifen. Z.B. 3seitiges Formular, alle Seiten wurden geöffnet und verändert, aber noch nicht gespeichert. Seite 1 ist aktiv, ich benötige aber Daten von Seite 3 (die bisher ebenfalls noch nicht gespeichert wurden, sonst könnte ich sie direkt aus der Karteikarte einlesen.)

Gibt es eine einfache Methode, Variablen zu definieren, auf die in allen Formularseiten gleichzeitig zugegriffen werden kann?

Ich kenne nur den Weg von Formular1 das Formular2 aufzurufen und dabei Datenfeldinhalte weiter zu geben

Beispielhaft wird unten DatumB von Formular1 an Forumular2 weiter gegeben

'----------- Auruf der Folgeseite Formular2.tmf
Sub Folgeseite
Dim FormList,DialogFenster,list
Dim PDatumB
set FormList = CreateObject("TMAuto.StringList")
set PDatumB = CreateObject("TMAuto.Parameter")
PDatumB.Value = DatumB.Text
FormList.clear
Set List=CreateObject("TMAuto.ParameterList")
List.Add Patient,"Patient"
List.Add Behandlungsfall,"Behandlungsfall"
List.Add PDatumB,"PDatumB"
Set DialogFenster=App.OpenForm ("$\TurboMed\Formulare\SelbsterstellteFormulare\Formular2.tmf",List)
End Sub

Im Formular2.tmf können Sie dann auf PDatumB zugreifen.

Die Syntax kann man sich gut in den Privatrechnungsformularen beim Aufruf der Folgeseiten "abgucken"

Danke für den Tipp. Ich hatte gehofft, dass es so etwas wie eine globale Variablendefinition gibt, die in allen Formularseiten Gültigkeit hat.