Supportnet / Forum / Datenbanken
Bei Verlassen eines Feldes...
Frage
Hallo zusammen.
Folgende Situation. Ich habe 3 Felder. Wenn ich nun ins erste etwas hineinschreibe und dieses anschliessend mit der Tabulator Taste verlasse, soll ins 2. Feld das jetztige Datum geschrieben werden und ins 3. Feld ein "text" eingefügt werden.
Aber nur wenn auch wirklich etwas in 1.Feld steht. Falls nichts im 1. Feld und man verlässt es, sollen die anderen 2 unberührt bleiben.
Kann mir jemand helfen?
Gruss aus der Schweiz.
achii
Antwort 1 von oliverV
Hallo achii,
schreibe beim Ereignis „nach Aktualisierung“ des Feldes 1 sinngemäß folgenden Code:
Gruß
Oliver
schreibe beim Ereignis „nach Aktualisierung“ des Feldes 1 sinngemäß folgenden Code:
If Not IsNull(Me!Feld1) Then
Me!Feld2 = Date
Me!Feld3 = "Dein Text"
Else
Me!Feld2 = ""
Me!Feld3 = ""
End If
Gruß
Oliver
Antwort 2 von achii
Vielen Dank für die rasche Antwort. Es gab eine Fehlermeldung:
Fehler beim Kompilieren
Bezeichner muss eine Auflistung angeben
und dann wurde Feld1 markiert.
Muss ich das Feld ein speziell benennen? Jetzt heisst es einfach Text73.
Fehler beim Kompilieren
Bezeichner muss eine Auflistung angeben
und dann wurde Feld1 markiert.
Muss ich das Feld ein speziell benennen? Jetzt heisst es einfach Text73.
Antwort 3 von oliverV
Zitat:
Bezeichner muss eine Auflistung angeben
Bezeichner muss eine Auflistung angeben
sagt mir nichts.
Du musst natürlich Feld1, Feld2, und Feld3 durch deine verwendeten Feldnamen ersetzten.
Deshalb auch ...sinngemäß folgenden Code:
Gruß
Oliver
Antwort 4 von achii
Dass hab ich schon gemacht me!feld1 etc mit den Namen der Tabelle und den jeweiligen Felder ersetzt.
Zur Zeit sieht das ganze so aus:
Private Sub ON1_Exit(Cancel As Integer)
If Not IsNull(Antragserfassung!ON1) Then
Antragserfassung!Text88 = Date
Antragserfassung!Kombinationsfeld18 = "pending"
Else
Antragserfassung!Text88 = ""
Antragserfassung!Kombinationsfeld18 = ""
End If
End Sub
Wenn ich dann das ganze laufen lass hat er ein Problem auf der Linie If Not IsNull und markiert ON1.
Wenn Dir was auffällt wäre cool, sonst lassen wir es bleiben. Vielen dank für Deine Hilfe.
achii
Zur Zeit sieht das ganze so aus:
Private Sub ON1_Exit(Cancel As Integer)
If Not IsNull(Antragserfassung!ON1) Then
Antragserfassung!Text88 = Date
Antragserfassung!Kombinationsfeld18 = "pending"
Else
Antragserfassung!Text88 = ""
Antragserfassung!Kombinationsfeld18 = ""
End If
End Sub
Wenn ich dann das ganze laufen lass hat er ein Problem auf der Linie If Not IsNull und markiert ON1.
Wenn Dir was auffällt wäre cool, sonst lassen wir es bleiben. Vielen dank für Deine Hilfe.
achii
Antwort 5 von Teddy7
Hi achii !
Vom Tabellennamen hat keiner was gesagt !
Zunächst mal solltest Du das Ereignis Lost-Focus nehmen.
Der Code müßte dann etwa so aussehen :
If Not IsNull(ON1) Then
Text88 = Date()
Kombinationsfeld18 = "pending"
Else
Text88 = ""
Kombinationsfeld18 = ""
End If
Übrigens - Du solltest sprechende Namen verwenden, sonst weiß man später nicht mehr was man da verzapft hat.
Gruß
Teddy
Vom Tabellennamen hat keiner was gesagt !
Zunächst mal solltest Du das Ereignis Lost-Focus nehmen.
Der Code müßte dann etwa so aussehen :
If Not IsNull(ON1) Then
Text88 = Date()
Kombinationsfeld18 = "pending"
Else
Text88 = ""
Kombinationsfeld18 = ""
End If
Übrigens - Du solltest sprechende Namen verwenden, sonst weiß man später nicht mehr was man da verzapft hat.
Gruß
Teddy
Antwort 6 von achii
Ihr seid meine Helden.
Besten Dank.
Besten Dank.