online 1
gast (50)

/ Forum / Datenbanken

DatenbankenDatenbanken

Fragevon haribo7 vom 11.02.2020, 11:22 Options

mit Textfeld-Inhalt rechnen

Hallo,

ich möchte, dass nach einer Eingabe in ein Textfeld (Text1) eine Berechnung statt findet (z.B. Text1+500) und im Text2 automatisch (nach jedem Tastenklick) das Ergebnis angezeigt wird. Die beiden Textfelder sind ungebunden.

Hat jemand eine Idee


Antwort schreiben

Antwort 1 von Marie vom 11.02.2020, 12:19 Options

Private Sub Text1_AfterUpdate()
If IsNumeric(Me![Text1]) Then
Me![Text2] = Me![Text1] + 500
End If
End Sub

Gruß Marie

Antwort 2 von haribo7 vom 11.02.2020, 13:33 Options

Hallo Marie,

Danke erstmal für die Antwort. Leider ist Deine Lösung nicht was ich gesucht habe. Ereignis AfterUpdate hat den Nachteil, dass es erst nach dem Verlassen des Textfeldes ausgefüht wird. Ich möchte aber, dass nach jeder Betätigung der Taste gerechnet wird. Beispiel: gebe ich in Text1 eine 2 ein, so wird automatisch 2+500 gerechnet und das Ergebnis im Text2 angezeigt. Gebe ich jetzt 5 ein, steht im Text1-25 und im Text2-525.
Ich hoffe, ich habe jetzt etwas besser die Problematik beschrieben

Gruß haribo7

Antwort 3 von haribo7 vom 11.02.2020, 16:29 Options

Hallo,

ich hab´s


Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If IsNumeric(Text1.Text) Then
Text2 = Text1.Text + 500
Else
Text2 = Null
End If
End Sub

Ich habe vorher mit Text1.Value anstatt Text1.Text versucht - funktioniert nicht. So geht aber


Gruß haribo7

Ähnliche Themen

bedingter Zeilenwechsel im Textfeld
mbalrog  20.08.2007 - 9 Hits - 2 Antworten

Excel-Textfeld löschen
Ricko  07.10.2007 - 201 Hits - 4 Antworten

Textfeld löschen als "Ereignis beim Klicken"
sv_t  14.10.2007 - 92 Hits - 10 Antworten

Textfeld VBA
ro05  14.04.2008 - 32 Hits - 1 Antwort

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026