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?
Datenaustausch im mehrseitigen Formular
Moderator: Forum Moderatoren
Forumsregeln
TM-Startforum - "offen für alle Themen".
Beiträge, die in einen anderen Bereich passen, werden bei Bedarf verschoben.
TM-Startforum - "offen für alle Themen".
Beiträge, die in einen anderen Bereich passen, werden bei Bedarf verschoben.
-
rfbdoc
- PowerUser
- Beiträge: 3065
- Registriert: Sonntag 30. April 2006, 19:31
- 20
- Hat sich bedankt: 56 mal
- Hat Dank erhalten: 100 mal
Re: Datenaustausch im mehrseitigen Formular
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"
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"
R.F.B.
-
baerdoc
- Beiträge: 390
- Registriert: Montag 19. August 2013, 10:34
- 12
- Hat sich bedankt: 1 mal
- Hat Dank erhalten: 6 mal
Re: Datenaustausch im mehrseitigen Formular
Danke für den Tipp. Ich hatte gehofft, dass es so etwas wie eine globale Variablendefinition gibt, die in allen Formularseiten Gültigkeit hat.
Wer ist online?
Mitglieder in diesem Forum: Ahrefs [Bot], Bing [Bot], Google [Bot], Semrush [Bot] und 11 Gäste