Bericht mit Kontonummern Feld
-
- Profi
- Beiträge: 43
- Registriert: So, 24 Okt, 2010 14:26
Bericht mit Kontonummern Feld
Ist es möglich im Bericht ein Feld anzulegen in dem ich die Kontonummer eingeben kann, wo dann nach der Eingabe der Kontonummer in einem benachbarten Feld der dazugehörige Kontoname angezeigt wird? Geht das?
- Team Schauries
- Site Admin
- Beiträge: 1058
- Registriert: Mo, 17 Jan, 2005 20:25
- Wohnort: Essen
-
- Profi
- Beiträge: 43
- Registriert: So, 24 Okt, 2010 14:26
- Team Schauries
- Site Admin
- Beiträge: 1058
- Registriert: Mo, 17 Jan, 2005 20:25
- Wohnort: Essen
In etwas so...
Procedure Eingabefeld1_OnChange
Var I : Integer
Var TestNumber : Integer
TestNumber = StrToInt(Eingabefeld1.Text)
For i = 0 To Accounts.AbsoluteCount - 1
If Account(i).Number = TestNumber
Eingabefeld2.Text = Account(i).FullName
Exit
EndIf
Next
Eingabefeld2.Text = ""
EndProcedure
Einbau des Scripts:
Bericht mit F9 in den Formular-Designer schalten
Eingabefeld der Kontonummer anwählen
Im Eigenschaften-Editor den Reiter Ereignisse anwählen
In der Tabelle in der ersten Zeile (Beim Ändern) in Spalte zwei doppelklicken
Im Programm-Editor obigen Text kopieren
Unter Umständen noch die Namen der Eingabefelder anpassen!
Bericht mit F9 wieder in den Eingabemodus schalten und Eingabe der Kontonummer testen.
Viele Grüße,
Dirk Schauries
Procedure Eingabefeld1_OnChange
Var I : Integer
Var TestNumber : Integer
TestNumber = StrToInt(Eingabefeld1.Text)
For i = 0 To Accounts.AbsoluteCount - 1
If Account(i).Number = TestNumber
Eingabefeld2.Text = Account(i).FullName
Exit
EndIf
Next
Eingabefeld2.Text = ""
EndProcedure
Einbau des Scripts:
Bericht mit F9 in den Formular-Designer schalten
Eingabefeld der Kontonummer anwählen
Im Eigenschaften-Editor den Reiter Ereignisse anwählen
In der Tabelle in der ersten Zeile (Beim Ändern) in Spalte zwei doppelklicken
Im Programm-Editor obigen Text kopieren
Unter Umständen noch die Namen der Eingabefelder anpassen!
Bericht mit F9 wieder in den Eingabemodus schalten und Eingabe der Kontonummer testen.
Viele Grüße,
Dirk Schauries
Team Schauries